AU3-系统自动登陆设置工具 系统, 工具, 自动, 登陆, 设置

似水年华

#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

lantu

学习了，很好的代码啊　　

lc29171519

正在学习班，谢谢
是不是INNO的呢？