منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة بخصوص جعل البرنامج يشتغل مع تشغيل الجهاز.... - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مشكلة بخصوص جعل البرنامج يشتغل مع تشغيل الجهاز.... (/showthread.php?tid=5250)

مشكلة بخصوص جعل البرنامج يشتغل مع تشغيل الجهاز.... - karika - 06-10-12

انا لاقيت كود يجعل البرنامج يشتغل مع فتح الوندز ....
فى الجنرال
كود :
كود:
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


مشكلة بخصوص جعل البرنامج يشتغل مع تشغيل الجهاز.... - Ahmad Jawad - 06-10-12

إليك أخي كود آخر



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
اذا ما وجد اللملف بتطلع لك رسالة خطأ

مشكلة بخصوص جعل البرنامج يشتغل مع تشغيل الجهاز.... - omarelking - 06-10-12

فى كود اسهل من كده وهو نسخ البرنامج لملف Start Up

مشكلة بخصوص جعل البرنامج يشتغل مع تشغيل الجهاز.... - 3amo - 06-10-12

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")