各位大哥：能帮小妹看下这个脚本错在哪？谢谢啦
大致功能是：下载软件，然后自动安装，但是自己写的这个只能下载，安装过程却完成不了，谁能帮我看下哪里错了，谢谢大家了o(∩_∩)o...Dim $under, $upon, $per, $res, $filesize, $Inetget, $setup;定义变量
InetGet("http://download.iciba.com/upwl/powerwordlite.28747.0.exe", "powerwordlite.28747.0.exe", 1, 1)
$setup = "powerwordlite.28747.0.exe"
$under = InetGetSize($Inetget) ;获取目标文件大小
InetGet($Inetget, $setup, 1, 1) ;下载目标文件
While @InetGetActive ;判定循环条件
Sleep(100)
$upon = @InetGetBytesRead ;获取已下载大小
$per = $upon / $under * 100 ;计算比值
$res = StringLeft($per, 3) ;计算百分值
GUICtrlSetData(-1, $res) ;下载进度的值
WEnd
DirRemove("C:\Program Files\Kingsoft",1)
Run ("powerwordlite.38410.0.exe")
WinSetState("谷歌金山词霸合作版 安装", "欢迎使用 谷歌金山词霸合作版 安装向导", @SW_SHOW)
$cap = "谷歌金山词霸合作版 安装"
Sleep(35)
Opt("WinTitleMatchMode", 2)
Sleep(16)
For $iTrans = 0 to 8 Step 1
WinSetTrans($cap, "", $iTrans)
Next
WinWaitActive ("谷歌金山词霸合作版 安装","欢迎使用 谷歌金山词霸合作版 安装向导")
ControlClick ("谷歌金山词霸合作版 安装","欢迎使用 谷歌金山词霸合作版 安装向导","Button2","left","1")
Send ("{ENTER}")
WinWaitActive ("谷歌金山词霸合作版 安装","在安装“谷歌金山词霸合作版”之前，请阅读授权协议")
ControlCommand ("谷歌金山词霸合作版 安装","在安装“谷歌金山词霸合作版”之前，请阅读授权协议","Button4","Check","")
ControlClick ("谷歌金山词霸合作版 安装","在安装“谷歌金山词霸合作版”之前，请阅读授权协议","Button2","left","1")
Send ("{ENTER}")
WinWaitActive ("谷歌金山词霸合作版 安装","选择“谷歌金山词霸合作版”的安装文件夹")
ControlClick ("谷歌金山词霸合作版 安装","选择“谷歌金山词霸合作版”的安装文件夹","Button2","left","1")
Sleep ("13000")
WinWaitActive ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项")
ControlClick ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项","Button4","left","1")
ControlClick ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项","Button5","left","1")
ControlClick ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项","Button7","left","1")
ControlClick ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项","Button2","left","1")
WinWaitActive ("谷歌金山词霸合作版 安装","“谷歌金山词霸合作版”已安装在你的系统")
ControlCommand ("谷歌金山词霸合作版 安装","“谷歌金山词霸合作版”已安装在你的系统","Button4","UnCheck","")
ControlCommand ("谷歌金山词霸合作版 安装","“谷歌金山词霸合作版”已安装在你的系统","Button5","UnCheck","")
ControlClick ("谷歌金山词霸合作版 安装","“谷歌金山词霸合作版”已安装在你的系统","Button2","left","1")
Sleep ("3000")
FileDelete(@DesktopDir&"\谷歌金山词霸合作版.exe.lnk")
:face (37): InetGet("http://download.iciba.com/upwl/powerwordlite.28747.0.exe", "powerwordlite.28747.0.exe", 1, 1)
。。。。。。
Run ("powerwordlite.38410.0.exe")
运行的文件名与下载的不一致 还有WinWaitActive用来做判断，多用WinActivate 主动去激活目标窗口，不要被动地用WinWaitActive等待手工激活 本帖最后由 d12990 于 2009-8-25 16:46 编辑
感谢楼上的，多谢了！。。。
还有个小问题，在启动安装界面时候，想实现窗口界面透明效果，该怎么写代码呢，在做其他的事情，比如玩游戏时，那些窗口一闪一闪看着很不舒服，。。
我试过用WinSetTrans 但是只能使后面几个窗口透明，第一个启动窗口还是不行，会闪一下，望指点，谢谢啦
这是我写的代码
Run ("powerwordlite.28747.0.exe")
WinActivate ("谷歌金山词霸合作版 安装","欢迎使用 谷歌金山词霸合作版 安装向导")
WinSetTrans ("谷歌金山词霸合作版 安装","欢迎使用 谷歌金山词霸合作版 安装向导",1)
ControlClick ("谷歌金山词霸合作版 安装","欢迎使用 谷歌金山词霸合作版 安装向导","Button2","left","1")
WinActivate ("谷歌金山词霸合作版 安装","在安装“谷歌金山词霸合作版”之前，请阅读授权协议")
WinSetTrans ("谷歌金山词霸合作版 安装","在安装“谷歌金山词霸合作版”之前，请阅读授权协议",1)
ControlCommand ("谷歌金山词霸合作版 安装","在安装“谷歌金山词霸合作版”之前，请阅读授权协议","Button4","Check","")
ControlClick ("谷歌金山词霸合作版 安装","在安装“谷歌金山词霸合作版”之前，请阅读授权协议","Button2","left","1")
WinActivate ("谷歌金山词霸合作版 安装","选择“谷歌金山词霸合作版”的安装文件夹")
WinSetTrans ("谷歌金山词霸合作版 安装","选择“谷歌金山词霸合作版”的安装文件夹",1)
ControlClick ("谷歌金山词霸合作版 安装","选择“谷歌金山词霸合作版”的安装文件夹","Button2","left","1")
Sleep ("13000")
WinActivate ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项")
WinSetTrans ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项",1)
ControlClick ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项","Button4","left","1")
ControlClick ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项","Button5","left","1")
ControlClick ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项","Button7","left","1")
ControlClick ("谷歌金山词霸合作版 安装","安装程序已经正确完成，请最后确认以下选项","Button2","left","1")
WinActivate ("谷歌金山词霸合作版 安装","“谷歌金山词霸合作版”已安装在你的系统")
WinSetTrans ("谷歌金山词霸合作版 安装","“谷歌金山词霸合作版”已安装在你的系统",1)
ControlCommand ("谷歌金山词霸合作版 安装","“谷歌金山词霸合作版”已安装在你的系统","Button4","UnCheck","")
ControlCommand ("谷歌金山词霸合作版 安装","“谷歌金山词霸合作版”已安装在你的系统","Button5","UnCheck","")
ControlClick ("谷歌金山词霸合作版 安装","“谷歌金山词霸合作版”已安装在你的系统","Button2","left","1")
页:
[1]