Dim Rx(10000),Ry(10000)
Plugin allx=Sys.GetScRX()
Plugin ally=Sys.GetScRY()
VBSCall GetCursorPos(sx,sy)
VBSCall color=GetPixelColor(sx,sy)
x=0:y=0:a=0:i=0
Plugin t1=Sys.GetTime()
While y<=ally/10
    While x<=allx/10
        //搜索范围,可自行调整
        IfColor x y color 0
            a=a+1
            i=i+1
            Rx(i)=x:Ry(i)=y
        EndIf 
        MoveTo x y
        x=x+1
        //搜索密度,可自行调整
    EndWhile 
    x=0
    y=y+1
    //搜索密度,可自行调整
EndWhile 
Plugin t2=Sys.GetTime()
t=t2-t1
VBSCall MessageBox("当前分辨率"&allx&":"&ally&vbCr&"启动脚本时鼠标指向点坐标为"&sx&","&sy&vbCr&"所指点颜色为"&color&vbCr&"你当前屏幕共有 "&a&" 个相同颜色点"&vbCr&"总共耗时："&t&" 毫秒"&vbCr&"详情看桌面的测试结果")
Set objShell = CreateObject("WScript.Shell")
desk = objShell.SpecialFolders.Item("desktop")
//↑取得桌面路径
set fso=CreateObject("Scripting.FileSystemObject")
Const forreading=1
const forwriting=2
const forappending=8
If fso.FileExists(desk&"\测试结果.txt")=0
    set myfile=fso.createtextfile(desk&"\测试结果.txt")
    how=0
Else 
    set myfile=fso.opentextfile(desk&"\测试结果.txt",forreading)
    While myfile.atendofstream=0
        zero=myfile.readline
        Lleft=instr(1,zero,"(")
        Rright=instr(1,zero,")")
        how=mid(zero,Lleft+1,Rright-Lleft-1)
        //↑检测第几次检测
    EndWhile 
    myfile.Close
EndIf 
set myfile=fso.opentextfile(desk&"\测试结果.txt",forappending)
//↑写一个TXT到桌面
myfile.writeline("第("&how+1&")次测试于"&now)
myfile.writeline("当前分辨率"&allx&":"&ally)
myfile.writeline("启动脚本时鼠标指向点坐标为"&sx&","&sy)
myfile.writeline("所指点颜色为"&color)
myfile.writeline("你当前屏幕共有 "&a&" 个相同颜色点")
myfile.writeline("总共耗时："&t&" 毫秒")
//↑上面就是写进TXT的测试结果
If a<>0
    myfile.writeline("下面是找到点的坐标:x,y")
    While i>0
        myfile.writeline(Rx(i)&","&Ry(i))
        i=i-1
    EndWhile 
    //↑上面就是写进TXT的找到的点坐标
EndIf 
myfile.Close