公安软件自动安装

京少

公安软件自动安装：

$1=MsgBox(4, "开始安装", "安装完成后电脑将自动重启 "[email=&@CRLF]&@CRLF[/email]&"是否继续", 5)
if $1<7 Then
run("setup.exe")
EndIf
if $1=7 Then
MsgBox(4096, "安装结束", "你已取消了安装程序将退出", 2)
exit
EndIf
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","欢迎使用 iKeeper网络安全管理系统")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button1")
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","我同意该许可协议的条款")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button5")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button1")
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","请输入您的用户信息并单击")
ControlSetText("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","名称","Edit1","嘻笑网吧")
ControlSetText("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","公司","Edit2","沸点网络")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button5")
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","请阅读下面的信息")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button1")
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码")
$bm = IniRead("config.ini","fdwl","网吧编码","编号错误")
$ip = IniRead("config.ini","fdwl","计费中心IP地址","ip错误")
$lnk = IniRead("config.ini","fdwl","是否生成快捷方式","请输入0或1")
$ybt = IniRead("config.ini","fdwl","安装英保通补丁","请输入0或1")
$cn=RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName","computername")
$bh = stringright($cn,2)
ControlSetText("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","网吧编码","Edit1",$bm)
ControlSetText("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","网吧编码","Edit2",$bh)
ControlSetText("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","计费中心IP地址","Edit3",$ip)
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button5")
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","选择选项")
if $lnk=0 then
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button5")
endif
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button1")
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","如果您的计算机是英保通专用")
if $ybt=1 then
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button5")
endif
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button1")
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","选择安装文件夹")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button1")
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","快捷方式文件夹")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button1")
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","准备安装")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","","Button1")
WinWaitActive("iKeeper网络安全管理系统 客户端保护 安装程序","选择安装文件夹")
ControlClick("iKeeper网络安全管理系统 客户端保护 安装程序","","Button1")
WinWaitActive("iKeeper网络安全管理系统 客户端保护 安装程序","准备安装")
ControlClick("iKeeper网络安全管理系统 客户端保护 安装程序","","Button1")

jnw2000

这些东西好吗?
比较敏感的!

流浪的风

看着头有点痛。。。复杂了。。。。感觉有点难.........

freedom

原帖由 jnw2000 于 2008-5-5 23:02 发表
这些东西好吗?
比较敏感的!

应该没什么问题,一套网吧管理软件而已.

bob

iKeeper网络安全管理系统 网吧版 计费客户端 安装程序
这一串字咋不用一个变量表示
看得眼花

ollydbg

建议将 WinWaitActive 后最好加上个等待时间，时间长一点无所谓。保证脚本在特殊情况下也能正常使用。

xhjs123456

网吧编码和服务器IP 在那里修改？？？？

derek5

软件名称很BT

shuidi33

代码学习了

zhangxiaodi

为什么没有连续安装的

baozhiwen

看看认真学习学习