VB Code Help

[harman101]

Hey, Im just trying to make a simple ammo changer for practice, since its been some time since I last coded. However, I run the program, and it doesn't work.

So far, ive only programmed the x-4 key

 Spoiler

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Me.Hide()
End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If e.KeyCode = Keys.ControlKey Then
Do Until False
System.Windows.Forms.SendKeys.Send(TextBox1.Text)
Loop
End If

End Sub

End Class

What am I doing wrong? I press CTRL and nothing happens...

[jmpl3]

Use the function GetAsyncKeystate ...

[Requi]

Because it only checks for it, if the Form is active.

This should help you:

[harman101]

Originally Posted by Requi

Because it only checks for it, if the Form is active.

This should help you:

What do you mean, it only 'checks for it', I thought if the user has pressed ctrl, then it sends key?

[mustangv7]

Originally Posted by harman101

What do you mean, it only 'checks for it', I thought if the user has pressed ctrl, then it sends key?

The way you code it needs to have the form on focus. Instead of writing the ammo changer code into Form1_KeyDown, put it into a timer with interval 100ms for example.

[Arby]

#moved

['Heaven.]

Better use this low level keyboard hook