找回密码
 加入
搜索
查看: 2084|回复: 4

求助,暴风自动安装脚本问题

[复制链接]
发表于 2009-6-30 16:46:55 | 显示全部楼层 |阅读模式
Run("Storm2009")
WinWaitActive("安装 暴风影音2009","欢迎安装 暴风影音2009")
ControlClick("安装 暴风影音2009","欢迎安装 暴风影音2009","Button2")
WinWaitActive("安装 暴风影音2009 ","许可证协议")
ControlClick("安装 暴风影音2009","许可证协议","Button2")
WinWaitActive("安装 暴风影音2009 ","选择组件和需要创建的快捷方式")
ControlClick("安装 暴风影音2009","选择组件和需要创建的快捷方式","Button2")
WinWaitActive("安装 暴风影音2009 ","选择安装位置")
ControlSetText("安装 暴风影音2009 ","选择安装位置","Edit1","d:\Program Files\StormII\")
ControlClick("安装 暴风影音2009 ","选择安装位置","Button2")
WinWait("安装 暴风影音2009 ","安装Google工具栏")
send("{SPACE}")
后面的不贴了,到这里就不动了,而且把最后一句换成controlclick("安装 暴风影音2009 ","安装Google工具栏","button4")也不行,不知道WHY ,求解,谢谢
发表于 2009-7-1 09:56:36 | 显示全部楼层
本帖最后由 水木子 于 2009-7-1 09:57 编辑

建议尽量少用模拟鼠标按键,或给个“暴风影音2009”的下载链接,我帮你看看。
发表于 2009-7-2 19:06:23 | 显示全部楼层
发表于 2009-7-3 12:42:00 | 显示全部楼层
run("Storm2009-0625.exe")
WinWaitActive("安装 暴风影音2009","欢迎安装 暴风影音2009")
ControlClick("安装 暴风影音2009","欢迎安装 暴风影音2009","Button2")
WinWaitActive("安装 暴风影音2009","许可证协议")
ControlClick("安装 暴风影音2009","许可证协议","Button2")
WinWaitActive("安装 暴风影音2009","选择组件和需要创建的快捷方式")
ControlClick("安装 暴风影音2009","选择组件和需要创建的快捷方式","Button2")
WinWaitActive("安装 暴风影音2009","选择安装位置")
ControlSetTEXT("安装 暴风影音2009","选择安装位置","Edit1","d:\Program Files\StormII\")
ControlClick("安装 暴风影音2009","选择安装位置","Button2")
WinWAITactive("安装 暴风影音2009","免费的百度工具栏")
ControlClick("安装 暴风影音2009","免费的百度工具栏","Button4")
ControlClick("安装 暴风影音2009","免费的百度工具栏","Button2")
WinWaitActive("安装 暴风影音2009","酷狗音乐2008")
ControlClick("安装 暴风影音2009","酷狗音乐2008","Button4")
ControlClick("安装 暴风影音2009","酷狗音乐2008","Button5")
ControlClick("安装 暴风影音2009","酷狗音乐2008","Button6")
ControlClick("安装 暴风影音2009","酷狗音乐2008","Button2")
WinWaitActive("安装 暴风影音2009","安装完成")
ControlClick("安装 暴风影音2009","安装完成","Button4")
ControlClick("安装 暴风影音2009","安装完成","Button2")

这段代码我试过了,没问题。
发表于 2009-7-7 17:14:37 | 显示全部楼层
本帖最后由 lidenpan 于 2009-7-7 17:16 编辑

#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)
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-26 23:56 , Processed in 0.077987 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表