gzh888666 发表于 2011-2-14 22:50:14

最新的酷狗音乐自动安装源码（i-Autoit-1.01正式版）

本帖最后由 gzh888666 于 2011-2-15 15:57 编辑


;--------------------------------------------------------------;脚本开始
Opt("TrayIconDebug", 1) ;0=无信息, 1=调试信息
Opt("WinTextMatchMode", 2) ;1=完全匹配, 2=快速匹配
Opt("WinTitleMatchMode", 4) ;1=开头, 2=子串, 3=完全, 4=高级
Opt("WinSearchChildren", 1) ;0=不搜索, 1=搜索子窗口
Opt("WinDetectHiddenText", 1) ;0=不检测, 1=检测
;--------------------------------------------------------------;设置脚本参数
$WinTitle_1= '安装 - 酷狗音乐'
$Wintxt_1= '下一步(&N) >'
$Wintxt_2= '许可协议'
$Wintxt_3= '选择目标位置'
$Wintxt_4= '下一步(&N) >'
$Wintxt_5= '酷狗音乐 安装完毕'
;--------------------------------------------------------------;窗口元素变量声明


$Exe = 'kugou_1182.exe'
If ProcessExists($Exe) Then ProcessClose($Exe)
If Run($Exe) = 0 Then ShellExecute($Exe)

Do
        Sleep(10);
Until WinExists($Wintitle_1)
;WinMove($Wintitle_1, "", -1000, -1000)
;--------------------------------------------------------------;程序启动,显示界面


WinWaitActive($Wintitle_1, $Wintxt_1);
WinSetOnTop ($Wintitle_1,"",1)
ControlClick($Wintitle_1, $Wintxt_1, "TNewButton1");---------------;点击按钮控件: 下一步(&N) >


WinWaitActive($Wintitle_1, $Wintxt_2);
ControlClick($Wintitle_1, $Wintxt_2, "TNewButton2");---------------;点击按钮控件: 下一步(&N) >


WinWaitActive($Wintitle_1, $Wintxt_3);
ControlClick($Wintitle_1, $Wintxt_3, "TNewButton3");---------------;点击按钮控件: 安装(&I) >


WinWaitActive($Wintitle_1, "酷狗音乐推荐安装软件");
Sleep(200)
ControlClick($Wintitle_1, "酷狗音乐推荐安装软件", "TNewCheckListBox1","left",1,10,13);---------------;点击列表控件相对位置
Sleep(200)
ControlClick($Wintitle_1, "酷狗音乐推荐安装软件", "TNewCheckListBox1","left",1,10,39);---------------;点击列表控件相对位置
Sleep(200)

ControlClick($Wintitle_1, $Wintxt_4, "TNewButton3")
WinWaitActive($Wintitle_1, $Wintxt_5);
Sleep(200)
ControlClick($Wintitle_1, $Wintxt_5, "TNewCheckListBox1","left",1,8,9);---------------;点击列表控件相对位置
Sleep(200)
ControlClick($Wintitle_1, $Wintxt_5, "TNewCheckListBox1","left",1,11,31);---------------;点击列表控件相对位置
Sleep(200)
ControlClick($Wintitle_1, $Wintxt_5, "TNewCheckListBox1","left",1,7,52);---------------;点击列表控件相对位置

ControlClick($Wintitle_1, $Wintxt_5, "TNewButton3");---------------;点击按钮控件: 完成(&F)




yinbinly 发表于 2011-2-14 23:06:46

学习了，请教下加200的延迟效果好吗

gzh888666 发表于 2011-2-15 09:29:21

回复 2# yinbinly


    连续点击在老机器上容易失败，照顾老机器而已

jilk168 发表于 2011-2-15 09:51:05

学到了点。。。

myang 发表于 2011-2-22 01:12:40

还不会写呢，学习

wjqq_001 发表于 2011-2-23 05:43:30

谢谢楼主分享 学习学习

东京恶魔 发表于 2011-2-23 19:31:28

对，连续点击配置不行的机器很容易过不去！（虚拟机配置不高，就会是这样）

hifi 发表于 2011-6-21 20:16:46

谢谢楼主分享 学习学习{:face (125):}

741885770 发表于 2011-8-23 17:58:46

好帖子，正需要

冷玉公子 发表于 2011-8-24 15:38:39

辛苦后的结果啊 ， 8错 8错

wadd 发表于 2011-8-24 16:18:13

{:face (258):}

丶夜猫 发表于 2011-8-28 01:56:48

正好需要下。
    谢谢了。

丶夜猫 发表于 2011-8-28 01:56:52

正好需要下。
    谢谢了。

丶夜猫 发表于 2011-8-28 01:57:05

这么一次发出了2个。。。

81032117 发表于 2011-9-11 22:40:37

回复 1# gzh888666


    来学习学习
页: [1] 2
查看完整版本: 最新的酷狗音乐自动安装源码（i-Autoit-1.01正式版）