Mausklick Simulation ausserhalb der Runtime

[Mastika]

Hallo,

Ich simuliere Mausklicks wie aus sämtlichen Tutorials die ich gefunden habe.

Public 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
 
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)
  End If
  If (mButton = MOUSE_RIGHT) Then
    Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
    Call mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
  End If
End Sub

aber die Art von Mausklick wird nur ausgeführt wenn die Runtime den Fokus hat. Gibt es eine Möglichkeit in VB einen Mausklick aus dem Hintergrung oder aus der inaktiven Runtime ausführen zu lassen?

Achso, der Mausklick soll auf einer anderen Anwendung ausgeführt werden. Die SetCursorPosition wird festgelegt.

Hoffe um zahlreiche Antworten

Mfg
Mastika