自动安装WebThunder

沙同 · 发表于 2008-5-5 22:08:59

MsgBox(0, "安装说明", "5秒后自动安装 WebThunder1.12.3.214 版",5)
Run("WebThunder.exe")
WinWaitActive("安装WEB迅雷","欢迎使用“WEB迅雷”安装向导")
send("!n")
WinWaitActive("安装WEB迅雷","许可证协议")
send("!i")
WinWaitActive("安装WEB迅雷","免费Google Toolbar for Internet")
ControlClick("安装WEB迅雷","不安装Google工具栏","Button7")
ControlClick("安装WEB迅雷","下一步(&N) >","Button2")
WinWaitActive("安装WEB迅雷","选择安装位置")
send("!i")
sleep(25000)
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
EndIf
FileDelete(@DesktopDir&"\免费高清电影.lnk")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","WebThunder")

[ 本帖最后由沙同于 2008-5-12 20:06 编辑 ]

颜勇 · 发表于 2010-11-15 21:33:11

呵呵没人定你啊我顶你

hanzhou919 · 发表于 2010-12-6 02:50:26

哈哈。新手有才

5i5wei · 发表于 2010-12-12 21:56:08

路过看看

xinhongsen · 发表于 2013-9-21 13:44:18

精神上支持一下

joyran · 发表于 2014-3-2 00:01:28

路过，看看

htmgyv · 发表于 2017-4-19 21:43:23

这个有什么用？

Mika · 发表于 2017-5-11 19:44:26

支持一下~~~

		自动登录	找回密码
密码			加入

[原创] 自动安装WebThunder