|
|
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\ico\storm.ico
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
$variable0="安装 暴风影音2009"
$variable1="欢迎安装 暴风影音2009"
$variable2="许可证协议"
$variable3="选择组件和需要创建的快捷方式"
$variable4="选择安装位置"
$variable5="暴风影音推荐 - 装机必备"
$variable6="暴风影音2009[3.09.06.25] 安装完成"
$variable7=""
$variable8=""
$variable9=""
$directory="C:\Program Files\StormII"
AdlibEnable("KillIE")
opt("mousecoordmode",2)
Run("Storm2009.exe")
TrayTip("正在安装","暴风影音2009请稍后......",10,1)
WinWaitActive($variable0,$variable1)
Send("!n")
WinWaitActive($variable0,$variable2)
ControlClick($variable0,$variable2,"Button2")
WinWaitActive($variable0,$variable3)
MouseMove(0, 0,2)
MouseClick("left", 190, 171, 1)
MouseClick("left", 224, 186, 1)
MouseClick("left", 224, 203, 1)
ControlClick($variable0,$variable3,"Button2")
WinWaitActive($variable0,$variable4)
ControlSetText($variable0,$variable4,"Edit1",$directory)
ControlClick($variable0,$variable4,"Button2")
sleep(300)
WinWaitActive($variable0,$variable6)
ControlClick($variable0,$variable6,"Button4")
ControlClick($variable0,$variable6,"Button2")
sleep(3000)
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
EndIf
Func KillIE()
If ProcessExists("iexplore.exe") Then ProcessClose("iexplore.exe")
If WinExists("安装 暴风影音2009","免费的Google工具栏，搜索更简单") Then
ControlClick("安装 暴风影音2009","免费的Google工具栏，搜索更简单","Button4")
Send("!i")
ElseIf WinExists($variable0,$variable5)Then
Send("{SPACE}{TAB}{SPACE}{TAB}{SPACE}")
Send("!n")
EndIf
EndFunc
最新版的安装脚本，唯一不足的就是会自动弹出防火墙设置的没有弄了。自己手动点击一下吧。
以下是自动设置暴风影音的脚本。因为自己是菜鸟所以呢脚本也比较菜，不过能达到目的就行了。。。
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\ico\23.ico
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
TrayTip("注意:","正在设置暴风影音2009请稍后......",10,1)
opt("mousecoordmode",2)
run("C:\Program Files\StormII\Storm.exe")
Sleep(5000)
msgBox(0,"提示：本窗口五钟内自动关闭","请手动点击暴风影视黑色播放区域否则无法继续","5")
WinActivate("暴风影音","展示页")
MouseMove(0, 0,2)
MouseClick("left", 415, 17, 1)
MouseClick("left", 460, 200, 1)
MouseMove(0, 0,2)
sleep(4000)
MouseClick("left", 180, 200, 1)
MouseClick("left", 35, 174, 1)
MouseClick("left", 180, 70, 1)
MouseClick("left", 180, 150, 1)
MouseClick("left", 180, 333, 1)
MouseClick("left", 35, 250, 1)
MouseClick("left", 180, 70, 1)
MouseClick("left", 35, 350, 1)
MouseClick("left", 180, 68, 1)
MouseClick("left", 180, 94, 1)
MouseClick("left", 435, 390, 1)
sleep(1000)
MouseMove(0, 0,2)
MouseClick("left", 507, 17, 1) |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？加入
×
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-7-7 17:19:52
.gif)
高，我也试试
发表于 2009-7-8 14:16:29