以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]能不能开机自动启动？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130413)
--  作者：zto001
--  发布时间：2019/1/21 14:38:00
--  [求助]能不能开机自动启动？
[求助]能不能开机自动启动？
代码怎么写？
--  作者：有点蓝
--  发布时间：2019/1/21 15:28:00
--  
参考http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77745

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=83396&skin=0
--  作者：zto001
--  发布时间：2019/1/21 15:46:00
--  

设置或取消开机启动

 

Dim starupPath = ProjectPath & "xxx.exe"

Dim loca = Microsoft.Win32.Registry.LocalMachine
Dim run = loca.CreateSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run")

\'run.SetValue("我的项目", False) \'取消开机运行
run.SetValue("我的项目", starupPath) \'设置开机运行
loca.Close()



可以写在任意一个地方，比如afterOpenProject就可以