[General]
Description=ʾӣҵǰָɫͬ
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=,wx19841231..
¼

[Script]
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
