杭州交通信息网通化美的售后在哪里:如何实现VB开机启动
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 09:12:59
用VB编写个程序，在里面加什么代码才能使此文件此文件开机的时候自动运行，谢谢啦~！
Dim strString As String
Dim keyhand As Long
Dim r As Long
strString = App.Path & "\" & App.EXEName & ".exe"
r = RegCreateKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand)
r = RegSetValueEx(keyhand, "jsjuq", 0, REG_SZ, ByVal strString, Len(strString))
r = RegCloseKey(keyhand)
用操作注册表的函数写到启动项不就行了
你用它改下注册表,在启动项下加个值就是了
Windows启动项,自己网上查下吧
将程序的路径和名称作为一个字符串值写入到注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
项下。
Private Sub Command1_Click()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, _
App.Path & "\" & App.EXEName & ".exe"
End Sub