以下是基于按键精灵实现的一个打开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, 314Delay 1000
End SubSub 激活企儿Delay 200Tap 412,303
End SubSub 激活登录Tap 472,300
End SubFunction 通用检测(对象)If CmpColorEx(对象, 0.9) = 1 Then TracePrint "找到对象了"通用检测=1Else 通用检测=0Else IfDelay 100
End FunctionSub 主函数Do If 通用检测(企儿) = 1 Then 激活企儿 Else 滑屏End IfIf 通用检测(登录) = 1 Then 激活登录 Exit Do End IfLoopShowMessage "完成登录了"
End SubCall 主函数()