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

انا لاقيت كود يجعل البرنامج يشتغل مع فتح الوندز ....
فى الجنرال

كود :

كود:

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

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

karika

Ahmad Jawad

omarelking

3amo