以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 老师,下面的语句写不到win10的启动项,是什么原因呢? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195875) |
-- 作者:xxfoxtable -- 发布时间:2025/3/17 9:39:00 -- 老师,下面的语句写不到win10的启动项,是什么原因呢? Dim starupPath = ProjectPath & "自动备份管理系统.exe" MessageBox.Show(starupPath) Dim loca = Microsoft.Win32.Registry.LocalMachine Dim run = loca.CreateSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run") \'run.SetValue("自动备份管理系统", False) \'取消开机运行 run.SetValue("自动备份管理系统", starupPath) \'设置开机运行 loca.Close() |
-- 作者:有点蓝 -- 发布时间:2025/3/17 10:13:00 -- 参考:http://www.foxtable.com/webhelp/topics/2051.htm 运行代码的程序要设置为“以管理员身份运行” Registry.SetValue("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Run","自动备份管理系统",starupPath)
|
-- 作者:xxfoxtable -- 发布时间:2025/3/17 12:45:00 -- 我的路径是E:\\开发\\自动备份\\自动备份系统\\Publish\\自动备份管理系统.exe ApplicationPath & "自动备份管理系统.exe" 生成的目录是E:\\开发\\自动备份\\自动备份系统\\Publish\\project\\自动备份管理系统.exe 这怎么解决?
|
-- 作者:有点蓝 -- 发布时间:2025/3/17 13:15:00 -- 【ApplicationPath & "自动备份管理系统.exe"】绝对不可能是Publish\\project\\里的路径 |
-- 作者:xxfoxtable -- 发布时间:2025/3/17 13:43:00 -- ![]() ![]() 真的是这样
|
-- 作者:有点蓝 -- 发布时间:2025/3/17 13:47:00 -- 请认真仔细逐个字符核对我给的代码和你自己的代码 |
-- 作者:xxfoxtable -- 发布时间:2025/3/17 15:39:00 -- 老师,删除注册表这个记录,怎么写代码? |
-- 作者:有点蓝 -- 发布时间:2025/3/17 15:57:00 -- 设置为空值 Registry.SetValue("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Run","自动备份管理系统","")
|