按键精灵打字脚本源码

运行环境：分辨率：1440x900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.21.10865

@按键用户2012/4/6

Dim zi  
Event Form1.Timer1.Timer  
 Randomize  
    if Form1.Label1.top>=Form1.Height then :Call 初始1() :else :Form1.Label1.Top = Form1.Label1.Top + 1:end if  
    if Form1.Label2.top>=Form1.Height then :call 初始2() :else :Form1.Label2.Top = Form1.Label2.Top + 1:end if  
    if Form1.Label3.top>=Form1.Height then :call 初始3() :else :Form1.Label3.Top = Form1.Label3.Top + 1:end if  
    if Form1.Label4.top>=Form1.Height then :call 初始4() :else :Form1.Label4.Top = Form1.Label4.Top + 1:end if  
    if Form1.Label5.top>=Form1.Height then :call 初始5() :else :Form1.Label5.Top = Form1.Label5.Top + 1:end if  
    if Form1.Label6.top>=Form1.Height then :call 初始6() :else :Form1.Label6.Top = Form1.Label6.Top + 1:end if  
    if Form1.Label7.top>=Form1.Height then :call 初始7() :else :Form1.Label7.Top = Form1.Label7.Top + 1:end if  
    if Form1.Label8.top>=Form1.Height then :call 初始8() :else :Form1.Label8.Top = Form1.Label8.Top + 1:end if  
    if Form1.Label9.top>=Form1.Height then :call 初始9() :else :Form1.Label9.Top = Form1.Label9.Top + 1:end if  
    if Form1.Label10.top>=Form1.Height then :call 初始10() :else :Form1.Label10.Top = Form1.Label10.Top + 1:end if  
End Event  
  
Event Form1.Timer2.Timer  
    fen=0  
    变量 = GetLastKey  
    'msgbox Chr(变量) & "     " & 变量  
    If Chr(变量) = Form1.Label1.Caption Then fen=fen+1:Call 初始1()  
    If Chr(变量) = Form1.Label2.Caption Then fen=fen+1:Call 初始2()  
    If Chr(变量) = Form1.Label3.Caption Then fen=fen+1:Call 初始3()  
    If Chr(变量) = Form1.Label4.Caption Then fen=fen+1:Call 初始4()  
    If Chr(变量) = Form1.Label5.Caption Then fen=fen+1:Call 初始5()  
    If Chr(变量) = Form1.Label6.Caption Then fen=fen+1:Call 初始6()  
    If Chr(变量) = Form1.Label7.Caption Then fen=fen+1:Call 初始7()  
    If Chr(变量) = Form1.Label8.Caption Then fen=fen+1:Call 初始8()  
    If Chr(变量) = Form1.Label9.Caption Then fen=fen+1:Call 初始9()  
    If Chr(变量) = Form1.Label10.Caption Then fen=fen+1:Call 初始10()  
    Form1.Label11.Caption="得分: " & Split(Form1.Label11.Caption, ": ")(1)+fen  
    变量=""  
End Event  
  
Event Form1.Button1.Click  
If Form1.Button1.Caption="开始打字游戏" then Form1.OptionBox1.Enabled=True:Form1.OptionBox2.Enabled=True:Form1.OptionBox3.Enabled=True: Form1.Timer1.Enabled = True:Form1.Timer2.Enabled = True:Form1.Button1.Caption="结束打字游戏" else Form1.OptionBox1.Enabled=false:Form1.OptionBox2.Enabled=false:Form1.OptionBox3.Enabled=false:Form1.Timer1.Enabled = false:Form1.Timer2.Enabled = false:Form1.Button1.Caption="开始打字游戏"  
End Event  
Event Form1.Load  
    zi = Split("0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z", " ")  
End Event  
  
Sub 初始1()  
        Randomize  
    Form1.Label1.Top=0:Form1.Label1.Left = Int((470 * Rnd) + 1):Form1.Label1.Caption =zi(Int(Rnd*35))  
End Sub  
Sub 初始2()  
        Randomize  
    Form1.Label2.Top=0:Form1.Label2.Left = Int((470 * Rnd) + 1) :Form1.Label2.Caption =zi(Int(Rnd*35))  
End Sub  
Sub 初始3()  
        Randomize  
    Form1.Label3.Top=0:Form1.Label3.Left = Int((470 * Rnd) + 1) :Form1.Label3.Caption =zi(Int(Rnd*35))  
End Sub  
Sub 初始4()  
        Randomize  
    Form1.Label4.Top=0:Form1.Label4.Left = Int((470 * Rnd) + 1) :Form1.Label4.Caption =zi(Int(Rnd*35))  
End Sub  
Sub 初始5()  
        Randomize  
    Form1.Label5.Top=0:Form1.Label5.Left = Int((470 * Rnd) + 1) :Form1.Label5.Caption =zi(Int(Rnd*35))  
End Sub  
Sub 初始6()  
        Randomize  
    Form1.Label6.Top=0:Form1.Label6.Left = Int((470 * Rnd) + 1) :Form1.Label6.Caption =zi(Int(Rnd*35))  
End Sub  
Sub 初始7()  
        Randomize  
    Form1.Label7.Top=0:Form1.Label7.Left = Int((470 * Rnd) + 1) :Form1.Label7.Caption =zi(Int(Rnd*35))  
End Sub  
Sub 初始8()  
        Randomize  
    Form1.Label8.Top=0:Form1.Label8.Left = Int((470 * Rnd) + 1) :Form1.Label8.Caption =zi(Int(Rnd*35))  
End Sub  
Sub 初始9()  
        Randomize  
    Form1.Label9.Top=0:Form1.Label9.Left = Int((470 * Rnd) + 1) :Form1.Label9.Caption= zi(Int(Rnd*35))  
End Sub  
Sub 初始10()  
        Randomize  
    Form1.Label10.Top=0:Form1.Label10.Left = Int((470 * Rnd) + 1) :Form1.Label10.Caption =zi(Int(Rnd*35))  
End Sub  
  
Event Form1.OptionBox1.Click  
Form1.Timer1.Interval=40  
End Event  
Event Form1.OptionBox2.Click  
Form1.Timer1.Interval=20  
End Event  
Event Form1.OptionBox3.Click  
Form1.Timer1.Interval=10  
End Event