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

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