1. Dim Rx(10000),Ry(10000)
2. 调用插件命令 allx=Sys.GetScRX()
3. 调用插件命令 ally=Sys.GetScRY()
4. 调用外部VBScript子程序 得到鼠标当前位置(sx,sy)
5. 调用外部VBScript子程序 得到鼠标当前位置(sx,sy)
6. x=0:y=0:a=0:i=0
7. 调用插件命令 t1=Sys.GetTime()
8. 如果表达式 (y<=ally/10) 为真,则循环执行
9.     如果表达式 (x<=allx/10) 为真,则循环执行
10.         //搜索范围,可自行调整
11.         如果 (x,y) 的颜色等于 #color 则
12.             a=a+1
13.             i=i+1
14.             Rx(i)=x:Ry(i)=y
15.         条件结束
16.         鼠标移到 x , y
17.         x=x+1
18.         //搜索密度,可自行调整
19.     循环结束
20.     x=0
21.     y=y+1
22.     //搜索密度,可自行调整
23. 循环结束
24. 调用插件命令 t2=Sys.GetTime()
25. t=t2-t1
26. 调用外部VBScript子程序 得到鼠标当前位置(sx,sy)
27. Set objShell = CreateObject("WScript.Shell")
28. desk = objShell.SpecialFolders.Item("desktop")
29. //↑取得桌面路径
30. set fso=CreateObject("Scripting.FileSystemObject")
31. Const forreading=1
32. const forwriting=2
33. const forappending=8
34. 如果表达式 (fso.FileExists(desk&"\测试结果.txt")=0) 为真,则
35.     set myfile=fso.createtextfile(desk&"\测试结果.txt")
36.     how=0
37. 否则
38.     set myfile=fso.opentextfile(desk&"\测试结果.txt",forreading)
39.     如果表达式 (myfile.atendofstream=0) 为真,则循环执行
40.         zero=myfile.readline
41.         Lleft=instr(1,zero,"(")
42.         Rright=instr(1,zero,")")
43.         how=mid(zero,Lleft+1,Rright-Lleft-1)
44.         //↑检测第几次检测
45.     循环结束
46.     myfile.Close
47. 条件结束
48. set myfile=fso.opentextfile(desk&"\测试结果.txt",forappending)
49. //↑写一个TXT到桌面
50. myfile.writeline("第("&how+1&")次测试于"&now)
51. myfile.writeline("当前分辨率"&allx&":"&ally)
52. myfile.writeline("启动脚本时鼠标指向点坐标为"&sx&","&sy)
53. myfile.writeline("所指点颜色为"&color)
54. myfile.writeline("你当前屏幕共有 "&a&" 个相同颜色点")
55. myfile.writeline("总共耗时："&t&" 毫秒")
56. //↑上面就是写进TXT的测试结果
57. 如果表达式 (a<>0) 为真,则
58.     myfile.writeline("下面是找到点的坐标:x,y")
59.     如果表达式 (i>0) 为真,则循环执行
60.         myfile.writeline(Rx(i)&","&Ry(i))
61.         i=i-1
62.     循环结束
63.     //↑上面就是写进TXT的找到的点坐标
64. 条件结束
65. myfile.Close