安装瑞星杀毒软件

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")
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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


If FileExists("F:\ravol09.exe") Then

TrayTip("", "正在打开程序", 5)
$filedir="F:\ravol09.exe"
send("#r")
sendcn("F:\ravol09.exe")
send("{enter}")



WinWaitActive("自动安装程序");等待主窗口
TrayTip("", "等待 自动安装程序 安装", 5)
sleep("100")


WinWaitActive("瑞星杀毒软件");等待主窗口
TrayTip("", "等待 瑞星杀毒软件 安装", 5)
ControlClick("瑞星杀毒软件","","Button3")
ControlClick("瑞星杀毒软件","","Button1")

WinWaitActive("瑞星杀毒软件");等待主窗口
TrayTip("", "等待 瑞星杀毒软件 安装", 5)
ControlClick("瑞星杀毒软件","","Button2");下一步(&N)

WinWaitActive("瑞星杀毒软件");等待主窗口
TrayTip("", "等待 瑞星杀毒软件 安装", 5)
ControlClick("瑞星杀毒软件","","Button6");我接受(&A)  
ControlClick("瑞星杀毒软件","","Button2");下一步(&N)

WinWaitActive("瑞星杀毒软件");等待主窗口
TrayTip("", "等待 瑞星杀毒软件 安装", 5)
ControlClick("瑞星杀毒软件","","Button2");下一步(&N)

WinWaitActive("瑞星杀毒软件");等待主窗口
TrayTip("", "等待 瑞星杀毒软件 安装", 5)
ControlClick("瑞星杀毒软件","","Button2");下一步(&N)

WinWaitActive("瑞星杀毒软件");等待主窗口
TrayTip("", "等待 瑞星杀毒软件 安装", 5)
ControlClick("瑞星杀毒软件","","Button2");下一步(&N)

WinWaitActive("瑞星杀毒软件");等待主窗口
TrayTip("", "等待 瑞星杀毒软件 安装", 5)
ControlClick("瑞星杀毒软件","","Button2");下一步(&N)

WinWaitActive("瑞星杀毒软件");等待主窗口
TrayTip("", "等待 瑞星杀毒软件 安装", 5)
ControlClick("瑞星杀毒软件","","Button13");跳过 瑞星内存病毒查杀
ControlClick("瑞星杀毒软件","","Button2");下一步(&N)

if(WinWaitActive("Windows 文件保护","正常运行 Windows 所需"))Then
ControlClick("Windows 文件保护","","Button3");取消
sleep("500")
ControlClick("Windows 文件保护","","Button1");yes
EndIf


WinWaitActive("瑞星杀毒软件");等待主窗口
TrayTip("", "等待 瑞星杀毒软件 安装", 5)
ControlClick("瑞星杀毒软件","","Button16");去掉重启
ControlClick("瑞星杀毒软件","","Button3");完成


Else
    MsgBox(4096,"rising2009", "f盘没有下载rising，或不在这个路径")
EndIf



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

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

faceyao

代码很长，慢慢研究

lynfr8

瑞星这个国产东东....用微点的飘过...