开机运行判断

sliqi

大体意思
运行程序后则判断注册表启动项有没有该程序值。
如果没有则通过
msgbox提示 点击确定就添加一个注册表启动项，点击取消就不添加。

以后每次开机运行如果有就不提示，没有则通过msgbox提示```

-------自己弄了一会，始终都弄不好。
请高人放个代码看看。谢谢！

yeqing880

应该不难吧.不过这个脚本得在启动项里面才能开机运行


$read=RegRead ( "键名", "值项" )
If $read= "" Then
MsgBox (1,"没有发现","没有发现那个东东哦")
EndIf
If @error = 1 Then RegWrite ("","","",")
    Else
exit
endif

sliqi

;提示增加启动项
$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

If $read= "" Then
MsgBox (1,"没有发现","没有发现那个东东哦")
EndIf

还没看明白啊老大,如果没有发现才提示啊

如果有的话就直接退出了

xrbenbeba

查看注册表 没有查到这个键值会返回0
先看看帮助文档再说吧

yeqing880

返回值

成功: 返回指定值项的数据. @EXTENDED 设置类型为 $REG_... 值的类型,这些类型定义于 "Constants.au3" 包含文件.
失败: 返回空字符串 "",并把 @error 设为以下值之一:
1 如果不能打开被请求的键  
2 如果不能打开被请求的主键  
3 如果不能远程连接到注册表  
-1 如果不能打开被请求的值  
-2 如果值的类型是不支持的  


返回空字符吧?

sliqi

那在msgbox点击确定就新建一个，取消就退出呢？
；；；；MsgBox(1+64+4096,"提醒", "请点击[确定] 程序将开机运行！")

yeqing880

确定是@error=1
取消是@error=2

那就就通过@error=1或者@error=2来判断

sliqi

谢谢，问题已经搞定了。

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