yamhpsxn 发表于 2011-3-19 10:05:32

暴风影音2011自动安装脚本

$t="安装"
$T2="暴风"
$T3="安装 暴风影音"
run("Storm2011.exe")

WinWaitActive($t,"欢迎")
ControlClick ($t,"欢迎","Button2")
WinWaitActive($t,"许可证协议")
ControlClick ($t,"许可证协议","Button2")
WinWaitActive($t,"选择组件")
ControlClick ($t,"选择组件","Button2")
WinWaitActive($t,"选择安装位置")
ControlClick ($t,"选择安装位置","Button2")

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

;MsgBox(4096, "~o~", "安装进行中", 0)
WinWait($t3,"全新暴风")
If Not WinActive($t3,"在线视频") Then WinActive($t3,"在线视频")
ControlClick ($t3,"全新暴风","Button5")
ControlClick ($t3,"全新暴风","Button6")
ControlClick ($t3,"全新暴风","Button2")

FileDelete(@DesktopDir&"\免费影视.lnk")
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")
FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\暴风休闲游戏中心.lnk")

;盒子设置
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")exit

wsfda 发表于 2011-3-19 11:24:23

支持楼主..

a85848059 发表于 2011-3-19 18:25:21

真好 謝謝版大

zm5268 发表于 2011-4-22 22:25:28

看起来很不错，我也来学习学习。。。

pingfan5888 发表于 2011-7-7 10:18:38

呵，，，，劫持啊。。。
页: [1]
查看完整版本: 暴风影音2011自动安装脚本