小试牛刀刚学AU3自己制作的迅雷7

sunnday · 发表于 2011-4-28 16:55:03

$Teet="迅雷7安装程序"
$Teet1="软件许可协议"
$Teet2="迅雷7"
$Teet3=""

ShellExecute("Thunder.exe","",@ScriptDir,"open")

WinWait($Teet,$Teet1)
If Not WinActivate($Teet,$Teet1) Then WinActivate($Teet,$Teet1)
WinWaitActive($Teet,$Teet1)
ControlClick($Teet,$Teet1,"Button1")

WinWait($Teet,$Teet3)
If Not WinActivate($Teet,$Teet3) Then WinActivate($Teet,$Teet3)
WinWaitActive($Teet,$Teet3)
ControlSetText($Teet,$Teet3,"Edit1","d:\Program Files\Thunder")
ControlClick($Teet,$Teet3,"Button7")

WinWait($Teet2)
If Not WinActivate($Teet2) Then WinActivate($Teet2)
WinWaitActive($Teet2)
Send("{ENTER}")
ControlClick($Teet,$Teet3,"Button1")
Send("{ENTER}")

WinWait($Teet)

While 1
If ControlGetHandle($Teet,$Teet3,"[CLASS:Button; INSTANCE:4]") Then ExitLoop
Sleep(500)
WEnd
ControlClick($Teet,$Teet3,"[CLASS:Button; INSTANCE:4]")
ControlClick($Teet,$Teet3,"[CLASS:Button; INSTANCE:5]")
ControlClick($Teet,$Teet3,"[CLASS:Button; INSTANCE:1]")

ProcessWaitClose("Thunder.exe")

FileDelete(@DesktopCommonDir & "\迅雷看看-免费高清电影.lnk")
FileDelete(@DesktopCommonDir & "\迅雷高清影片免费下载.lnk")

Exit

如果有什么问题请大家及时告诉我

sunnday · 发表于 2011-4-28 16:56:26

刚刚学习AU3自己做的作业，如果有什么问题还请大家多包涵和及时提出。。。

touch_xu · 发表于 2011-4-28 21:33:50

一看标题，我以为你用AU3开发了个迅雷7

喀喇喀喇 · 发表于 2011-4-29 07:49:48

支持一下，呵呵

3mile · 发表于 2011-4-29 09:42:18

终于明白什么叫标题党了

chinafla · 发表于 2011-4-29 10:54:00

哈哈我也在想哇模拟多线程下载

magus · 发表于 2011-4-29 11:23:20

标题不全...我还以为楼主做了一个迅雷7呢...

sunnday · 发表于 2011-4-29 17:19:46

回复 6# chinafla

呵呵

sunnday · 发表于 2011-4-29 17:20:11

回复 2# sunnday

搞错请谅解

hzxymkb · 发表于 2011-5-4 10:31:54

再标题党的话我咔嚓哈！

sunnday · 发表于 2011-5-4 14:59:15

回复 10# hzxymkb

抱歉下次不会了

yarsye · 发表于 2011-5-4 15:13:47

吓我一跳！

yinbinly · 发表于 2011-5-4 23:27:59

我还以为迅雷7被AU3山寨了啊

xrzmjz · 发表于 2011-5-21 09:26:09

我还以为楼主用AU3写了个迅雷7呢

和谐 · 发表于 2011-5-22 16:18:33

呵呵标题党有点夸张

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

[原创] 小试牛刀刚学AU3自己制作的迅雷7

评分

[原创] 小试牛刀 刚学AU3自己制作的迅雷7

评分

[原创] 小试牛刀刚学AU3自己制作的迅雷7