找回密码
 加入
搜索
查看: 13179|回复: 16

[原创] 最新的酷狗音乐自动安装源码(i-Autoit-1.01正式版)

[复制链接]
发表于 2011-2-14 22:50:14 | 显示全部楼层 |阅读模式
本帖最后由 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)
发表于 2011-2-14 23:06:46 | 显示全部楼层
学习了,请教下加200的延迟效果好吗
 楼主| 发表于 2011-2-15 09:29:21 | 显示全部楼层
回复 2# yinbinly


    连续点击在老机器上容易失败,照顾老机器而已
发表于 2011-2-15 09:51:05 | 显示全部楼层
学到了点。。。
发表于 2011-2-22 01:12:40 | 显示全部楼层
还不会写呢,学习
发表于 2011-2-23 05:43:30 | 显示全部楼层
谢谢楼主分享 学习学习
发表于 2011-2-23 19:31:28 | 显示全部楼层
对,连续点击配置不行的机器很容易过不去!(虚拟机配置不高,就会是这样)
发表于 2011-6-21 20:16:46 | 显示全部楼层
谢谢楼主分享 学习学习  
发表于 2011-8-23 17:58:46 | 显示全部楼层
好帖子,正需要
发表于 2011-8-24 15:38:39 | 显示全部楼层
辛苦后的结果啊 , 8错 8错
发表于 2011-8-24 16:18:13 | 显示全部楼层
发表于 2011-8-28 01:56:48 | 显示全部楼层
正好需要下。
    谢谢了。
发表于 2011-8-28 01:56:52 | 显示全部楼层
正好需要下。
    谢谢了。
发表于 2011-8-28 01:57:05 | 显示全部楼层
这么一次发出了2个。。。
发表于 2011-9-11 22:40:37 | 显示全部楼层
回复 1# gzh888666


    来学习学习
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 16:39 , Processed in 0.076161 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表