如何用VB代码实现随着开机，已运行过的程序就会再次运行（不需再次双击）

Private Declare Function RegCreateKey Lib "advapi32dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32dll" 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 ' Note that if you declare the lpData parameter as String, you must pass it By Value

Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Const REG_SZ = 1

Private Declare Function RegSetValue Lib "advapi32dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Private Sub Form_Load()

Call AutoRun

End Sub

Sub AutoRun()

Dim sKeyName As String, sKeyValue As String, sKeyValueIcon As String

Dim Ret As Integer, lphKey As Long

sKeyName = "Software\Microsoft\Windows\CurrentVersion\Run" '是启动项在注册表中位置，大家可能通过 regeditexe 来查看

sKeyValue = AppPath & "\" & AppEXEName & "exe"

Ret = RegCreateKey&(HKEY_LOCAL_MACHINE, sKeyName, lphKey) '创建新的启动项

Ret = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&) '设置键值

End Sub

============================

就是程序加载的时候运行AutoRun函数即可

添加一个按钮，输入代码：

Private Sub Command1_Click()

Shell "shutdownexe -r -t 0" '立刻重启计算机

End Sub

运行后点击按钮，电脑就会重启

以上就是关于如何用VB代码实现随着开机，已运行过的程序就会再次运行（不需再次双击）全部的内容，包括:如何用VB代码实现随着开机，已运行过的程序就会再次运行（不需再次双击）、用VB编一个重启程序步骤、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！