利用按键精灵实现点击微信公众号

通过图片找要操作的位置（加偏移量，屏幕范围可以用变量调整）

每扫过一行记得刷新一些变化的坐标信息  （记得坐标变化）

滚轮可以通过颜色的变化确定是否到底

如果直接确定不了要点击的图标（可以通过相对位置，找其附近的参照物）

为了防止要找的图片 被滑动没 ，多用静态的图标 （以静制动）

多次循环运行全局变量----不清零

图片要独一无二的

Dim status
SCREEN_WIDTH = 2000
SCREEN_HEIGHT = 1500
URL = "这个地址是要请求自己数据抓取系统接口的"
ADDRESS="E:\Program Files (x86)\Tencent\WeChat\WeChat.exe"
Do
    //MessageBox status
    Delay 1500
    Dim MyArray
    Enter =0
    status=1
    value=0
    increment_Y=0
    increment_X = 0
    If  status =1 Then
        //自动化脚本
        FindPic 0,0,SCREEN_WIDTH,SCREEN_HEIGHT,"Attachment:\公众号准确.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            MoveTo intX+20, intY+20
            LeftClick 1
            Delay 500
        End If
        color_value = ""
        Do
            If Enter = 0 Then
                Enter = 1
            Else
                Delay 180
            End If
            //Yes = 是否请求完成(URL)
            //TracePrint Yes
            If 0 <= increment_X <= 264 Then
                //MessageBox "小鱼5的过来"
                FindPic 0,0,SCREEN_WIDTH,SCREEN_HEIGHT,"Attachment:\首个位置定点.bmp",0.9,x,y
                If x > 0 And y > 0 Then
                    SayString ""
                    //MessageBox x &" "& y
                    MoveTo x + 80 + increment_X, y + 100 + increment_Y
                    LeftClick 1
                    Delay 500
                    FindPic 0, 0, SCREEN_WIDTH, SCREEN_HEIGHT, "Attachment:\历史--.bmp", 0.9, intX, intY
                    TracePrint intX & "   " & intY
                    SayString ""
                    If intX > 0 And intY > 0 Then
                        SayString ""

                        MoveTo intX - 190, intY - 250
                        MoveTo intX - 190, intY - 130
                        MoveTo intX - 30, intY - 250
                        MoveTo intX - 30, intY - 130
                        MoveTo intX + 10, intY + 10
                        LeftClick 1
                        Delay 500
                        FindPic 0,0,SCREEN_WIDTH,SCREEN_HEIGHT,"Attachment:\关闭参照物.bmp",0.9,intX,intY
                        If intX > 0 And intY > 0 Then
                            SayString ""
                            Delay 500
                            MoveTo intX+20, intY-25
                            LeftClick 1
                            Delay 500
                            increment_X = increment_X + 66
                        End If
                    Else
                        range = 结束一轮(x, y)
                        Delay 500
                        Exit Do
                    End If
                End If
            ElseIf increment_X>264 Then
                increment_X = 0
                increment_Y=increment_Y+104
                Delay 500
                value = value + 5
                If value = 25 Then
                    MoveTo x + 80 + increment_X - 50, y + 100 + increment_Y - 104
                    判断滚动条 (ADDRESS)
                    Delay 500
                End If
                //MessageBox a
                If color_value = "EFEFEF" and value=25 Then
                    For 6
                        MouseWheel - 1
                        Delay 1000
                    Next
                    value = 0
                    increment_Y = 0
                ElseIf color_value = "CDCDCD" Then
                    If value= 25 Then
                        range = 结束一轮(x, y)
                        Exit Do
                    End If
                End If
            End If
        Loop
    End If
Loop
Function 判断滚动条(ADDRESS)
    Call RunApp(ADDRESS)
    Delay 1500
    //下面这句是得到当前最前面的窗口句柄
    M = Plugin.Window.Foreground()
    //下面这句是得到窗口句柄的类名
    Class1 = Plugin.Window.GetClass(M)
    Delay 200
    TracePrint "得到窗口句柄的类名为："& Class1
    //0表示忽略
    //下面这句是查找窗口类名("Notepad")或者标题(0),返回找到的句柄Hwnd
    Hwnd = Plugin.Window.Find(Class1,0)
    //下面这句是得到窗口句柄的边框大小(包括标题栏)
    sRect = Plugin.Window.GetWindowRect(Hwnd)
    Delay 200
    TracePrint "得到窗口句柄的边框大小(包括标题栏)为："& sRect
    //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
    MyArray = Split(sRect, "|")
    //下面这句将字符串转换成数值
    W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
    W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
    TracePrint "边框大小：     " & W2 & "       " & H2
    //GetCursorPos x,y
    color_value = GetPixelColor(W2 - 7, H2 - 7)
    Delay 500
    TracePrint color_value
End Function
Function 结束一轮(x,y)
    MoveTo x - 100, y + 100
    Delay 500
    LeftClick 1
    Delay 3600000
    status = 0
End Function
Function 取网页源码(URL)
    Set objXML=CreateObject("Microsoft.XMLHTTP")
    objXML.Open "Get", URL, False
    objXML.setRestatusuestHeader "If-Modified-Since","0"
    objXML.send
    If objXML.readyState=4 then
        取网页源码 =objXML.ResponseText
    End If
    objXML.Abort
    Set objXML = Nothing
End Function
Function 是否请求完成(URL)
    Do
        Delay 3000
        Condition = 取网页源码(URL)
        TracePrint Condition
        If Condition = "0" Then
            Goto 结束
        Else
            Delay  6000
        End If
    Loop
    Rem 结束

　　完了觉得这篇文章对你有用你可以看下 按键精灵制作微信机器人脚本 这篇博文，相信对你也有用哈！

原文地址：https://www.cnblogs.com/xkrj5/p/12505810.html