Mit VB Tastatureingabe programmieren

'Benötigte Deklarationen  
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  

Private Declare Function GetCursorPos Lib "user32" (cPoint As POINTAPI) As Long  
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long  
Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Declare Sub mouse_event Lib "user32" _  
 (ByVal dwFlags As Long, ByVal dx As Long, _
 ByVal dy As Long, ByVal cButtons As Long, _
 ByVal dwExtraInfo As Long)

Public Const MOUSE_LEFT = 0
Public Const MOUSE_MIDDLE = 1
Public Const MOUSE_RIGHT = 2

'TPOINT beinhaltet die Koordinaten, wo sich die Maus gerade befindet und ist mit  
'Wo_ist_die_Maus zu aktualisieren... s.u.  
Dim tPoint As POINTAPI

'Die nachfolgende Prozedur simuliert den gewünschten Mausklick.  
Public Sub SendMausklick(ByVal mButton As Long)
  Const MOUSEEVENTF_LEFTDOWN = &H2
  Const MOUSEEVENTF_LEFTUP = &H4
  Const MOUSEEVENTF_MIDDLEDOWN = &H20
  Const MOUSEEVENTF_MIDDLEUP = &H40
  Const MOUSEEVENTF_RIGHTDOWN = &H8
  Const MOUSEEVENTF_RIGHTUP = &H10

  If (mButton = MOUSE_LEFT) Then
    Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
  ElseIf (mButton = MOUSE_MIDDLE) Then
    Call mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0)
    Call mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)
  Else
    Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
    Call mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
  End If
End Sub

Sub Makro1()
SendKeys "{F5}", True  
SendMausklick MOUSE_RIGHT
Sleep 500
Wo_ist_die_Maus
'Nach Zeigeroptionen bewegen und bestätigen  
Cursor_bewegen_nach tPoint.x + 30, tPoint.y + 150
SendMausklick MOUSE_LEFT
Wo_ist_die_Maus
'Nach Pfeiloptionen bewegen und bestätigen  
Cursor_bewegen_nach tPoint.x + 220, tPoint.y + 180
SendMausklick MOUSE_LEFT
Wo_ist_die_Maus
'Nach Sichtbar bewegen und bestätigen  
Cursor_bewegen_nach tPoint.x - 100, tPoint.y + 20
SendMausklick MOUSE_LEFT
End Sub

Sub Wo_ist_die_Maus()
Dim x As Long
x = GetCursorPos(tPoint)
End Sub

Sub Cursor_bewegen_nach(xziel As Long, yziel As Long)
Dim x As Long, y As Long, n As Long
x = xziel
y = yziel
n = SetCursorPos(x, y)
End Sub