迅雷7自动安装源码-『软件安装』-AUTOIT CN

zhangchongzhi 发表于 2011-3-4 17:14:05

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

这里的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,"")
While1
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 发表于 2011-3-17 07:06:56

{:face (84):}能不能写个5.9的？

zm5268 发表于 2011-4-22 22:26:58

看起来很不错，我也来学习学习。。。{:face (382):}

a2295926 发表于 2011-5-4 11:24:15

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

duyan 发表于 2011-5-6 14:29:13

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

stock128 发表于 2011-10-21 15:17:05

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

lgs0540 发表于 2011-11-2 09:31:13

敢问''和""是不是一个效果啊.....
183712314 发表于 2010-12-19 15:30 http://www.autoitx.com/images/common/back.gif

同问

nicky_926 发表于 2011-11-2 13:59:29

不错不错，弄个自动安装

江甫杞令 发表于 2011-11-11 09:13:13

打酱油的，混点分数提高下等级，谁然我是路过，但是也不是水帖子
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 发表于 2011-11-11 15:48:59

进来学习下，谢谢了

微笑炸弹 发表于 2011-11-11 20:50:39

条件
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 发表于 2012-3-28 21:38:38

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

joeifullyou 发表于 2012-4-4 14:11:48

学习了，看看收藏下

pchome2000 发表于 2012-4-6 19:16:33

感谢分享 {:face (327):}

旧金山餐馆 发表于 2012-4-21 10:31:40

谢谢楼主分享

页: 1 [2] 3

AUTOIT CN's Archiver