Bevæg musen via et program

HVad laver du måske en liile klon af NetBus !!!!????!!!!

Nix det er til at holde spedias reklamebrowser kørende med, for ellers tjener jeg desværre ingen penge

Her er en løsning!

Det kan gøres på flere måder men den nemeste er nok denne, der bruger en enkelt simpel Win API funktion.

Bemærk - hvis du vil have det i skærm- koordinater behøver du kun SetCursorPos funktionen. Den anden er hvis du vil have det i forhold til et bestemt vindue.

Paste flg. ind i et form-modul med en knap der hedder Command1...

------------------------

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Sub Command1_Click()
    SetCursorPos 20, 30  ' i forhold til skærmen (altså Window's desktop, som også er et vindue der ejes af Explorer!)
   
    MsgBox "Hej"
   
    Dim mitFormPunkt As POINTAPI
    mitFormPunkt.x = 20
    mitFormPunkt.y = 30
    ClientToScreen Me.hwnd, mitFormPunkt
    SetCursorPos mitFormPunkt.x, mitFormPunkt.y  ' i forhold til denne form!
   
End Sub


/El Ranger (Aka Jørgen)

Hvad med nogle points?