京少 发表于 2008-5-5 22:57:23

公安软件自动安装

公安软件自动安装：

$1=MsgBox(4, "开始安装", "安装完成后电脑将自动重启 "&@CRLF&"是否继续", 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 发表于 2008-5-5 23:02:27

这些东西好吗?
比较敏感的!
:face (31):

流浪的风 发表于 2008-5-6 10:22:18

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

freedom 发表于 2008-5-6 12:11:20

原帖由 jnw2000 于 2008-5-5 23:02 发表 http://www.autoitx.com/images/common/back.gif
这些东西好吗?
比较敏感的!
:face (31):

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

bob 发表于 2008-5-8 15:18:01

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

ollydbg 发表于 2008-5-10 22:26:12

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

xhjs123456 发表于 2008-8-27 13:34:54

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

derek5 发表于 2011-7-19 00:57:18

软件名称很BT

shuidi33 发表于 2012-1-18 20:51:29

代码学习了

zhangxiaodi 发表于 2012-7-18 09:54:58

为什么没有连续安装的{:face (382):}

baozhiwen 发表于 2013-3-26 10:55:31

看看认真学习学习
页: [1]
查看完整版本: 公安软件自动安装