|
BlockInput(1)
$bmh = IniRead(@ScriptDir & "\config.ini", "setup", "bm", "")
$ip = IniRead(@ScriptDir & "\config.ini", "setup", "ip", "")
$mc =("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序")
$mc2 =("iKeeper网络安全管理系统 客户端保护")
$khdbm=@ComputerName
MsgBox (0+32,"合创科技","2009年IKEEPER全自动安装程序",1)
run("setup.exe")
WinWaitActive($mc,"欢迎")
ControlClick($mc,"欢迎",1017)
sleep(500)
ControlClick($mc,"许可协议",1396)
sleep(500)
ControlClick($mc,"许可协议",1017)
sleep(500)
ControlClick($mc,"用户信息",1017)
sleep(500)
ControlClick($mc,"信息",1017)
sleep(500)
ControlSetText($mc,"输入网吧编码","Edit1",$bmh)
sleep(2000)
ControlSetText($mc,"输入网吧编码","Edit2",$khdbm)
sleep(100)
ControlSetText($mc,"输入网吧编码","Edit3",$ip)
sleep(2000)
send("{enter}")
ControlClick($mc,"选择选项",1012)
sleep(500)
ControlClick($mc,"选择选项",1017)
sleep(500)
send("{enter}")
sleep(500)
ControlClick($mc,"安装文件夹",1017)
sleep(500)
ControlClick($mc,"快捷方式文件夹",1017)
sleep(500)
ControlClick($mc,"准备安装",1017)
sleep(500)
ControlClick("错误","执行文件错误。",1)
WinWaitActive($mc2,"安装文件夹")
sleep(500)
ControlClick($mc2,"安装文件夹",1017)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","ReportBootOK","REG_SZ",0)
$var = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\Select", "Default")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\Select","LastKnownGood","REG_DWORD",$var)
WinWaitActive($mc2,"准备安装")
send("{enter}")
exit
我这个是做给网吧用的 模拟手动操作的安装IK8的
但是 IK8升级后,我又不想恢复系统再来装IK8.我想直接覆盖只用把计算机启动起来
但是我发现IK8锁屏后,这个程序不会自动运行.这个脚本被IK8的锁屏给挡住了.
能有办法实现后台安装吗?
或者是激活脚本自动运行. |
|