暴风影音3 高清智能[3.08.05.15版] au3源码-『软件安装』-AUTOIT CN

slxwyd 发表于 2008-8-26 20:36:13

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

http://www.baofeng.com/down.html
从官方网站下载最新的高清智能版所写的代码
自动安装在D盘原目录下
用鼠标键清除了谷歌、以及所有附带的垃圾软件
采用1024*768分辨率一次通过（在宽屏下安装也正常）。
Run(@ScriptDir & "\Storm3.exe")
If WinActive("安装暴风影音 3.6 智能高清版","您的机器已安装了暴风影音，是否进行覆盖安装？") Then
ControlClick("您的机器已安装了暴风影音，是否进行覆盖安装？","")
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 发表于 2008-8-26 21:14:34

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

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

hejiefanfan 发表于 2008-9-3 12:39:38

好用不！现拿去看看

hejiefanfan 发表于 2008-9-3 19:16:46

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

hack087 发表于 2008-9-3 23:44:03

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

hack087 发表于 2008-9-3 23:45:02

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

hack087 发表于 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语句因为这个界面如果在没网络连接的机器就不会显示出来。但是我不会写。。等高手来解决吧。。:face (33):

hack087 发表于 2008-9-4 00:08:56

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

run("Storm3_193.exe")
If WinActive("安装暴风影音 3.6 智能高清版","您的机器已安装了暴风影音，是否进行覆盖安装？") Then
ControlClick("您的机器已安装了暴风影音，是否进行覆盖安装？","")
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 发表于 2008-9-5 15:56:00

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

78391493 发表于 2008-9-5 16:22:57

回复 9# hejiefanfan 的帖子

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

hejiefanfan 发表于 2008-9-5 16:27:04

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

hejiefanfan 发表于 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/")

页: [1]

AUTOIT CN's Archiver

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

回复 9# hejiefanfan 的帖子