1. //每页好友的第n个(dng)
2. dim dng,wangluo0,wangluo1,a,yanchi,dengdai,i,hyys,t
3. 调用插件命令 HwndEx1 = Window.MousePoint()
4. 调用插件命令 Bkgnd.LeftClick(HwndEx1, 736,34)
5. 调用子程序 dengdai
6. 延时2000毫秒
7. 调用插件命令 HwndEx2 = Window.MousePoint()
8. 调用插件命令 Bkgnd.LeftClick(HwndEx2,643,41)
9. 调用子程序 dengdai
10. 循环 500 遍
11.     调用子程序 [nongchang]
12.     调用插件命令 Bkgnd.LeftClick(HwndEx, 736,34)
13.     调用子程序 dengdai
14.     延时2000毫秒
15.     //设置延迟随机时间
16.     Randomize
17.     jiange=int((60000 -120000 + 1) * rnd + 60000)
18.     延时jiange毫秒
19.     循环 5 遍
20.         调用子程序 [muchang]
21.         延时jiange毫秒
22.     循环结束
23.     调用插件命令 Bkgnd.LeftClick(HwndEx,643,41)
24.     延时jiange毫秒
25. 循环结束
26. 子程序 [nongchang]
27.     //下面这句是得到鼠标指向的窗口句柄
28.     HwndEx = HwndEx1
29.     调用子程序 shezhi
30.     dng=0
31.     如果表达式 (dng<10) 为真,则循环执行
32.         dng=dng+1
33.         yjse= "FFFFFC"
34.         调用子程序 [shaomiao]
35.         如果表达式 (intX>0 or intY >0) 为真,则
36.             //为获取点击后至显示好友页面的网络延迟而取的点坐标颜色wangluo0
37.             //下面这句取窗口句柄(变量：HwndEX)窗口的客户区(坐标：930, 96)处的颜色
38.             调用插件命令 wangluo0 = Bkgnd.GetPixelColor(HwndEX, 930, 96)
39.             //下面这句用于向后台窗口句柄(变量：HwndEx)的客户区域(坐标：843, 204+32*(dng-1))处发送一个鼠标左键单击
40.             调用插件命令 Bkgnd.LeftClick(HwndEx, 813, 151+32*(dng-1))
41.             调用子程序 [wlyi]
42.             调用子程序 [toucai]
43.         条件结束
44.         调用子程序 [tanchuang]
45.         调用子程序 [next]
46.     条件结束
47. 循环结束
48. 调用插件命令 Bkgnd.LeftClick(HwndEx, 930, 96)
49. 调用子程序 dengdai
50. 子程序结束,回到调用处
51. 子程序 [muchang]
52.     HwndEx =HwndEx2
53.     调用子程序 shezhi
54.     dng=0
55.     如果表达式 (dng<10) 为真,则循环执行
56.         dng=dng+1
57.         yjse="FFFFFC"
58.         调用子程序 [shaomiao]
59.         如果表达式 (intX>0 or intY >0) 为真,则
60.             //为获取点击后至显示好友页面的网络延迟而取的点坐标颜色wangluo0
61.             //下面这句取窗口句柄(变量：HwndEX)窗口的客户区(坐标：930, 96)处的颜色
62.             调用插件命令 wangluo0 = Bkgnd.GetPixelColor(HwndEX, 930, 96)
63.             //下面这句用于向后台窗口句柄(变量：HwndEx)的客户区域(坐标：843, 204+32*(dng-1))处发送一个鼠标左键单击
64.             调用插件命令 Bkgnd.LeftClick(HwndEx, 813, 151+32*(dng-1))
65.             调用子程序 dengdai
66.             调用子程序 [wlyi]
67.             调用子程序 [tanchuang]
68.             调用子程序 yanchi
69.             调用子程序 [touqu]
70.         条件结束
71.         调用子程序 [tanchuang]
72.         调用子程序 [next]
73.     循环结束
74.     调用插件命令 Bkgnd.LeftClick(HwndEx, 930, 96)
75.     调用子程序 dengdai
76. 子程序结束,回到调用处
77. 子程序 [wlyi]
78.     //为获取点击后显示好友页面的网络延迟而取的点坐标颜色1
79.     //下面这句取窗口句柄(变量：HwndEx)窗口的客户区(坐标：930, 96)处的颜色
80.     调用插件命令 wangluo1 = Bkgnd.GetPixelColor(HwndEx, 930, 96)
81.     如果表达式 (wangluo1 <> wangluo0) 为真,则循环执行
82.         调用子程序 dengdai
83.         调用插件命令 wangluo1 = Bkgnd.GetPixelColor(HwndEx, 930, 96)
84.     循环结束
85.     调用子程序 yanchi
86. 子程序结束,回到调用处
87. 子程序 [next]
88.     如果表达式 (dng=10) 为真,则
89.         dng=0
90.         //取是否有灰色(已没有下一页)。
91.         //下面这句按从中间到四周的顺序查找窗口句柄(变量：HwndEx)窗口的指定的矩形区域内指定颜色
92.         调用插件命令 XY = Bkgnd.FindCenterColor(HwndEx, 908, 458, 925, 475, "b7b7b7")
93.         //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
94.         MyArray = Split(XY, "|")
95.         //下面这句将字符串转换成数值
96.         intX = CInt(MyArray(0)): intY = CInt(MyArray(1))
97.         如果表达式 (intX<0 and intY <0) 为真,则
98.             //翻页
99.             //下面这句用于向后台窗口句柄(变量：HwndEx)的客户区域(坐标：948, 518)处发送一个鼠标左键单击
100.             调用插件命令 Bkgnd.LeftClick(HwndEx, 918, 465)