flkxtwrz 发表于 2009-4-2 22:38:09

新手pplive2.自动安装

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=ppstreamsetup.ICO
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
;定义变量
$variable0="PPLive 2.2 安装"
$variable1="PPLive 2.2 安装"
$variable2="选择安装位置"
$variable3="选择文件关联"
$variable4="选择附加任务"
$variable5="常用软件推荐"
$variable6="PPS 完成安装"
$variable7="运行 PPLive 2.2(&R)"
$variable8="启动 Windows 时自动运行 PPLive"
$variable9="正在完成“PPLive 2.2”安装向导"
$variable10="PP加速器"

$directory="D:\软件\pplive网络电视"


AdlibEnable("Kill")
;pps
;主程序
Run("pplivesetup.exe")
TrayTip("正在安装","PPLive 2.2 安装",10,1)
WinWaitActive($variable0)
Send("!n")
;接受协议
send("!i")
WinWaitActive($variable0,$variable2)
ControlSetText($variable0,$variable2,"Edit1",$directory)
Send("!n")
send("!i")
WinWaitActive($variable0,$variable9)
ControlClick($variable0,$variable9,"Button4")
ControlClick($variable0,$variable9,"Button5")
send("!f")
WinWaitActive($variable0,$variable10)
send("{ENTER}")
WinWaitActive($variable0,$variable5)
Send("{tab}")
Send("{SPACE}")
Send("{tab}")
Send("{SPACE}")
Send("{tab}")
Send("{SPACE}")
if ProcessExists("notepad.exe") Then ProcessClose("notepad.exe");阻止文档弹出

;循环检测函数,处理意外中断
Func Kill()
   If ProcessExists("iexplore.exe") Then ProcessClose("iexplore.exe");阻止IE弹出,填写默认浏览器进程即可
      If WinExists("安装Google工具栏","免费的Google工具栏") Then ;阻止google工具栏
                ControlClick("安装Google工具栏","免费的Google工具栏","Button4")
                Send("!i")
      ElseIf WinExists($variable0,$variable5)Then ;阻止精品安装软件推荐
                Send("{space}{tab}{space}")
                Send("!i")
        EndIf
       
EndFunc
配套客户端:http://download.pplive.com/pplivesetup_2.2.0.0006.exe

flkxtwrz 发表于 2009-5-2 22:34:06

:face (15):
页: [1]
查看完整版本: 新手pplive2.自动安装