کد زیر رو به سورست اضافه کن
'-----------------------------------------
'---------------Fire360Boy----------------
'------------March ,25 ,2014--------------
'-----------------------------------------
'[email protected]
'-----------------------------------------
Private Function WillRunAtStartup(ByVal app_name As String) _
As Boolean
Dim hKey As Long
Dim value_type As Long
If RegOpenKeyEx(HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Run", _
0, KEY_READ, hKey) = ERROR_SUCCESS _
Then
WillRunAtStartup = _
(RegQueryValueEx(hKey, app_name, _
ByVal 0&, value_type, ByVal 0&, ByVal 0&) = _
_
ERROR_SUCCESS)
RegCloseKey hKey
Else
WillRunAtStartup = False
End If
End Function
Private Sub Form_Load()
m_IgnoreEvents = True
If WillRunAtStartup(App.EXEName) Then
chkRun.Value = vbChecked
Else
chkRun.Value = vbUnchecked
End If
m_IgnoreEvents = False
End Sub
Private Sub SetRunAtStartup(ByVal app_name As String, ByVal _
app_path As String, Optional ByVal run_at_startup As _
Boolean = True)
Dim hKey As Long
Dim key_value As String
Dim status As Long
On Error GoTo SetStartupError
If RegCreateKeyEx(HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Run", _
ByVal 0&, ByVal 0&, ByVal 0&, _
KEY_WRITE, ByVal 0&, hKey, _
ByVal 0&) <> ERROR_SUCCESS _
Then
MsgBox "Error " & Err.Number & " opening key" & _
vbCrLf & Err.Description
Exit Sub
End If
If run_at_startup Then
key_value = app_path & "\" & app_name & ".exe" & _
vbNullChar
status = RegSetValueEx(hKey, App.EXEName, 0, _
REG_SZ, _
ByVal key_value, Len(key_value))
If status <> ERROR_SUCCESS Then
MsgBox "Error " & Err.Number & " setting key" & _
_
vbCrLf & Err.Description
End If
Else
RegDeleteValue hKey, app_name
End If
RegCloseKey hKey
Exit Sub
SetStartupError:
MsgBox Err.Number & " " & Err.Description
Exit Sub
End Sub
حالا با کد زیر میتونی دوباره برنامه رو در startup کپی کنی
SetRunAtStartup App.EXEName, App.Path, _
(chkRun.Value = vbChecked)
البته ناگفته نماند که منظور شما از استارت آپ همون پوشه استارتآپ بوده اما چون در ویندوز 8 به بالا پوشه استارتآپ حذف شده من رجیستر کردن از طریق رجیستری رو برای شما گذاشتم چون هم حرفه ای تر هست هم هرکسی به آن دسترسی ندارد و همان کار استارتآپ را هم برای شما انجام میدهد اما باز بسته به میل خودتان میتوانید از api شورتکات هم استفاده کنید به این صورت که از برنامه یک شورتکات در پوشه میگذارید و هر سری اجرا میشود که اگر در این امر مشکل داشتید ایمیل بنمایید [email protected]