找回密码
 加入
搜索
查看: 7579|回复: 11

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

[复制链接]
发表于 2008-8-26 20:36:13 | 显示全部楼层 |阅读模式
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")
不太会弄,可能有的地方啰嗦,不够简练,但确保能用。
发表于 2008-8-26 21:14:34 | 显示全部楼层
暴风老的版本是有静默按照参数的,不知道目前的"高精版"怎么样了

用control*** 系列支持后台,
发表于 2008-9-3 12:39:38 | 显示全部楼层
好用不!现拿去看看
发表于 2008-9-3 19:16:46 | 显示全部楼层
可以是可以安装但是他没有判断功能!比如如果安装了就停止在安装!
发表于 2008-9-3 23:44:03 | 显示全部楼层
本人认为不要用鼠标模拟比较好,,  呵呵。。
发表于 2008-9-3 23:45:02 | 显示全部楼层
If WinActive("安装 暴风影音 3.6 智能高清版","您的机器已安装了暴风影音,是否进行覆盖安装?") Then
    ControlClick("您的机器已安装了暴风影音,是否进行覆盖安装?","[class:Button;instance:1]")
        MouseClick("left", 474, 424, 1)
EndIf
  你这一句话也解决了我的烦恼, 谢谢了。
发表于 2008-9-3 23:47:03 | 显示全部楼层
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语句 因为这个界面如果在没网络连接的机器就不会显示出来。但是我不会写。。 等高手来解决吧。。  
发表于 2008-9-4 00:08:56 | 显示全部楼层
我把我些的提取你写的比较好的地方加进去应该算比较完美了。 呵呵
代码如下

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}")
发表于 2008-9-5 15:56:00 | 显示全部楼层
对不要鼠标抄作比较好!因为有的显示不一样 像我这个网吧的22的显示器到后面根本用不了的
发表于 2008-9-5 16:22:57 | 显示全部楼层

回复 9# hejiefanfan 的帖子

用相对坐标就不会有这个问题
发表于 2008-9-5 16:27:04 | 显示全部楼层
嗯啊!但是还是让他静态化安装比较好!
发表于 2008-9-5 18:03:51 | 显示全部楼层
$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/")
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-3-29 17:02 , Processed in 0.081945 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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