geht auch...
06.08.2009 11:37:59
Tino
Hallo,
Private Declare Sub mouse_event Lib "user32.dll" _
(ByVal dwFlags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal dwdata As Long, _
ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As Maus_Pos) As Long
Private Type Maus_Pos
X As Long
Y As Long
End Type
Sub MausLinks_Klick()
Dim Maus As Maus_Pos
Dim X_Pos As Long, Y_Pos As Long
Const MOUSEEVENT_LEFTDOWN = &H2
Const MOUSEEVENT_LEFTUP = &H4
GetCursorPos Maus
X_Pos = Maus.X 'Horizontal
Y_Pos = Maus.Y 'Vertikal
'Position 1. Parameter Horizontal, 2.Parameter Vertikal
SetCursorPos X_Pos, Y_Pos
mouse_event MOUSEEVENT_LEFTDOWN, 0, 0, 0, 0 'linksklick
mouse_event MOUSEEVENT_LEFTUP, 0, 0, 0, 0 'Taste loslassen
End Sub
Gruß Tino