赞
踩
以下是基于按键精灵实现的一个打开QQ的功能,其基本的思路是:
1. 滑屏找到图标;
2. 点击图标;
3. 进入登录界面,检测登录按钮;
4. 点击登录;
实现代码如下:
- Dim 企儿,登录
-
- 企儿 = "411|313|FAFAFA,419|302|0F2AE2,398|286|201C1C,436|283|FCFCFC"
- 登录 = "472|261|F3BA1F,471|298|F3BA1F,477|315|FFFBF2,480|284|FFFFFF"
-
- Sub 滑屏
- Swipe 659, 356, 29, 314
- Delay 1000
- End Sub
-
- Sub 激活企儿
- Delay 200
- Tap 412,303
- End Sub
-
-
- Sub 激活登录
- Tap 472,300
- End Sub
-
-
- Function 通用检测(对象)
- If CmpColorEx(对象, 0.9) = 1 Then
- TracePrint "找到对象了"
- 通用检测=1
- Else
- 通用检测=0
- Else If
- Delay 100
- End Function
-
-
- Sub 主函数
- Do
- If 通用检测(企儿) = 1 Then
- 激活企儿
- Else
- 滑屏
- End If
- If 通用检测(登录) = 1 Then
- 激活登录
- Exit Do
- End If
- Loop
- ShowMessage "完成登录了"
- End Sub
-
- Call 主函数()
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。