Generar clic

[jgaztelu]

Hola:

Quiero hacer un programa que cuando yo presione una tecla comienze a hacer clics en el sitio que yo quiera cada cierto tiempo. Lo que no se es como puedo sacar las coordenadas y al darle una tecla (por ejemplo F10) grabe las coordenadas y haga clic en ese sitio cada x tiempo. Alguien me puede ayudar??

Gracias.

[vivachapas]

te hago una pregunta... es para otro cheat de AO??? xD

[jgaztelu]

te hago una pregunta... es para otro cheat de AO??? xD

Que es el AO??

No, no es eso.

[vivachapas]

bueno... mira te voy a dar casi todo ya hecho xD, solamente vas a tener q adaptarlo a lo q vos quieras..

Código (vb) [Seleccionar] Expandir

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim Mouse As POINTAPI

Private Sub Form_Load()
    Timer1.Interval = 100
    Me.FontSize = 10
End Sub

Private Sub Timer1_Timer()
    Call GetCursorPos(Mouse)
    Me.Cls
    Me.Print "Posicion del cursor :"
    Me.Print "X:" + Str$(Mouse.X) + vbCrLf + "Y:" + Str$(Mouse.Y)
End Sub


con eso sacas las coordenadas...


ahora esto es el resto, mover el cursor y hacer clicks..

Código (vb) [Seleccionar] Expandir

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_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

'aca para hacer los clicks... segun el evento q quieras.. la verdad no se como hacerlo con F10 asi q te los dejo sin evento...

'asi moves el cursor
SetCursorPos 722, 141

'asi haces un click
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, cButt, dwEI
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI