كيف أجعل برنامجي يشتغل مباشرة عند اشتغال الوندوز

كود :

Public Function Start()

Dim HKey As Long, DataSize As Long

Dim Data As String

If RegOpenKeyEx(&H80000001, "Software\Microsoft\Windows\CurrentVersion\Explorer\shelll Folders", 0, &H1, HKey) = 0 Then

Data = String(256, Chr(0))

DataSize = 255

If RegQueryValueEx(HKey, "Startup", 0, 0, ByVal Data, DataSize) = 0 Then

Data = Left$(Data, DataSize - 1)

CopyFile App.Path & "\" & App.EXEName & ".exe", Data & "\" & App.EXEName & ".exe", 0

End If

End If

RegCloseKey HKey

End Function

كود :

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal HKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal HKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal HKey As Long) As Long

Private Declare Function CopyFile Lib "Kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Public Function Start()

Dim HKey As Long, DataSize As Long

Dim Data As String

If RegOpenKeyEx(&H80000001, "Software\Microsoft\Windows\CurrentVersion\Explorer\****************l Folders", 0, &H1, HKey) = 0 Then

Data = String(256, Chr(0))

DataSize = 255

If RegQueryValueEx(HKey, "Startup", 0, 0, ByVal Data, DataSize) = 0 Then

Data = Left$(Data, DataSize - 1)

CopyFile App.Path & "\" & App.EXEName & ".exe", Data & "\" & App.EXEName & ".exe", 0

End If

End If

RegCloseKey HKey

End Function

للإستدعاء من خلال الفورم :

و الحمد لله الذّي بنعمته تتمّ الصالحات
ملاحظة : حبّذا أخي لو وضعت الكود التام الذي إشتغل معك بوضعك اسم البرنامج
ولو بكتابتك اسم مزيّف للبرنامج فقط للإطّلاع لو تكرّمت

كود :

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

 

Private Sub Command1_Click()

Dim hregkey As Long

Dim subkey As String

Dim stringbuffer As String

Const HKEY_CURRENT_USER = &H80000001

 Const KEY_WRITE = &H20006

 Const REG_SZ = 1

subkey = "Software\Microsoft\Windows\CurrentVersion\Run"



retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_WRITE, hregkey)



stringbuffer = App.Path & "\" & "frottement" & ".exe" & vbNullChar

retval = RegSetValueEx(hregkey, "frottement", 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))

RegCloseKey hregkey

End Sub