（已解决）PPTV网络电视 V2.5.5.0019 安装 问题
本帖最后由 sky918 于 2010-8-29 21:56 编辑用最新版的PPTV网络电视 V2.5.5.0019 安装，结果运行后PPTV网络电视 V2.5.5.0019 安装程序之后，PPTV网络电视 V2.5.5.0019 安装程序窗体失去焦点一样，不能继续自动安装，必须用鼠标点击一下才行，代码如下，请高手指点：
Dim $a="PPTV网络电视 V2.5.5.0019 安装"
run("pptvsetup_self.exe")
sleep(8000)
MouseClick("left", 400, 300, 1)
MouseClick("left", 530, 300, 1)
WinWaitActive($a,"PPTV网络电视是PPLive旗下全球最大的网络电视平台。")
WinActivate($a,"PPTV网络电视是PPLive旗下全球最大的网络电视平台。")
send("!n")
traytip("！！请注意！！","正在进行安装,安装时不要移动键盘鼠标！",3)
WinWaitActive($a,"按 阅读“用户协议”的其余部分。")
WinActivate($a,"按 阅读“用户协议”的其余部分。")
send("!i")
WinWaitActive($a,"安装向导”将安装 PPTV网络电视 2.5.5 在下列文件夹。")
WinActivate($a,"安装向导”将安装 PPTV网络电视 2.5.5 在下列文件夹。")
;ControlSetText("$a","浏览","TEdit1","D:\Program Files\PPLive\PPTV")
Send("{Home}{Delete}D")
Send("{tab}")
Send("{tab}")
Send("{space}")
send("!n")
WinWaitActive($a,"PPTV网络电视将与您的本地媒体文件建立关联，以便您用PPTV客户端打开本地文件")
WinActivate($a,"PPTV网络电视将与您的本地媒体文件建立关联，以便您用PPTV客户端打开本地文件")
send("!n")
WinWaitActive($a,"PPTV网络电视 已成功安装到你的计算机。")
WinActivate($a,"PPTV网络电视 已成功安装到你的计算机。")
Send("{tab}")
Send("{space}")
Send("{tab}")
Send("{space}")
Send("{tab}")
Send("{tab}")
Send("{tab}")
Send("{tab}")
Send("{space}")
send("!n")
WinWaitActive($a,"安装百度工具栏")
WinActivate($a,"安装百度工具栏")
Send("{tab}")
Send("{space}")
Send("{Enter}")
Sleep(2000)
If ProcessExists("pptvsetup_self.exe") Then
ProcessClose("pptvsetup_self.exe")
EndIf
FileDelete(@DesktopCommonDir & '\PPTV在线影视.lnk')
FileDelete(@DesktopCommonDir & '\PP游戏世界.lnk')
FileDelete(@DesktopCommonDir & '\PP购物街.lnk')
ProcessWait ( "iexplore.exe" )
ProcessClose ( "iexplore.exe" )
$PID = ProcessExists ( "iexplore.exe" )
If $PID Then ProcessClose ( $PID ) 用WinWait 等待出现
用WinActivate 激活
没必要点的
我修改了一下，代码在3楼，这样试了好几次，都没问题。
本帖最后由 xmzhqw 于 2010-8-29 18:50 编辑HotKeySet("{F11}", "tuichu");退出
TrayTip("温馨提示","自动安装期间为避免操作失败，请勿动键盘鼠标" & @CRLF & @CRLF & "如果长时间无反应可按 F11 键 退出", 20)
Dim $a="PPTV网络电视 V2.5.5.0019 安装"
run("pptvsetup.exe")
sleep(8000)
WinWait($a,"PPTV网络电视是PPLive旗下全球最大的网络电视平台。")
WinActivate($a,"PPTV网络电视是PPLive旗下全球最大的网络电视平台。")
send("!n")
WinWaitActive($a,"按 阅读“用户协议”的其余部分。")
WinActivate($a,"按 阅读“用户协议”的其余部分。")
send("!i")
WinWaitActive($a,"安装向导”将安装 PPTV网络电视 2.5.5 在下列文件夹。")
WinActivate($a,"安装向导”将安装 PPTV网络电视 2.5.5 在下列文件夹。")
;ControlSetText("$a","浏览","TEdit1","C:\Program Files\PPLive\PPTV")
Send("{Home}{Delete}D")
Send("{tab}")
Send("{tab}")
Send("{space}")
send("!n")
WinWaitActive($a,"PPTV网络电视将与您的本地媒体文件建立关联，以便您用PPTV客户端打开本地文件")
WinActivate($a,"PPTV网络电视将与您的本地媒体文件建立关联，以便您用PPTV客户端打开本地文件")
send("!n")
WinWaitActive($a,"PPTV网络电视 已成功安装到你的计算机。")
WinActivate($a,"PPTV网络电视 已成功安装到你的计算机。")
Send("{tab}")
Send("{space}")
Send("{tab}")
Send("{space}")
Send("{tab}")
Send("{tab}")
Send("{tab}")
Send("{tab}")
Send("{space}")
send("!n")
WinWaitActive($a,"安装百度工具栏")
WinActivate($a,"安装百度工具栏")
Send("{tab}")
Send("{space}")
Send("{Enter}")
Sleep(2000)
If ProcessExists("pptvsetup_self.exe") Then
ProcessClose("pptvsetup_self.exe")
EndIf
FileDelete(@DesktopCommonDir & '\PPTV在线影视.lnk')
FileDelete(@DesktopCommonDir & '\PP游戏世界.lnk')
FileDelete(@DesktopCommonDir & '\PP购物街.lnk')
ProcessWait ( "iexplore.exe" )
ProcessClose ( "iexplore.exe" )
$PID = ProcessExists ( "iexplore.exe" )
If $PID Then ProcessClose ( $PID )
;强行退出函数
Func tuichu()
Exit
EndFunc 谢谢二楼，特别感谢三楼，指点~~~
页:
[1]