yamhpsxn 发表于 2010-1-28 11:24:39

暴风影音2012_自动安装脚本代码（断网安装效果会更好）

$t="安装"
$T2="暴风"
run("Storm2012.exe")

WinWaitActive($t,"欢迎")
ControlClick ($t,"欢迎","Button2")
WinWaitActive($t)
send("!n")
WinWaitActive($t)
send("!n")
WinWaitActive($t,"免费的百度工具栏")
ControlClick ($t,"免费的百度工具栏","Button4")
send("!i")

send("!d")
WinWait($t,"皮肤外观")
WinWaitActive($t,"皮肤外观")
send("!n")

WinWaitActive($t,$T2)
ControlClick ($t,$T2,"Button8")
ControlClick ($t,$T2,"Button2")

if WinWaitActive("找不到服务器 - Microsoft Internet Explorer")then WinClose ("找不到服务器 - Microsoft Internet Explorer")


FileDelete(@DesktopDir&"\免费影视.lnk")
FileDelete(@DesktopDir&"\暴风游戏.lnk")
FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\暴风游戏.lnk")
FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\免费影视.lnk")
FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\暴风影音.lnk")



run("C:\Program Files\StormII\Storm.exe")
WinWait($t2,"")
MsgBox(4096, "暴风自动安装", "暴风盒子出现,请点击“确定”按钮",0)

WinWaitActive($t2,"")
WinMove("暴风盒子", "", 525, 0, 476, 490)
MouseClick ( "left" , 988, 14 , 1)
WinMove("暴风影音", "", 0, 0, 524, 490)
MouseClick ( "left" , 417, 15 , 1)
MouseClick ( "left" , 468, 220 , 1)
MouseClick ( "left" , 90, 102 , 1)
MouseClick ( "left" , 191, 325 , 1)
MouseClick ( "left" , 260, 323 , 1)
MouseClick ( "left" , 343, 324 , 1)

MouseClick ( "left" , 54, 233 , 1)
MouseClick ( "left" , 245, 121 , 1)
MouseClick ( "left" , 245, 207 , 1)
MouseClick ( "left" , 182, 388 , 1)

MouseClick ( "left" , 86, 410 , 1)
MouseClick ( "left" , 245, 120 , 1)
MouseClick ( "left" , 245, 154 , 1)
MouseClick ( "left" , 180, 170 , 1)
ControlClick ("高级选项","","Button1")

WinWaitActive($t2,"")
MouseClick ( "left" , 421, 12 , 1)
send("x")
exit

永远爱你 发表于 2010-1-30 11:41:51

先留个脚丫研究研究...

永远爱你 发表于 2010-2-2 01:25:00

感觉你上面的那种效果差了一点.发一下我做的:face (10):$t="安装"
$T2="暴风"
run("Storm2012_3.exe")

WinWaitActive($t,"欢迎")
ControlClick ($t,"欢迎","Button2")
WinWaitActive($t)
send("!n")
WinWaitActive($t)
send("!n")
WinWaitActive($t,"免费的百度工具栏")
ControlClick ($t,"免费的百度工具栏","Button4")
send("!i")

send("!d")
WinWait($t,"皮肤外观")
WinWaitActive($t,"皮肤外观")
send("!n")

WinWaitActive($t,$T2)
ControlClick ($t,$T2,"Button8")
ControlClick ($t,$T2,"Button2")

if WinWaitActive("找不到服务器 - Microsoft Internet Explorer")then WinClose ("找不到服务器 - Microsoft Internet Explorer")


FileDelete(@DesktopDir&"\免费影视.lnk")
FileDelete(@DesktopDir&"\暴风游戏.lnk")
FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\暴风游戏.lnk")
FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\免费影视.lnk")
FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\暴风影音.lnk")

