（已解决）PPTV网络电视 V2.5.5.0019 安装 问题

sky918

用最新版的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,"按 [PgDn] 阅读“用户协议”的其余部分。")
WinActivate($a,"按 [PgDn] 阅读“用户协议”的其余部分。")
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 )

xyold1

用WinWait 等待出现

用WinActivate 激活

没必要点的

xmzhqw

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,"按 [PgDn] 阅读“用户协议”的其余部分。")
WinActivate($a,"按 [PgDn] 阅读“用户协议”的其余部分。")
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

sky918

谢谢二楼，特别感谢三楼，指点~~~