تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة بخصوص جعل البرنامج يشتغل مع تشغيل الجهاز....
#1
انا لاقيت كود يجعل البرنامج يشتغل مع فتح الوندز ....
فى الجنرال
كود :
كود:
Private Function RegWrite(Key1, SValue As String)
    Set WSHShell = CreateObject("WScript.Shell")
    WSHShell.RegWrite Key1, SValue
End Function
وفى الفورم:
كود :
RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\programName", " path of the program"
لكن انا عندى دايماّ بيظهر خطأ ومش عارف اعالجة فى الكود دة
كود :
Private Function RegWrite(Key1, SValue As String)
    Set [color=#FF0000]WSHShell =[/color] CreateObject("WScript.Shell")
    WSHShell.RegWrite Key1, SValue
End Function
الرد }}}
تم الشكر بواسطة:
#2
إليك أخي كود آخر



PHP كود :
Set WSH CreateObject("WScript.Shell")
 
WSH.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe", "REG_SZ

وهذا كود الحذف
PHP كود :
Set WSH CreateObject("WScript.Shell")
 
WSH.Regdelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\" & App.EXEName 

وهذا كود تشغيل مع explorer

PHP كود :
Dim WSH As Object
 Set WSH 
CreateObject("Wscript.Shell")
 
WSH.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell""Explorer.exe " App.EXEName"REG_SZ" 

وهذا كود الحذف

PHP كود :
Dim WSH As Object
 Set WSH 
CreateObject("Wscript.Shell")
 
WSH.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell""Explorer.exe" "REG_SZ 

لكن لازم الملف يكون موجود في مجلد السيستم system
اذا ما وجد اللملف بتطلع لك رسالة خطأ
متغيب
الرد }}}
تم الشكر بواسطة:
#3
فى كود اسهل من كده وهو نسخ البرنامج لملف Start Up
الرد }}}
تم الشكر بواسطة:
#4
omarelking كتب :فى كود اسهل من كده وهو نسخ البرنامج لملف Start Up
السلام عليكم ورحمة الله وبركاته
نسخ اختصار البرنامج لمجلد Start Up مجرب على وندوز xp ويعمل جيدا
PHP كود :
Set FDGDFg CreateObject("Wscript.shell")
VBGF FDGDFg.specialfolders("Startup")
Set oshelllink FDGDFg.createShortcut(VBGF "\" & App.EXEName & ".Lnk")
oshelllink.Targetpath = App.Path & "
\" & App.EXEName & ".exe"
oshelllink.iconlocation = App.Path & "
\" & App.EXEName & ".exe"
oshelllink.Description = "  
Location " & App.Path & "  " '& vbCrLf & '_
'"  " & vbCrLf & '_
'"  
HotKey Ctrl Alt C  "
oshelllink.Save
Set FDGDFg = CreateObject("
Wscript.shell") 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,203 24-01-22, 04:45 AM
آخر رد: Taha Okla
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
  عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني tareqhabib15 3 1,667 28-11-20, 10:11 PM
آخر رد: tareqhabib15
  مشكلة maskedbox ماجد 2 1,639 07-08-20, 10:14 AM
آخر رد: ماجد
Smile [كود] كود تشغيل البرنامج عمور2016 5 2,306 04-07-20, 04:25 PM
آخر رد: عمور2016
  مساج خطأ عند تحزيم البرنامج في ويندوز 10 amazonette 2 2,254 16-05-20, 04:33 AM
آخر رد: Amir_Alzubidy
  تشغيل برنامج واحد في عدة حواسيب مشتركة في شبكة Benmouha 4 2,657 02-05-20, 01:30 PM
آخر رد: karmina2012
  [سؤال] مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية awidan76 47 11,084 30-10-19, 08:57 AM
آخر رد: Ahmed_Mansoor
  حماية البرنامج برقم الهاردسك layan2000 7 7,575 18-06-19, 08:42 AM
آخر رد: layan2000
  تشغيل وايقاف الصوت shamal 5 4,434 24-12-18, 02:53 PM
آخر رد: سيف الله الشريف

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم