分享迅雷最新版本Thunder7.1.0.1962.exe自动静默安装程序

hhghost · 发表于 2010-11-26 16:12:09

支持一下，好贵啊

hhghost · 发表于 2010-11-26 16:12:32

是隐藏后台运行的吗？

lufeng753 · 发表于 2010-11-29 10:03:30

好贵哦，还没源代码，不值

m765555 · 发表于 2010-12-4 11:26:29

楼主源码都不共享一下兄弟们，看看，晕，那你还叫什么共享哟？

icuit · 发表于 2010-12-11 16:55:33

强烈建议楼主开放源码

zhenyun168 · 发表于 2010-12-11 17:15:05

唉下了个却不能自动安装~！

joe7711 · 发表于 2010-12-17 22:22:32

已扣除金钱 15 块，现在将开始下载“迅雷.zip”。

如果 3 秒后下载仍未开始，请点击此链接

183712314 · 发表于 2010-12-18 15:00:47

回复 1# sanye000001

我们要看的是源码....你做的还要收钱..真是的
要共享就发源码好了

icuit · 发表于 2010-12-19 00:31:00

希望楼主上源码

183712314 · 发表于 2010-12-19 10:28:52

楼主不给,我给:

Opt("MouseCoordMode", 0)
Opt("WinTitleMatchMode", 2)
Dim $Title1 = "迅雷7安装程序"
Dim $Title2="迅雷7"
Dim $Text1= "软件许可协议"
Dim $Text2=""
Dim $Text3="C:\Program Files\Thunder Network\Thunder"

If Not FileExists(@ScriptDir&"\迅雷7.exe") Then
TrayTip("错误！","安装文件未找到!"&@CRLF&"5秒后自动退出", 5, 1)
Sleep(3000)
Exit
EndIf
Run(@ScriptDir&"\迅雷7.exe")
TrayTip("提示", "最好关闭安全软件,以免影响自动安装效果"&@CRLF&"自动安装期间,请勿动键盘鼠标", 5, 1)
Sleep(3000)

WinWaitActive($Title1, $Text1)
ControlClick($Title1, $Text1, "Button1")

WinWaitActive($Title1, $Text3)
ControlClick($Title1, $Text3, "Button7")
Sleep(500)
ControlClick($Title2, $Text2, "Button2")
WinWaitActive($Title1, $Text3)
ControlClick($Title1, $Text2, "Button1")
Sleep(500)
ControlClick($Title2, $Text2, "Button2")

WinWaitActive($Title1, $Text2)
While 1
        If ControlGetHandle($Title1,'','Button4') Then ExitLoop
        Sleep(200)
WEnd
ControlClick($Title1, $Text2, "Button4")
ControlClick($Title1, $Text2, "Button5")
ControlClick($Title1, $Text2, "Button1")

TrayTip("提示", "已经安装完成", 3, 1)
Sleep(3000)
Exit

本人博客有下载地址:
http://hi.baidu.com/183712314/bl ... b0720fa8d31185.html

icuit · 发表于 2010-12-19 15:51:39

楼主分享一下源码吧

harrye9016 · 发表于 2011-1-5 02:13:50

希望楼主上源码给大家学习下

yxx163 · 发表于 2011-1-5 09:33:06

实用价值不大

yxx163 · 发表于 2011-1-5 09:33:17

实用价值不大

gzh888666 · 发表于 2011-1-16 21:30:50

这个还要无源，很无语，真是神马都是浮云

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

[原创] 分享迅雷最新版本Thunder7.1.0.1962.exe自动静默安装程序