n个(dng)
dim dng,wangluo0,wangluo1,a,yanchi,dengdai,i,hyys,t
Plugin HwndEx1 = Window.MousePoint()
Plugin Bkgnd.LeftClick(HwndEx1, 736,34)
Gosub dengdai
Delay 2000
Plugin HwndEx2 = Window.MousePoint()
Plugin Bkgnd.LeftClick(HwndEx2,643,41)
Gosub dengdai
For 500
    Gosub [nongchang]
    Plugin Bkgnd.LeftClick(HwndEx, 736,34)
    Gosub dengdai
    Delay 2000
    //设置延迟随机时间
    Randomize
    jiange=int((60000 -120000 + 1) * rnd + 60000)
    Delay jiange
    For 5
        Gosub [muchang]
        Delay jiange
    EndFor 
    Plugin Bkgnd.LeftClick(HwndEx,643,41)
    Delay jiange
EndFor 
Sub [nongchang]
    //下面这句是得到鼠标指向的窗口句柄
    HwndEx = HwndEx1
    Gosub shezhi
    dng=0
    While dng<10
        dng=dng+1
        yjse= "FFFFFC"
        Gosub [shaomiao]
        If intX>0 or intY >0
            //为获取点击后至显示好友页面的网络延迟而取的点坐标颜色wangluo0
            //下面这句取窗口句柄(变量：HwndEX)窗口的客户区(坐标：930, 96)处的颜色
            Plugin wangluo0 = Bkgnd.GetPixelColor(HwndEX, 930, 96)
            //下面这句用于向后台窗口句柄(变量：HwndEx)的客户区域(坐标：843, 204+32*(dng-1))处发送一个鼠标左键单击
            Plugin Bkgnd.LeftClick(HwndEx, 813, 151+32*(dng-1))
            Gosub [wlyi]
            Gosub [toucai]
        EndIf 
        Gosub [tanchuang]
        Gosub [next]
    EndIf 
EndWhile 
Plugin Bkgnd.LeftClick(HwndEx, 930, 96)
Gosub dengdai
Return 
Sub [muchang]
    HwndEx =HwndEx2
    Gosub shezhi
    dng=0
    While dng<10
        dng=dng+1
        yjse="FFFFFC"
        Gosub [shaomiao]
        If intX>0 or intY >0
            //为获取点击后至显示好友页面的网络延迟而取的点坐标颜色wangluo0
            //下面这句取窗口句柄(变量：HwndEX)窗口的客户区(坐标：930, 96)处的颜色
            Plugin wangluo0 = Bkgnd.GetPixelColor(HwndEX, 930, 96)
            //下面这句用于向后台窗口句柄(变量：HwndEx)的客户区域(坐标：843, 204+32*(dng-1))处发送一个鼠标左键单击
            Plugin Bkgnd.LeftClick(HwndEx, 813, 151+32*(dng-1))
            Gosub dengdai
            Gosub [wlyi]
            Gosub [tanchuang]
            Gosub yanchi
            Gosub [touqu]
        EndIf 
        Gosub [tanchuang]
        Gosub [next]
    EndWhile 
    Plugin Bkgnd.LeftClick(HwndEx, 930, 96)
    Gosub dengdai
Return 
Sub [wlyi]
    //为获取点击后显示好友页面的网络延迟而取的点坐标颜色1
    //下面这句取窗口句柄(变量：HwndEx)窗口的客户区(坐标：930, 96)处的颜色
    Plugin wangluo1 = Bkgnd.GetPixelColor(HwndEx, 930, 96)
    While wangluo1 <> wangluo0
        Gosub dengdai
        Plugin wangluo1 = Bkgnd.GetPixelColor(HwndEx, 930, 96)
    EndWhile 
    Gosub yanchi
Return 
Sub [next]
    If dng=10
        dng=0
        //取是否有灰色(已没有下一页)。
        //下面这句按从中间到四周的顺序查找窗口句柄(变量：HwndEx)窗口的指定的矩形区域内指定颜色
        Plugin XY = Bkgnd.FindCenterColor(HwndEx, 908, 458, 925, 475, "b7b7b7")
        //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
        MyArray = Split(XY, "|")
        //下面这句将字符串转换成数值
        intX = CInt(MyArray(0)): intY = CInt(MyArray(1))
        If intX<0 and intY <0
            //翻页
            //下面这句用于向后台窗口句柄(变量：HwndEx)的客户区域(坐标：948, 518)处发送一个鼠标左键单击
            Plugin Bkgnd.LeftClick(HwndEx, 918, 465)