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

似水年华

#INCLUDE <XSKIN.AU3>
#NOTRAYICON


Dim $strusername,$regpath,$DataType="REG_SZ"

$regpath="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
$strUserName = regread($regpath,"DefaultUserName")


Fileinstall("0.bmp",@TempDir & "\0.bmp",1)
Fileinstall("1.bmp",@TempDir & "\1.bmp",1)
Fileinstall("2.bmp",@TempDir & "\2.bmp",1)
Fileinstall("3.bmp",@TempDir & "\3.bmp",1)
Fileinstall("4.bmp",@TempDir & "\4.bmp",1)
Fileinstall("5.bmp",@TempDir & "\5.bmp",1)
Fileinstall("6.bmp",@TempDir & "\6.bmp",1)
Fileinstall("7.bmp",@TempDir & "\7.bmp",1)
Fileinstall("Skin.dat",@TempDir & "\Skin.dat",1)
Fileinstall("HeavenlyBodies1.bmp",@TempDir & "\HeavenlyBodies1.bmp",1)
Fileinstall("HeavenlyBodies2.bmp",@TempDir & "\HeavenlyBodies2.bmp",1)

;GUI模块

$Skin_Folder = @TempDir
$Icon_Folder = @TempDir
$XSkinGui = XSkinGUICreate("AutoLogon № 网管吧-oiic.NET",275,155, $Skin_Folder)
$XIcon = XSkinIcon($XSkinGui, 2)
GUIctrlcreatelabel("username:",20,50,100,20)
guictrlsetfont(-1,12,400)
$i1=GUIctrlcreateinput($strusername,100,50,150,20)
GUIctrlcreatelabel("password:",20,80,100,20)
guictrlsetfont(-1,12,400)
$i2=GUICtrlCreateInput("",100,80,150,20,$ES_PASSWORD)
$oiic=GUIctrlcreatelabel("网管吧-oiic.NET",20,120,100,20)
guictrlsetcolor(-1,0x0000ff)
GUIctrlSetCursor(-1,0)
$b1=GUICtrlCreateButton("重 设",120,110,60,25)
$b2=GUICtrlCreateButton("设 置",190,110,60,25)
guisetstate()

;写注册核心模块，呵呵

func regadd($regkey,$regdata)
regwrite($regpath,$regkey,$datatype,$regdata)
endfunc

func reg()
$strnewuser=guictrlread($i1)
$strPassword=guictrlread($i2)
regadd("AutoAdminLogon","1")
if $strnewuser = $struserName then
regadd("DefaultUserName",$strUserName)
else
regadd("DefaultUserName",$strnewUser)
endif
regadd("DefaultPassword",$strPassword)
endfunc

;循环模块

while 1
    $msg=guigetmsg()
         select
              case $msg=$gui_event_close
                      exit
              case $msg=$b2
                   reg()
              case $msg=$b1
                guictrlsetdata($i1,$strusername)
                guictrlsetdata($i2,"")
              case $msg=$oiic
              $url="http://www.oiic.net"
     run(@ProgramFilesDir & "\\Internet Explorer\\IEXPLORE.EXE -new " & $url)
     case $msg = $XIcon[1]
      Exit
     case $msg = $XIcon[2]
     GUISetState(@SW_MINIMIZE)
     endselect
wend