暴风影音3 高清智能[3.08.05.15版] au3源码

slxwyd

http://www.baofeng.com/down.html
从官方网站下载最新的高清智能版  所写的代码
自动安装在D盘原目录下
用鼠标键清除了谷歌、以及所有附带的垃圾软件
采用1024*768分辨率 一次通过（在宽屏下安装也正常）。
Run(@ScriptDir & "\Storm3.exe")
If WinActive("安装 暴风影音 3.6 智能高清版","您的机器已安装了暴风影音，是否进行覆盖安装？") Then
    ControlClick("您的机器已安装了暴风影音，是否进行覆盖安装？","[class:Button;instance:1]")
        MouseClick("left", 474, 424, 1)
EndIf
WinWait("安装 暴风影音 3.6 智能高清版","欢迎安装 暴风影音 3.6 智能高清版")
WinWaitActive("安装 暴风影音 3.6 智能高清版","欢迎安装 暴风影音 3.6 智能高清版")
Send("!N")
WinWait("安装 暴风影音 3.6 智能高清版","许可证协议")
WinActivate("安装 暴风影音 3.6 智能高清版","许可证协议")
Send("!I")
WinWait("安装 暴风影音 3.6 智能高清版","选择安装位置")
WinWaitActive("安装 暴风影音 3.6 智能高清版","选择安装位置")
Send("d:\Program Files\StormII\")
Send("{TAB}")
Send("{SPACE}")
Send("{TAB}")
Send("{SPACE}")
Send("{TAB}")
Send("!N")
MouseClick("left", 621, 542, 1)
WinWait("安装 暴风影音 3.6 智能高清版","安装Google工具栏")
MouseClick("left", 307, 445, 1)
MouseClick("left", 625, 526, 1)
WinActivate("安装 暴风影音 3.6 智能高清版","正在安装")
WinWait("安装 暴风影音 3.6 智能高清版","暴风影音推荐绿色软件")
MouseClick("left", 459, 268, 1)
MouseClick("left", 459, 326, 1)
MouseClick("left", 459, 386, 1)
MouseClick("left", 459, 447, 1)
MouseClick("left", 625, 526, 1)
MouseClick("left", 625, 526, 1)
MouseClick("left", 450, 356, 1)
MouseClick("left", 625, 526, 1)
Send("!N")
Send("{SPACE}")
Send("!F")
不太会弄，可能有的地方啰嗦，不够简练，但确保能用。

gooker

暴风老的版本是有静默按照参数的,不知道目前的"高精版"怎么样了

用control*** 系列支持后台,

hejiefanfan

好用不！现拿去看看

hejiefanfan

可以是可以安装但是他没有判断功能！比如如果安装了就停止在安装！

hack087

本人认为不要用鼠标模拟比较好，，  呵呵。。

hack087

If WinActive("安装 暴风影音 3.6 智能高清版","您的机器已安装了暴风影音，是否进行覆盖安装？") Then
    ControlClick("您的机器已安装了暴风影音，是否进行覆盖安装？","[class:Button;instance:1]")
        MouseClick("left", 474, 424, 1)
EndIf
  你这一句话也解决了我的烦恼， 谢谢了。

hack087

WinWait("安装 暴风影音 3.6 智能高清版","暴风影音推荐绿色软件")
MouseClick("left", 459, 268, 1)
MouseClick("left", 459, 326, 1)
MouseClick("left", 459, 386, 1)
MouseClick("left", 459, 447, 1)
MouseClick("left", 625, 526, 1)
MouseClick("left", 625, 526, 1)
MouseClick("left", 450, 356, 1)
MouseClick("left", 625, 526, 1)
Send("!N")
   这些语句我觉的应该要加上 IF语句 因为这个界面如果在没网络连接的机器就不会显示出来。但是我不会写。。 等高手来解决吧。。  

hack087

我把我些的提取你写的比较好的地方加进去应该算比较完美了。 呵呵
代码如下

run("Storm3_193.exe")
If WinActive("安装 暴风影音 3.6 智能高清版","您的机器已安装了暴风影音，是否进行覆盖安装？") Then
    ControlClick("您的机器已安装了暴风影音，是否进行覆盖安装？","[class:Button;instance:1]")
        MouseClick("left", 474, 424, 1)
EndIf
WinWaitActive("安装 暴风影音 3.6 智能高清版","欢迎安装 暴风影音 3.6 智能高清版")
send("!n")
WinWaitActive("安装 暴风影音 3.6 智能高清版","许可证协议")
Send("{tab}{tab}{enter}")
WinWaitActive("安装 暴风影音 3.6 智能高清版","选择安装位置")
Send("{tab}{tab}{tab}{enter}")
WinWaitActive("安装 暴风影音 3.6 智能高清版","安装Google工具栏")
Send("{down}{i}")
WinWaitActive("安装 暴风影音 3.6 智能高清版","正在安装")
WinWait("安装 暴风影音 3.6 智能高清版","暴风影音推荐绿色软件")
MouseClick("left", 459, 268, 1)
MouseClick("left", 459, 326, 1)
MouseClick("left", 459, 386, 1)
MouseClick("left", 459, 447, 1)
MouseClick("left", 625, 526, 1)
MouseClick("left", 625, 526, 1)
MouseClick("left", 450, 356, 1)
MouseClick("left", 625, 526, 1)
TrayTip("安装提示", "正在安装还需要一步就完成了", 5, 1)
WinWaitActive("安装 暴风影音 3.6 智能高清版","备份安装程序")
send("{tab}{tab}{SPACE}{enter}")
WinWaitActive("安装 暴风影音 3.6 智能高清版","暴风影音 3.6 智能高清版")
send("{SPACE}{enter}")

hejiefanfan

对不要鼠标抄作比较好！因为有的显示不一样 像我这个网吧的22的显示器到后面根本用不了的

78391493

用相对坐标就不会有这个问题

hejiefanfan

嗯啊！但是还是让他静态化安装比较好！

hejiefanfan

$ie = IniRead("dy.ini","dy","url","1")
if FileExists ("C:\Program Files\StormII\") Then
Run ($ie)
Else
Run("dy.exe")
WinWaitActive("安装 暴风影音 3.6 智能高清版","欢迎安装 暴风影音 3.6 智能高清版")
Send("!N")
WinWaitActive("安装 暴风影音 3.6 智能高清版","许可证协议")
Send("!i")
WinWaitActive("安装 暴风影音 3.6 智能高清版","选择安装位置")
Send("!N")
WinWaitActive("安装 暴风影音 3.6 智能高清版","安装Google工具栏")
Send("{down}{i}")
WinActivate("安装 暴风影音 3.6 智能高清版","正在安装")
WinWait("安装 暴风影音 3.6 智能高清版","暴风影音推荐绿色软件")
MouseClick("left", 459, 268, 1)
MouseClick("left", 459, 326, 1)
MouseClick("left", 459, 386, 1)
MouseClick("left", 459, 447, 1)
MouseClick("left", 625, 526, 1)
MouseClick("left", 625, 526, 1)
MouseClick("left", 450, 356, 1)
MouseClick("left", 625, 526, 1)
TrayTip("安装提示", "正在安装还需要一步就完成了", 5, 1)
WinWaitActive("安装 暴风影音 3.6 智能高清版","备份安装程序")
send("{tab}{tab}{SPACE}{enter}")
WinWaitActive("安装 暴风影音 3.6 智能高清版","暴风影音 3.6 智能高清版")
send("{SPACE}{enter}")
Run ($ie)
EndIf
Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://192.168.0.252:8000/")