360安全卫士自动化安装无法进行下一步
我的源代码run("setup.exe")
WinWaitActive(" 360安全卫士 6.0.0.1003 安装")
send("!N")
WinWaitActive(" 3360安全卫士 6.0.0.1003安装","最终用户授权协议")
send("!I")
WinWaitActive(" 3360安全卫士 6.0.0.1003安装","选择安装位置")
send("d:\Program Files\360safe\")
send("!I")
WinWaitActive(" 3360安全卫士 6.0.0.1003安装","正在完成“360安全卫士”安装向导")
send("{SPACE}{tab}{SPACE}")
send("!F")
可是进展到附件上，鼠标就停在那个协议内容上1 上，无法进展下一步。请问如何解决 run("setup.exe")
WinWaitActive(" 360安全卫士 6.0.0.1003 安装")
send("!N")
WinWaitActive(" 360安全卫士 6.0.0.1003安装","最终用户授权协议")
send("!I")
WinWaitActive(" 360安全卫士 6.0.0.1003安装","选择安装位置")
send("d:\Program Files\360safe\")
send("!I")
WinWaitActive(" 360安全卫士 6.0.0.1003安装","正在完成“360安全卫士”安装向导")
send("{SPACE}{tab}{SPACE}")
send("!F") $title=' 360安全卫士 6.0.0.1003 安装'
Run("360safe.exe","")
TrayTip("提示:正在进行"&$title&"..", "请勿动鼠标和键盘，以免造成错误操作", 3)
WinWaitActive($title,'下一步(&N) >')
WinActivate($title,'下一步(&N) >')
ControlClick($title,'下一步(&N) >','Button2','left')
WinWaitActive($title,'我接受(&I)')
WinActivate($title,'我接受(&I)')
ControlClick($title,'我接受(&I)','Button2','left')
WinWaitActive($title,'< 上一步(&P)')
WinActivate($title,'< 上一步(&P)')
ControlClick($title,'< 上一步(&P)','Button2','left')
WinWaitActive($title,'360安全卫士保险箱安装设置')
WinActivate($title,'360安全卫士保险箱安装设置')
FileInstall("config.ini",@ProgramFilesDir&"\360\360Safe\SoftMgr\")
ControlClick($title,'下一步(&N) >','Button4','left')
ControlClick($title,'下一步(&N) >','Button2','left')
WinWaitActive($title,'完成(&F)')
WinActivate($title,'完成(&F)')
ControlClick($title,'完成(&F)','Button4','left')
Sleep(100)
ControlClick($title,'完成(&F)','Button5','left')
Sleep(100)
ControlClick($title,'完成(&F)','Button2','left') Run("setup.exe")
traytip(" 360安全卫士自动安装","自动安装期间请勿做其它操作,否则有可能安装失败",15)
$bt=" 360安全卫士"
;MsgBox(0,RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\360Safe\360krnlsvc\softmgrs","ImagePath"),"")
;if RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\360Safe\360krnlsvc\softmgrs","ImagePath")<>"" Then
WinWaitActive($bt,"检测到已安装360安全卫士，您确定要继续覆盖安装吗？")
ControlClick($bt, "", "Button2")
WinWaitActive($bt,"欢迎使用“360安全卫士”安装向导")
ControlClick($bt,"下一步(&N) >","Button2")
WinWaitActive($bt,"最终用户授权协议")
ControlClick($bt,"我接受(&I)","Button2")
WinWaitActive($bt,"请选择安装位置")
ControlSetText($bt,"目标文件夹","Edit1","D:\Program Files\360\360Safe")
ControlClick($bt,"安装(&I)","Button2")
WinWaitActive($bt,"正在完成“360安全卫士”安装向导")
Send('!N')
Send('!f')
WinWaitActive($bt,"你的系统需要重新启动，以便完成“360安全卫士”的安装。现在要重新启动吗？")
Send('!N')
FileDelete(@DesktopDir&"\360软件管家.lnk")
FileDelete(@DesktopDir&"\360保险箱.lnk")
FileDelete(@DesktopDir&"\修复360安全卫士.lnk") 应该能解决的了 我试验了无法运行下去 我试验了无法运行下去
zzq1234567890 发表于 2009-9-20 18:26 http://www.autoitx.com/images/common/back.gif
无言中。。。。。。。。。。。。。。。。。。。。。 本帖最后由 wwcbjs 于 2009-9-21 02:08 编辑
Run ("setup.exe")
Dim $AQ="360安全卫士"
$WS=" 360安全卫士"
If Winwait($AQ,"检测到已安装",5) Then
ControlCommand($AQ,"检测到已安装","Button2","Check")
EndIf
WinWaitActive($WS,"欢迎使用",5)
ControlCommand($WS,"欢迎使用","Button2","Check")
WinWaitActive($WS,"最终用户授权协议")
ControlCommand($WS,"最终用户授权协议","Button2","Check")
WinWaitActive($WS,"请选择安装位置")
$ver = DriveGetDrive("FIXED")
Select
Case $ver>= 2
ControlSetText($WS,"请选择安装位置","Edit1","D:\Program Files\360\360Safe")
ControlCommand($WS,"请选择安装位置","Button2","Check")
Case $ver < 2
ControlCommand($WS,"请选择安装位置","Button2","Check")
Case $ver = 0
MsgBox(0, "硬盘检测", "您的硬盘还没有分区")
ProcessClose("setup.exe")
EndSelect
WinWaitActive($WS,"正在完成",10)
ControlCommand($WS,"正在完成","Button2","Check")
If WinWaitActive($WS,"你的系统需要重新启动",5) Then
ControlCommand($WS,"你的系统需要重新启动","Button2","Check")
EndIf亲自测试，由于我的系统为widnows 7所以360保险箱无法安装故此请自己写一下！这个是由于我是重新安装360写的代码！绝对可行！
其中有检测分区，从而选择安装地点，意思是如果有分区大于或者等于2就安装到D盘，如果硬盘未分区则提示，且关闭安装！如果硬盘有一个分区则安装到原目录！部分代码还没写完，我是安装过360的 肯定和没安装过360的机器不一样！ (" 360安全卫士 6.0.0.1003 安装")第一个引号后面有个空格的，
我也试过一次这样的，加个空格就可以了 :face (31):WinWaitActive(" 3360安全卫士 6.0.0.1003安装","最终用户授权协议")
你的标题填写错了!
页:
[1]