开机运行判断
本帖最后由 sliqi 于 2009-4-30 00:26 编辑大体意思
运行程序后则判断注册表启动项有没有该程序值。
如果没有则通过
msgbox提示 点击确定就添加一个注册表启动项，点击取消就不添加。
以后每次开机运行如果有就不提示，没有则通过msgbox提示```
-------自己弄了一会，始终都弄不好。
请高人放个代码看看。谢谢！ 应该不难吧.不过这个脚本得在启动项里面才能开机运行
$read=RegRead ( "键名", "值项" )
If $read= "" Then
MsgBox (1,"没有发现","没有发现那个东东哦")
EndIf
If @error = 1 Then RegWrite ("","","",")
Else
exit
endif ;提示增加启动项
$onerun = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","wallpaper")
$runmsg = MsgBox(1+64+4096,"提醒", "请点击[确定] 程序将开机运行！")
if $runmsg = 1 then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","wallpaper","REG_SZ",@AutoItExe)
EndIf
现在是可以了。但是每次开机运行都会提示msgbox
现在就是如果发现注册表里有启动项，就不在提示。如果没有则提示msgbox 本帖最后由 yeqing880 于 2009-4-29 23:44 编辑
If $read= "" Then
MsgBox (1,"没有发现","没有发现那个东东哦")
EndIf
还没看明白啊老大,如果没有发现才提示啊
如果有的话就直接退出了 查看注册表 没有查到这个键值会返回0
先看看帮助文档再说吧 返回值
成功: 返回指定值项的数据. @EXTENDED 设置类型为 $REG_... 值的类型,这些类型定义于 "Constants.au3" 包含文件.
失败: 返回空字符串 "",并把 @error 设为以下值之一:
1 如果不能打开被请求的键
2 如果不能打开被请求的主键
3 如果不能远程连接到注册表
-1 如果不能打开被请求的值
-2 如果值的类型是不支持的
返回空字符吧? 那在msgbox点击确定就新建一个，取消就退出呢？
；；；；MsgBox(1+64+4096,"提醒", "请点击[确定] 程序将开机运行！") 确定是@error=1
取消是@error=2
那就就通过@error=1或者@error=2来判断 谢谢，问题已经搞定了。
dim $onerun, runmsg
;提示增加启动项
$onerun = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","wallpaper")
If $onerun= "" Then
$runmsg=MsgBox(1+32,"提醒", "请点击[确定] 程序将跟随系统自动启动！")
EndIf
Select
Case $runmsg=1
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","wallpaper","REG_SZ",@AutoItExe)
MsgBox(64,"提示","程序跟随系统启动设置成功！")
Case $runmsg=2
MsgBox(48,"提示","程序已退出！")
EndSelect
页:
[1]