晨彦电脑科技 Belong to oneself's sky
RSS
Apr 30

VB把程序加入系统启动项的方法 不指定

雪糕先生 2009/04/30 不指定 15:42
引用
sub RegRun()
on error resume next
dim wsh
set wsh=createobject("wscript.shell")
wsh.regwrite "HKLM\Software\Microsoft\Windows\Currentversion\Run\" & app.exename,app.path & "\" & app.exename & ".exe",REG_SZ"
end sub

只要执行regrun这个过程,就会把自己写入启动项

wsh.regwrite 三部分意义:
wsh.regwrite 写入的位置,写入的值,写入的类型
HKLM\Software\Microsoft\Windows\Currentversion\Run\
是启动项的位置也叫键名,值的名称任意,值的内容为要启动的程序的路径

比如你要把IE写入启动项,就这样写

引用
wsh.regwrite "HKLM\Software\Microsoft\Windows\Currentversion\Run\IE","C:\Program Files\Internet Explorer\IExplorer.exe","REG_SZ"


前面那段代码就是把程序自身写入启动项的,


引用
Private Sub Command1_Click() '//第一个按钮的代码
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\MYEXES", App.Path & IIf(Len(App.Path) = 3, "", "\") & App.EXEName & ".Exe", "REG_SZ"
Set Reg = Nothing
End Sub

Private Sub Command2_Click() '//第2个按钮的代码
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\MYEXES"
Set Reg = Nothing
End Sub
Actions
 
VB VB.NET , 评论(0) , 引用(0) , 阅读(4109) , Via 本站原创
发表评论

昵称

网址

电邮

打开HTML 打开UBB 打开表情 隐藏 记住我 [登入] [注册]

 
赞助商链接
热门Tags
统计