Muis bewegen en klikken met code

[TheNeonator]

geachte mensen,

ik wil graag een code maken waarmee ik de muis kan laten bewegen en kan laten klikken, dit is de enige code die ik kan vinden maar die werkt niet:

Private Sub someSub()
dim someX as Long, someY as Long
someX = 400
someY = 400
SetCursorPos someX, someY
End Sub
wscript.quit

kan iemand mij helpen?

 

[MartinJM]

Ik heb meerdere autoclickers gemaakt, en hier zijn de codes die ik gebruik:
[CPP]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 mouseclickup = 4
Public Const mouseclickdown = 2

''//in een sub dan dit:
Windows.Forms.Cursor.Current.Position = New System.Drawing.Point(X, Y)
mouse_event(mouseclickdown, 0, 0, 0, 0)
mouse_event(mouseclickup, 0, 0, 0, 0)[/CPP]

Ik weet niet meer waar ik de codes vandaan heb, en ik gebruik vb.net, dus als je vb6 gebruikt, moet je misschien nog even op google zoeken.... Als je de gehele code wil, moet je het even vragen, dan post ik die nog even

MartinJM

[edit]
Maak er geen misbruik van, als je muis de hele tijd op en neer gaat en zo af en toe eens aan het klikken is, dan is dat echt heel irritant...
[/edit]

 

[JoZ1]

Dit doet me denken aan VBS... klopt dat?
(je roept de functie wscript.quit aan)

Dat is namelijk wel handig om te weten

 

[TheNeonator]

ja inderdaad ik wil de VBS code sorry vergeten te zeggen