安装pps的自动程序

52874597

有望大家改进

#include <Process.au3> 
HotKeySet("{ESC}", "esctuichu") ;按esc退出
TrayTip("", "正在程序", 5)

;#cs
If FileExists("D:\DOWNLOADS\ppstreamsetup.rar") Then
;run("D:\DOWNLOADS\ppstreamsetup.rar")
TrayTip("", "正在打开程序", 5)
;_RunDos("start D:\DOWNLOADS\ppstreamsetup.rar")

send("#r")
sendcn("D:\DOWNLOADS\ppstreamsetup.rar")
send("{enter}")




TrayTip("", "正在打开压缩程序", 5)
WinWaitActive("ppstreamsetup.rar - WinRAR");等待主窗口
TrayTip("", "等待 PPPS压缩软件", 5)
sleep("100")
send("{down}{enter}")



WinWaitActive("PPS");等待主窗口
TrayTip("", "等待 PPPS V2.6.86.8800 正式版", 5)
sleep("100")

;Opt("WinTitleMatchMode", 2) ; 匹配子字符串
;WinSetTrans("PPS", "", 200) 
;WinSetTrans("ppstreamsetup.rar - WinRAR", "", 200)
;WinSetTrans("您已成功安装PPS网络电视", "", 200)


send("!N")
WinWaitActive("PPS");等待主窗口
TrayTip("", "等待 PPS", 5)
send("!N")
WinWaitActive("PPS");等待主窗口
TrayTip("", "等待 PPS", 5)
send("!N")
WinWaitActive("PPS");等待主窗口
TrayTip("", "等待 PPS", 5)
send("{tab}{tab}{space}{tab}{space}{tab}{space}!n")

WinWaitActive("安装Google工具栏");等待主窗口
TrayTip("", "去掉 安装Google工具栏", 5)
ControlClick("安装Google工具栏","免费的Google工具栏","Button4")
sleep("500")
send("!i")

WinWaitActive("PPS","PPS 完成安装");等待主窗口
TrayTip("", "PPS 完成安装", 5)
ControlClick("PPS","PPS 完成安装","Button4")
ControlClick("PPS","PPS 完成安装","Button7")
ControlClick("PPS","PPS 完成安装","Button2")
WinWaitActive("您已成功安装PPS网络电视")
WinClose("您已成功安装PPS网络电视")
WinWaitActive("ppstreamsetup.rar - WinRAR")
WinClose("ppstreamsetup.rar - WinRAR")
Else
    MsgBox(4096,"D:\DOWNLOADS\ppstreamsetup.exe", "D盘没有下载pps，或不在这个路径D:\DOWNLOADS\ppstreamsetup.exe")
EndIf
;#ce



Func Sendcn($Str)
For $i = 1 To StringLen($Str)
    Send('{ASC ' & StringToBinary(StringMid($Str, $i, 1) & ' ') & '}')
   Next
EndFunc   ;==>SendCN
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;退出
Func esctuichu()
        TrayTip("", "程序马上退出......", 5)
sleep(500)
    Exit 0
EndFunc

;v9.6.16   QQ:524558832  http://hi.baidu.com/tiger35

kn007

发错地方了，发到自动安装，别乱发