AntiVir小红伞可以做出一键安装吗??

小弟用AUTOIT ..

访客只能看到部份内容，免费 加入会员

x0

我是用autoit用的

下面是我的code

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
; ----------------------------------------------------------------------------
; Set up our defaults/Variables
; ----------------------------------------------------------------------------
AutoItSetOption("WinTitleMatchMode", 1)
$SF= "Setup.exe"                        ;安装档案
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------

Run($SF)

WinWaitActive("Avira AntiVir Personal - Free Antivirus")
sleep(500)
ControlClick("Avira AntiVir Personal - Free Antivirus","","Button1")

DO

WinSetOnTop("Avira AntiVir Personal – Free Antivirus","",1)

$SPPB=ControlGetText("Avira AntiVir Personal – Free Antivirus","","Button2")

Until $SPPB = "下一步(&N) >"


WinActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!n")

WinActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!n")

WinWaitActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!a")
sleep(500)
Send("!n")

WinWaitActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
ControlClick("Avira AntiVir Personal – Free Antivirus","","Button1")
sleep(500)
ControlClick("Avira AntiVir Personal – Free Antivirus","","Button4")

WinActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!n")

WinActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!n")


DO

WinSetOnTop("Avira AntiVir Personal – Free Antivirus","",1)

$SPPB=ControlGetText("Avira AntiVir Personal – Free Antivirus","","Button12")

Until $SPPB = "完成"


WinWaitActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("{space}")
sleep(500)
ControlClick("Avira AntiVir Personal – Free Antivirus","","Button12")

WinWaitActive("Setup of Avira AntiVir Personal – Free Antivirus")
sleep(500)
ControlClick("Setup of Avira AntiVir Personal – Free Antivirus","","Button2")

DO

WinSetOnTop("Luke Filewalker","",1)

$SPPB=ControlGetText("Luke Filewalker","","Button2")

Until $SPPB = "&End"

WinWaitActive("Luke Filewalker")
sleep(500)
ControlClick("Luke Filewalker","","Button2")


＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

x0

谢谢大大帮忙

x0

感谢分享..不知是否可以简单教一下怎么做呢...
尤其是AutoItSetOption("WinTitleMatchMode", 1)..不太懂哩

x0

http://www.dreams8.com/autoit/


x0