以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何判断项目是否自启动？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68101)
--  作者：yinyb36
--  发布时间：2015/5/10 7:02:00
--  [求助]如何判断项目是否自启动？
如题
--  作者：大红袍
--  发布时间：2015/5/10 9:25:00
--  
Dim loca_chek = Microsoft.Win32.Registry.LocalMachine
Dim run_Check = loca_chek.CreateSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run")
If (run_Check.GetValue("你设置的注册表名字") Is Nothing OrElse run_Check.GetValue("你程序的路径").ToString().ToLower() <> "你程序的路径")
    msgbox("不是自启动")
Else
    msgbox("是自启动")
End If
--  作者：大红袍
--  发布时间：2015/5/10 9:28: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()
--  作者：yinyb36
--  发布时间：2015/5/10 9:42:00
--  
多谢