Foxtable(狐表)用户栏目专家坐堂 → 开机启动


  共有2055人关注过本帖树形打印复制链接

主题:开机启动

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
开机启动  发帖心情 Post By:2019/2/22 17:25:00 [只看该作者]

老师看了这个帖子,

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73350&replyID=&skin=1

 

我设置了,代码放在afterOpenProject,开机没有自动启动哪儿有问题?

 

Dim starupPath = ProjectPath & "集团OA系统.exe"

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

'run.SetValue("集团OA系统", False) '取消开机运行
run.SetValue("集团OA系统", starupPath) '设置开机运行
loca.Close()


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/22 17:28:00 [只看该作者]

这个代码只是添加一个启动项。重启电脑看有没有启动

 回到顶部