1.求一个简单代码！定时定时代码VB定时按键！运行源码运行（高手必会）
2.VB定时器怎么做

求一个简单代码！定时定时代码便捷搜索源码VB定时按键！运行源码运行（高手必会）

       Dim a,定时定时代码碣石葫芦鱼源码 b As Boolean '是否按下键

       Dim x As Integer

       Private Sub Form_Load()

       Timer1.Interval = '0.1秒一次检查全局按键

       a = False: b = False

       End Sub

       Private Sub Timer1_Timer()

       If GetAsyncKeyState(vbKeyF1) Then '检测F1

        If a = False Then

        MsgBox "现在开始运行程序" '可以不用

        Timer2.Interval = '1秒一次检测到没到预定时间

        a = True

        End If

       Else

        a = False

       End If

       If GetAsyncKeyState(vbKeyF2) Then '检测F2

        If b = False Then

        MsgBox "结束了````"

        Timer2.Interval = 0

        b = False

        End If

       Else

        b = False

       End If

       End Sub

       Private Sub Timer2_Timer()

       If Time = "::" Then '注意你的系统时间格式是否显示的时候没有上下午（桌面右下角），如有则自己换一下（一般不用换的运行源码运行极限赛车游戏源码）

        SendKeys "a" '按下a键，正如你的定时定时代码1键为a一样

       ElseIf Time = "::" Then

        SendKeys "b" '假设你的2键为b

       End If

       End Sub

       '说明一下,简单代码我也给你做了个全局检测F1F2,不过按F2没有关闭程序,只关闭了计时器,你要是需要就自己加上关闭form1的代码,还有就是程序中说到的系统时间设置的问题,注意一下就行了.

       如果想要直接开始就不管它,就去掉全局检测,直接用sendkeys就行,

       ```````````最后还有就是sendkeys函数时,要求你的游戏(不知道怎么说)必须获得焦点才行!如,以上代码是在点时按下了键盘的小写a,但是如果我要求是在点在某个游戏中按下a的话,前提当然是游戏必须是开着的.而且游戏窗口是获得焦点的```

VB定时器怎么做

       窗体放置2个timer,2个textbox，2个button,运行源码运行把下面代码贴进去就可以演示效果，程序还不够完善，定时定时代码你自己再根据需要改改。运行源码运行

       dim

       t1

       as

       integer

       dim

       t2

       as

       integer

       private

       sub

       command1_click()

       t1

       =

       0

       timer1.enabled

       =

       true

       timer2.enabled

       =

       false

       end

       sub

       private

       sub

       command2_click()

       t2

       =

       0

       timer2.enabled

       =

       true

       timer1.enabled

       =

       false

       end

       sub

       private

       sub

       form_load()

       t1

       =

       0

       t2

       =

       0

       timer1.interval

       =

       timer2.interval

       =

       timer1.enabled

       =

       false

       timer2.enabled

       =

       false

       command1.caption

       =

       "运行的定时定时代码时间"

       command2.caption

       =

       "停止的时间"

       end

       sub

       private

       sub

       timer1_timer()

       t1

       =

       t1

       +

       1

       text1

       =

       t1

       end

       sub

       private

       sub

       timer2_timer()

       t2

       =

       t2

       +

       1

       text2

       =

       t2

       end

       sub