求高手帮忙修改一下代码

lenglaoda

求高手帮忙修改一下代码
$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,3)
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")


以上代码不知道那点出了错，不能正常工作，希望高手帮忙修改一下！

sanhen

给个建议楼主，求教自动安装代码的。
最好能提供软件的下载地址或者软件的官方网站。这样别人才好帮你测试。

131738

给个建议楼主，求教自动安装代码的。
最好能提供软件的下载地址或者软件的官方网站。这样别人才好帮你测试。
sanhen 发表于 2009-4-28 22:17

就是！这样是看不出什么明堂的！