安装瑞星杀毒软件-已解决问题区-AUTOIT CN

52874597 发表于 2009-6-16 14:21:14

安装瑞星杀毒软件

#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:524558832http://hi.baidu.com/tiger35

kn007 发表于 2009-6-16 16:16:07

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

faceyao 发表于 2009-6-16 20:10:27

代码很长，慢慢研究

lynfr8 发表于 2009-6-16 22:33:22

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

页: [1]

AUTOIT CN's Archiver

安装瑞星杀毒软件