[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ɶ帨ȼ09,ĸAZ,F1F12  üʱĸɲִСд.
2F1F12缼F12  Զʽf12F12
3ʱ䵥λΪ룢180  Զʽ180
4Զݴ󡡽űʾֹͣ.
.
߽ܡ.
ר 硿.
.
ڡ.
<2006-09-15>

[Script]
UserVar jn1=a ü1λ
UserVar jn2=2 ü2λ
UserVar jn3=F11 ü3λ
UserVar s1=60 ü1ʩżʱ
UserVar s2=90 ü2ʩżʱ
UserVar s3=120 ü3ʩżʱ
//-----------------------------------------------------------------------
//---------------------------------------------------------[ֵʼ]
//-----------------------------------------------------------------------
dim number(2),thetime(2),key(2),sj(2)
dim a,b,c,d,jn1,jn2,jn3,s1,s2,s3,t1,t2,t3,L
//
number(0)=jn1:number(1)=jn2:number(2)=jn3
thetime(0)=s1:thetime(1)=s2:thetime(2)=s3
//ԶķֵתԪ
t1=now:t2=now:t3=now
//صǰϵͳʱ䵽
//-----------------------------------------------------------------------
//---------------------------------------------------------- [תӳ]
//-----------------------------------------------------------------------
Gosub жϰ
Gosub жʱ
//-----------------------------------------------------------------------
//---------------------------------------------------------- [ű]
//-----------------------------------------------------------------------
While true
    //ѭ
    If DateDiff("s",t1,now)>=sj(0)
        //< DateDiff ֮ʱ>
        //<"s"> <t1ʱ> <nowǰϵͳںʱ> <s(0)Զʱ>
        Delay 10
        KeyPress key(0),1
        // k(0) 1
        t1=now
        //¸ֵʱ䵽
    EndIf 
    If DateDiff("s",t2,now)>=sj(1)
        Delay 10
        KeyPress key(1),1
        t2=now
    EndIf 
    If DateDiff("s",t3,now)>=sj(2)
        Delay 10
        KeyPress key(2),1
        t3=now
    EndIf 
    Delay 10
EndWhile 
//-----------------------------------------------------------------------
//------------------------------------------------------ [жϼӳ]
//-----------------------------------------------------------------------
Sub жϰ
    a=0:b=0
    //ֵС±
    For 3
        L=Len(number(a))
        //< Len ַַ>
        If L=1
            key(b)=Asc(UCase(number(a)))
            //< Asc ַĸASCIIַ> < UCase תΪдĸַ>
            If key(b)<48 or key(b)>90
                Goto End
                //Χתű
            ElseIf key(b)>57 and key(b)<65
                Goto End
            EndIf 
        ElseIf L>1 and L<4
            If UCase(Left(number(a),1))="F"
                //жַַ  < Left ַߵַָ>
                key(b)=Asc(UCase(Left(number(a),1)))+Right(number(a),L-1)+41
                //< Right ַұߵַָ>
                If key(b)<112 or key(b)>123
                    Goto End
                EndIf 
            Else 
                Goto End
            EndIf 
        Else 
            Goto End
        EndIf 
        a=a+1:b=b+1
        //±+1
        Delay 10
    EndFor 
Return жϰ
//-----------------------------------------------------------------------
//------------------------------------------------------ [жʱӳ]
//-----------------------------------------------------------------------
Sub жʱ
    c=0:d=0
    For 3
        If IsNumeric(thetime(c))=True
            //< IsNumeric زֵָʽֵǷΪ>
            sj(d)=cint(thetime(c))
            //< CInt ѱתΪ͵ııʽ>
        Else 
            Goto End
        EndIf 
        c=c+1:d=d+1
        Delay 10
    EndFor 
Return жʱ
//-----------------------------------------------------------------------
//-------------------------------------------------------- [űֹͣ]
//-----------------------------------------------------------------------
Rem End
MessageBox " űֹͣ"
EndScript 
