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)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) 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

Private Sub Klicka(X As Single, Y As Single)
SetCursorPos X, Y
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
End Sub

Private Sub Form_Load()
Klicka 100, 100
End Sub




DETTA FUNKAR INTE.... HJÄLP!!!

Anropet i funktionen Klicka ska se ut som följer:
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

/GH

Jag har sett info som säger att om man anväder Win 2000 så måste man använda sig av SendInput API istället. Jag kan varken bekräfta eller förneka detta.

\Leif P

Den klickar inte. Den bara avaktiverar alla öppna fönster......
Hjälp.....................