迅雷7自动安装源码

zhangchongzhi

谢谢了嗯。尤其是最后那个判断，我说我做的怎么也到不了最后。


这里的winwaitclose  是什么？？错了。。
我怎么也获取不了窗口的文本。只好用  WinWait($title,"")  ，你那个 winwait($title,"thunder") 能获取到？？

附上我做的：

#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=Thunder.exe|-1
#AutoIt3Wrapper_outfile=thundersetup.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

$title="迅雷7安装程序"

Run("thunder.exe")
;安装协议
WinWait($title,"软件许可协议")
ControlClick($title,"软件许可协议","Button1","left",1)
;安装目录
Sleep(3000)
WinWait($title,"")
ControlSetText($title,"","Edit1","C:\Program Files\Thunder Network\Thunder")
ControlClick($title,"","Button7","left",1)

   WinWait("迅雷7","")
   ControlClick("迅雷7","","Button2","left",1)
WinWait($title,"")
ControlClick($title,"","Button1","left",1)
   WinWait("迅雷7","")
   ControlClick("迅雷7","","Button2","left",1)

;完成
WinWait($title,"")
While  1
        If ControlGetHandle($title,"","Button4") Then exitloop
        Sleep(1000)
WEnd

ControlClick($title,"","Button4","left",1)
ControlClick($title,"","Button5","left",1)
ControlClick($title,"","Button1","left",1)

Exit

a677520

  能不能写个5.9的？

zm5268

看起来很不错，我也来学习学习。。。

a2295926

感谢高手分享,AU3学习中!

duyan

楼主辛苦了！我来学习下！

stock128

你好,怎么用最新版的迅雷Thunder7.2.3.3254.exe  最后一步还是不动的呢?

lgs0540

敢问'  '和"  "是不是一个效果啊.....
183712314 发表于 2010-12-19 15:30

    同问

nicky_926

不错不错，弄个自动安装

江甫杞令

打酱油的，混点分数提高下等级，谁然我是路过，但是也不是水帖子
Dragon Nest Gold,vindictus gold,swg credits,silkroad gold,NosTale Gold,Knight Noah,Eden Eternal gold, Elsword ED,tibia gold,shaiya gold,rs2 gold,rohan gold,RIFT Platinum,RIFT Plat,RIFT Gold,rappelz gold,rappelz rupees,perfect world gold,pw gold,Metin2 Yang,Metin2 Gold,maplestory mesos,mabinogi gold,lineage 2 adena,guild wars gold,ffxiv gil,ffxi gil,2moons dil, 4story money, 4story Luna, 4Story Gold, 9Dragons gold, Aion Kinah, Buy Aion Kinah, Buy Aion Gold, apb gold, Cabal Alz, Cabal Gold, dfo gold, dofus kamas, EVE ISK, eq2 plat,

nowicome

进来学习下，谢谢了

微笑炸弹

条件
msgbox(0,"系统提示","脚本即将运行，在此期间键盘和鼠标将被禁用",2)
BlockInput (1)
DirCreate("d:\迅雷")
FileInstall("Thunder.exe","d:\迅雷\",1)
WinMinimizeAll()
Run("d:\迅雷\Thunder.exe")
WinWait("迅雷7安装程序", "软件许可协议")
WinActivate("迅雷7安装程序", "软件许可协议")
controlclick("迅雷7安装程序", "软件许可协议","Button1")
Sleep(1000)
ControlSetText("迅雷7安装程序","","Edit1","D:\Program Files\Thunder Network\Thunder")
ControlClick("迅雷7安装程序","","Button7")
ControlClick("迅雷7安装程序","","Button1")
sleep(1000)
if winactive("迅雷7")Then
        send("{enter}")
EndIf
sleep(2000)
if winactive("迅雷7")Then
        send("{enter}")
EndIf
sleep(75000)
ControlClick("迅雷7安装程序","","Button4")
ControlClick("迅雷7安装程序","","Button7")
ControlClick("迅雷7安装程序","","Button1")
FileDelete(@DesktopDir&"\迅雷看看-免费高清电影.LNK")
FileDelete(@DesktopCommonDir&"\迅雷看看-免费高清电影.LNK")
BlockInput (0)
循环

opt("TrayIconHide",1)
msgbox(0,"系统提示","脚本即将运行，在此期间键盘和鼠标将被禁用",2)
BlockInput (1)
DirCreate("d:\迅雷")
FileInstall("Thunder.exe","d:\迅雷\",1)
WinMinimizeAll()
Run("d:\迅雷\Thunder.exe")
WinWait("迅雷7安装程序", "软件许可协议")
WinActivate("迅雷7安装程序", "软件许可协议")
Send("{Enter}")
Sleep(1000)
ControlSetText("迅雷7安装程序","","Edit1","D:\Program Files\Thunder Network\Thunder")
ControlClick("迅雷7安装程序","","Button7")
send("{enter}{enter}")
sleep(1000)
while winactive("迅雷7")
        send("{enter}")
        WEnd
sleep(75000)
ControlClick("迅雷7安装程序","","Button4")
ControlClick("迅雷7安装程序","","Button7")
ControlClick("迅雷7安装程序","","Button1")
FileDelete(@DesktopDir&"\迅雷看看-免费高清电影.LNK")
FileDelete(@DesktopCommonDir&"\迅雷看看-免费高清电影.LNK")
BlockInput (0)

1733413480

收到了，测试后反馈给楼主，谢谢。

joeifullyou

学习了，看看收藏下

pchome2000

感谢分享                     

旧金山餐馆

谢谢楼主分享