查看完整版本: AU3-冰点自动取消保护

AU3-冰点自动取消保护

$PAW = INIREAD ("dfauto.ini","DF密码","DF密码",@ScriptDir)
IF $paw <> ""Then
a()
ElseIf $paw = ""Then
b()
EndIf
FUNC a()
send("{shiftdown}")
send("{ctrldown}")
send("{altdown}")
send("{f6}")
send("{shiftup}")
send("{ctrlup}")
send("{altup}")
WinWaitActive("Deep Freeze 2000XP")
ControlSetText("Deep Freeze 2000XP","","TEdit1",$paw)
sleep(300)
send("{enter}")
sleep(500)
ControlClick("Deep Freeze 2000XP", "","TRadioButton2")
sleep(300)
ControlClick("Deep Freeze 2000XP", "","TButton6")
sleep(500)
send("{enter}")
shutdown(2)
ENDFUNC

FUNC b()
$pass = inputbox("密码","请输入DF管理密码","","*",200,120)
$paw = iniwrite ("dfauto.ini","DF密码","DF密码",$pass)
ENDFUNC

好久不来了.兄弟.顶一下.这个好.

谢似水年华,又向你学一招