利用按鍵精靈實現點擊微信公眾號

通過圖片找要操作的位置（加偏移量，屏幕范圍可以用變量調整）

每掃過一行記得刷新一些變化的坐標信息  （記得坐標變化）

滾輪可以通過顏色的變化確定是否到底

如果直接確定不了要點擊的圖標（可以通過相對位置，找其附近的參照物）

為了防止要找的圖片 被滑動沒 ，多用靜態的圖標 （以靜制動）

多次循環運行全局變量----不清零

圖片要獨一無二的

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 結束

　　完了覺得這篇文章對你有用你可以看下 按鍵精靈制作微信機器人腳本 這篇博文，相信對你也有用哈！