FileMove("C:\Program Files\StormII\box\Stline.exe", "C:\Program Files\")
Run("C:\Program Files\StormII\Storm.exe")
WinWait("暴风影音")
WinWaitActive("暴风影音")
Sleep(1000)
Send("o")
ControlClick("高级选项","","Button47")
ControlClick("高级选项","","Button46")
ControlClick("高级选项","","Button45")
ControlClick("高级选项","","Button17")
ControlClick("高级选项","","Button18")
ControlClick("高级选项","","Button20")
ControlClick("高级选项","","Button21")
ControlClick("高级选项","","Button8")
ControlClick("高级选项","","Button9")
ControlClick("高级选项","","Button10")
ControlClick("高级选项","","Button7")
ControlClick("高级选项","","Button5")
ControlClick("高级选项","","Button1")
Sleep(1000)
WinWaitActive("暴风影音")
ProcessClose("Storm.exe")
FileMove("C:\Program Files\Stline.exe", "C:\Program Files\StormII\box")

Myleaf 发表于 2010-2-15 20:33:37

3楼的，我略微修改了你的版本，为什么在断网的时候，弹出“皮肤外观”窗口后就不懂了呢，你看看我的代码：
$t="安装"

$T2="暴风"

run("Storm2010.exe")



WinWaitActive($t,"欢迎")

ControlClick ($t,"欢迎","Button2")

WinWaitActive($t)

send("!n")

WinWaitActive($t)

send("!n")

WinWaitActive($t,"免费的百度工具栏")

ControlClick ($t,"免费的百度工具栏","Button4")

send("!i")
Sleep(500)
WinWaitActive($t,"暴风影音推荐软件")

ControlClick ($t,"暴风影音推荐软件","Button4")
ControlClick ($t,"暴风影音推荐软件","Button5")
ControlClick ($t,"暴风影音推荐软件","Button6")

send("!n")



WinWait($t,"皮肤外观")

WinWaitActive($t,"皮肤外观")

send("!n")

WinWaitActive($t,$T2)

ControlClick ($t,$T2,"Button8")

ControlClick ($t,$T2,"Button2")

FileDelete(@DesktopDir&"\免费影视.lnk")

FileDelete(@DesktopDir&"\暴风游戏.lnk")

FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\暴风游戏.lnk")

FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\免费影视.lnk")

FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\暴风影音.lnk")

Sleep(2000)

ProcessClose("iexplore.exe")

Sleep(500)

FileMove("C:\Program Files\StormII\box\Stline.exe", "C:\Program Files\")

Sleep(1000)

Run("C:\Program Files\StormII\Storm.exe")

WinWait("暴风影音")

WinWaitActive("暴风影音")


Sleep(1000)
Send("o")

WinWait("高级选项")

ControlClick("高级选项","","Button17")

ControlClick("高级选项","","Button18")

ControlClick("高级选项","","Button20")
ControlClick("高级选项","","Button45")
ControlClick("高级选项","","Button46")
ControlClick("高级选项","","Button1")

Sleep(1000)


ProcessClose("Storm.exe")

FileMove("C:\Program Files\Stline.exe", "C:\Program Files\StormII\box")

7irclub 发表于 2010-2-20 16:40:59

一代比一代长呀。

SUOSUOCIWEI 发表于 2010-2-22 00:58:17

留个脚印！1

chainmart 发表于 2010-9-6 06:21:30

学习~学习~4楼确实可以研究下~

1楼顺下来~感觉是由易到难~

zhyi 发表于 2010-10-27 00:48:53

留个脚印好学习

wo9158303 发表于 2010-11-2 19:26:08

看看效果怎么样

landays 发表于 2010-11-3 02:38:40

2012版本都出了。。

chf0121 发表于 2010-11-3 16:25:58

学习啦谢谢

5i5wei 发表于 2010-11-4 16:00:55

学习了 谢谢 分享

5i5wei 发表于 2010-11-4 21:21:18

不错不错 {:face (332):}

颜勇 发表于 2010-11-13 10:07:15

过来随便看看

woku2538 发表于 2010-11-19 19:55:28

谢谢分享支持以下
页: [1] 2 3
查看完整版本: 暴风影音2012_自动安装脚本代码（断网安装效果会更好）