Code:
Public Class Form1
<DllImport("user32.dll")> _
Public Shared Function GetAsyncKeyState(ByVal vKey As Int32) As Short
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim n0 As Integer = 0
Dim n1 As Integer = 0
Dim n2 As Integer = 0
Dim n3 As Integer = 0
Dim n4 As Integer = 0
Dim n5 As Integer = 0
Dim n6 As Integer = 0
Dim n7 As Integer = 0
Dim n8 As Integer = 0
Dim n9 As Integer = 0
n0 = GetAsyncKeyState(Keys.NumPad0)
n1 = GetAsyncKeyState(Keys.NumPad1)
n2 = GetAsyncKeyState(Keys.NumPad2)
n3 = GetAsyncKeyState(Keys.NumPad3)
n4 = GetAsyncKeyState(Keys.NumPad4)
n5 = GetAsyncKeyState(Keys.NumPad5)
n6 = GetAsyncKeyState(Keys.NumPad6)
n7 = GetAsyncKeyState(Keys.NumPad7)
n8 = GetAsyncKeyState(Keys.NumPad8)
n9 = GetAsyncKeyState(Keys.NumPad9)
If n1 = -32768 Then
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{enter}")
ElseIf n2 = -32768 Then
SendKeys.Send(TextBox2.Text)
SendKeys.Send("{enter}")
End If
If n3 = -32768 Then
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{enter}")
ElseIf n4 = -32768 Then
SendKeys.Send(TextBox4.Text)
SendKeys.Send("{enter}")
End If
If n5 = -32768 Then
SendKeys.Send(TextBox5.Text)
SendKeys.Send("{enter}")
ElseIf n6 = -32768 Then
SendKeys.Send(TextBox6.Text)
SendKeys.Send("{enter}")
End If
If n7 = -32768 Then
SendKeys.Send(TextBox7.Text)
SendKeys.Send("{enter}")
ElseIf n8 = -32768 Then
SendKeys.Send(TextBox8.Text)
SendKeys.Send("{enter}")
End If
If n9 = -32768 Then
SendKeys.Send(TextBox9.Text)
SendKeys.Send("{enter}")
ElseIf n0 = -32768 Then
SendKeys.Send(TextBox10.Text)
SendKeys.Send("{enter}")
End If
End Sub
Public Class Form1
<DllImport("user32.dll")> _
Public Shared Function GetAsyncKeyState(ByVal vKey As Int32) As Short
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim n0 As Integer = 0
Dim n1 As Integer = 0
Dim n2 As Integer = 0
Dim n3 As Integer = 0
Dim n4 As Integer = 0
Dim n5 As Integer = 0
Dim n6 As Integer = 0
Dim n7 As Integer = 0
Dim n8 As Integer = 0
Dim n9 As Integer = 0
n0 = GetAsyncKeyState(Keys.NumPad0)
n1 = GetAsyncKeyState(Keys.NumPad1)
n2 = GetAsyncKeyState(Keys.NumPad2)
n3 = GetAsyncKeyState(Keys.NumPad3)
n4 = GetAsyncKeyState(Keys.NumPad4)
n5 = GetAsyncKeyState(Keys.NumPad5)
n6 = GetAsyncKeyState(Keys.NumPad6)
n7 = GetAsyncKeyState(Keys.NumPad7)
n8 = GetAsyncKeyState(Keys.NumPad8)
n9 = GetAsyncKeyState(Keys.NumPad9)
If n1 = -32768 Then
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{enter}")
ElseIf n2 = -32768 Then
SendKeys.Send(TextBox2.Text)
SendKeys.Send("{enter}")
End If
If n3 = -32768 Then
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{enter}")
ElseIf n4 = -32768 Then
SendKeys.Send(TextBox4.Text)
SendKeys.Send("{enter}")
End If
If n5 = -32768 Then
SendKeys.Send(TextBox5.Text)
SendKeys.Send("{enter}")
ElseIf n6 = -32768 Then
SendKeys.Send(TextBox6.Text)
SendKeys.Send("{enter}")
End If
If n7 = -32768 Then
SendKeys.Send(TextBox7.Text)
SendKeys.Send("{enter}")
ElseIf n8 = -32768 Then
SendKeys.Send(TextBox8.Text)
SendKeys.Send("{enter}")
End If
If n9 = -32768 Then
SendKeys.Send(TextBox9.Text)
SendKeys.Send("{enter}")
ElseIf n0 = -32768 Then
SendKeys.Send(TextBox10.Text)
SendKeys.Send("{enter}")
End If
End Sub