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

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

$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,"") Then ExitLoop
        Sleep(500)
WEnd
ControlClick($Teet,$Teet3,"")
ControlClick($Teet,$Teet3,"")
ControlClick($Teet,$Teet3,"")

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

呵呵标题党有点 夸张
页: [1] 2 3
查看完整版本: 小试牛刀 刚学AU3自己制作的迅雷7