按键精灵实现打开QQ自动化脚本

越陌度阡

发布于 2023-11-19 08:45:38

1500

发布于 2023-11-19 08:45:38

文章被收录于专栏：大前端（横向跨端 & 纵向全栈）大前端（横向跨端 & 纵向全栈）

以下是基于按键精灵实现的一个打开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 主函数()

本文参与腾讯云自媒体分享计划，分享自作者个人站点/博客。

原始发表：2023-11-18，如有侵权请联系 cloudcommunity@tencent.com 删除

自动化