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

自动安装WebThunder

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

路过 看看 {:face (356):}

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

支持一下~~~
页: [1]
查看完整版本: 自动安装WebThunder