windows自动登陆设置工具
代码如下： #NoTrayIcon ;===>不显示托盘图标 $welcom = msgbox (4,"windows自动登陆设置工具","本向导将引导您设置自动登陆") if $welcom=6 then ;=>是 begin() ;=>自定义涵数 Else Exit endif Func begin() $box = regread ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","DefaultUserName") ;=======>读注册表值 $name = inputbox ("自动登设置","请输入您要自动登陆的用户名",$box,"",200,100) ;=====>输入框在默认文本里显示上一行读到的值 $pass = inputbox ("自动登设置","请输入您要自动登陆的用户密码","","*",200,100) ;===>转入框字符以*号代替 if $name <> "" and $pass <> "" Then ;=======>如果$name 和$pass 都不等于空 $rady=MsgBox(4 , "自动登陆设置", "所有的输入都正确吗？") if $rady=6 Then regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","DefaultUserName","reg_sz",$name) ;====>把前面输入的值写入注册表 regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","DefaultPassWord","reg_sz",$pass) ;====>把前面输入的值写入注册表 regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon","AutoAdminLogon","reg_sz","1") ;====>新建一个键值 $exit =msgbox (4,"恭喜你！","所有的设置都很成功重启之后就能生效了确定要重启系统吗？") if $exit = 6 Then shutdown (6) elseif $exit = 7 Then Exit EndIf elseif $rady=7 Then begin() endif Else error() EndIf EndFunc Func error() ;==>纠错的自定义涵数 $error=msgbox (4,"出错拉！","您可能没有输入用户名或密码,是否重新输入") if $error = 6 Then begin() Else Exit EndIf EndFunc |
查看所有评论
All Right Reserved