Beiträge von Dogan1993

Public Class Form1
	Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short


	Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs)
    	If GetAsyncKeyState(Keys.NumPad1) Then
        	My.Computer.Keyboard.SendKeys("T")
        	My.Computer.Keyboard.SendKeys("/enter")
        	My.Computer.Keyboard.SendKeys("{Enter}")
    	End If


	End Sub

Public Class Form1
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short


If GetAsyncKeyState(Keys.NumPad1) Then
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/enter")
My.Computer.Keyboard.SendKeys("{Enter}")
End If


End Sub