怎么让vb编的程序开机启动?
答案:1 悬赏:0
解决时间 2021-02-04 01:49
- 提问者网友:花之森
- 2021-02-03 05:59
怎么让vb编的程序开机启动?
最佳答案
- 二级知识专家网友:而你却相形见绌
- 2021-02-03 07:17
需要将要启动的应用程序路径写到注册表中具体的路径是:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
只需要在上面的路径下写一个键并为此键设置一个当前应用程序的路径即开机自载
具体的方法:
1、将下面这段代码就是将键Clock写到注册表中:
'设置注册表内的RUN属性
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, "Clock", 0, REG_SZ, ByVal strString, Len(strString))
r = RegCloseKey(keyhand)
2、下面这段代码就是将注册表的Clock键删除
'删除注册表内的RUN属性
Dim keyhand As Long
r = RegOpenKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand)
r = RegDeleteValue(keyhand, "Clock")
r = RegCloseKey(keyhand)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
只需要在上面的路径下写一个键并为此键设置一个当前应用程序的路径即开机自载
具体的方法:
1、将下面这段代码就是将键Clock写到注册表中:
'设置注册表内的RUN属性
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, "Clock", 0, REG_SZ, ByVal strString, Len(strString))
r = RegCloseKey(keyhand)
2、下面这段代码就是将注册表的Clock键删除
'删除注册表内的RUN属性
Dim keyhand As Long
r = RegOpenKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand)
r = RegDeleteValue(keyhand, "Clock")
r = RegCloseKey(keyhand)
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