[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====Ϸű===.
˵.
ȡ÷νѹֺ.
1ѹַΧΧ겻ƶķΧ⣩.
2ý꣨ЩϷ겢Ļеģͨýܱ֤ߵĹ֣.
3ܶȣúõѹЧʻã.
4ôӵڼȦʼ.
.
ʹ˵.
ݲͬϷúûԶOK.
ʽĬãXY֮áָ.
.
߽ܡ.
ר Ƿ.
.
ڡ.
2006.9.15

[Script]
UserVar LTop=200,100 ΧϽ
UserVar RBot=700,500 Χ½
UserVar Center=300,200 νѹ
UserVar L=20 2ѹֵ֮ľ
UserVar M=3 ӵڼȦʼ
//
Dim s,v,i,n,x,y,a1,b1,a2,b2,c1,c2,x0,y0,k1,k2
//ϽǻΧLTopڲҶţϽǵXY
s=InStr(LTop,",")
//Mid(123ַзָĿַ
//1ַʽзַ
//21бȡֵַĿʼλã
//3ҪصַʡԽַдӲ2 ַַ
//Mid(LTop,1,s-1)ַLTopеĵ1ַʼȡs-1ַ
//int(Mid(LTop,1,s-1)):ȡַת
//ȡΧϽǺ긳ֵa1
a1=int(Mid(LTop,1,s-1))
//ȡΧϽ긳ֵb1
b1=int(Mid(LTop,s+1))
s=InStr(RBot,",")
//ȡΧ½Ǻ긳ֵa2
a2=int(Mid(RBot,1,s-1))
//ȡΧ½긳ֵb2
b2=int(Mid(RBot,s+1))
s=InStr(Center,",")
//ȡ긳ֵx0,y0
x0=int(Mid(Center,1,s-1))
y0=int(Mid(Center,s+1))
//Ƚx0a1x0a2ĳȣȡľƷνķΧ֤ȫΧ
If x0-a1>=a2-x0
    n=a1
Else 
    //x0a2ľתߣWhile x>=nѭж
    n=x0-(a2-x0)
EndIf 
Rem ʼѹ
//ำֵv
v=L
//Ȧֵi
i=M
//긳ֵx,y
x=x0:y=y0-v
While x>=n
    k1=0:k2=v
    For 2
        For i
            x=x+k1:y=y+k2
            //ֻУxyΧڲƶִɫ仯ж
            If x>=a1 and x<=a2 and y>=b1 and y<=b2
                //xyȡxyɫֵc1
                VBSCall c1=GetPixelColor(x,y)
                MoveTo x,y
                Delay 10
                //ƶx,yʱ10ٴȡx,yɫֵc2
                VBSCall c2=GetPixelColor(x,y)
                //x,yɫƶǰƶɫִͬдֶ
                If c1<>c2
                    //ִ
                    Delay 1000
                    //ֺ¿ʼ
                    Goto ʼѹ
                EndIf 
                Delay 1
            EndIf 
        EndFor 
        k1=v:k2=0
    EndFor 
    i=i+1:v=v*(-1)
EndWhile 
Delay 200
//Χ¿ʼ
Goto ʼѹ
