开机运行判断

sliqi · 发表于 2009-4-29 21:49:04

本帖最后由 sliqi 于 2009-4-30 00:26 编辑

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

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

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

yeqing880 · 发表于 2009-4-29 23:19:11

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

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

sliqi · 发表于 2009-4-29 23:35:28

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

本帖最后由 yeqing880 于 2009-4-29 23:44 编辑

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

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

如果有的话就直接退出了

xrbenbeba · 发表于 2009-4-29 23:50:04

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

yeqing880 · 发表于 2009-4-29 23:52:54

返回值

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

返回空字符吧?

sliqi · 发表于 2009-4-29 23:53:40

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

yeqing880 · 发表于 2009-4-29 23:55:07

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

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

sliqi · 发表于 2009-4-30 00:25:49

谢谢，问题已经搞定了。

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

		自动登录	找回密码
密码			加入