|
$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 6")
ControlSetText("Deep Freeze 6","","TEdit1",$paw)
sleep(300)
send("{enter}")
sleep(500)
ControlClick("Deep Freeze 6", "","TRadioButton2")
sleep(300)
ControlClick("Deep Freeze 6", "","TButton6")
sleep(500)
send("{enter}")
shutdown(2)
ENDFUNC
FUNC b()
$pass = inputbox("密码","请输入DF管理密码","","*",200,120)
$paw = iniwrite ("dfauto.ini","DF密码","DF密码",$pass)
ENDFUNC
[ 本帖最后由 coolfier 于 2009-4-2 18:04 编辑 ] |
|