[VB2010] Toggle Switch style hotkey?

[Just.a.Guy]

Hi,

I've developed a application for a game, which have some hotkeys. But now, i want to make a hotkey that, when is pressed the first time, a timer will start. When pressed again, the timer will stop, then when pressed the third time, the timer would start. Can someone help me?

[Kraizy​]

Use a little variable:

PHP Code:

Dim var as Boolean

//Hotkey_Pressed:
var = True = var = False //switches between true & false

Select case var
   Case True //if true then timer.start
      Timer.Start
   Case Else //if false then timer.stop
      Timer.Stop
End Select 


[Just.a.Guy]

didn't worked... I'm using GetAsyncKeyState...

[Kraizy​]

Well, it would be helpful if you could tell me what didn't work..
If you are using GetAsyncKeyState you would already have created an event which is being called when pressing a key. There you have to put in the Select Case from above.

[Just.a.Guy]

I'm sorry if i took so long to answer. I have this code to start my script

PHP Code:

 Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timkeys.Tick
        'Função principal
        If (GetAsyncKeyState(Keys.ControlKey)) Then            
            timrsb.Start()
            timammo.Start()
            timrocket.Start()
            timhs1.Start()
            tim_i.Start()           
        End If

        If (GetAsyncKeyState(Keys.ShiftKey)) Then 'Stop script
            timrsb.Stop()
            timammo.Stop()
            timrocket.Stop()
            timhs1.Stop()
            timjump.Stop()
            tim_i.Stop()
            timammo.Interval = 4000
        End If    

    End Sub 


GetAsyncKeyState is used with a timer, which interval is set to 1ms. I think that this is why is not working.