vb 1 جعل البرنامج يعمل مع بدأ التشغيل

بسم الله الرحمن الرحيم

Private Function RegWrite(Key1, SValue As String)

Set WSHShell = CreateObject("WScript.Shell")

WSHShell.RegWrite Key1, SValue

End Function

و الأن ضع هذا الكود داخل أل

(Form )

كود:

RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\programName", " path of the program"

( Path of the Program )

مكان وجود البرنامج على القرص الصلب

( Program NAme )

هو اسم المفتاح

أتمنى ان ينال الموضوع اعجابكم و ان ارى ردودكم على الموضوع

Gigaset Zero

هذا افضل

جعل البرنامج يشتغل مع بدء الوندوز

كود:

Dim O As Object

Set O = CreateObject ("WScript.Shell")

O.RegWrite

"HKCUSoftwareMicrosoftWindowsCurrentVersionRunProg ramName",

ProgramPath, "REG_SZ"

End Sub