Ayuda AutoClick

[UTU]

Tengo una pregunta, quiero hacer un programa que haga click cada serto tiempo pero no se como hacer para enviar el evento click se que para enviar una tecla del teclado uso sendkeys pero para el mouse no tengo idea

aca les dejo un link del ejemplo de programa que quiero hacer quiero que el mio pueda hacer lo mismo

http://rapidshare.de/files/10037515/AutoClick.zip.html

espero que alguien me pueda ayudar

[Zorrohack]

Si te refieres a dar un Click a un Boton en tu Aplicacion:

Private Sub Command1_Click()
cmdSave_Click
End Sub


Al presionar el Boton Command1
presiono el Boton cmdSave_Click

[UTU]

No, a lo que me refiero es a hacer un programa que al correrlo haga clicks cada cierto tiempo pero no en mi programa sino click como si alguien tocar el click en el mouse lo quiero para usar para por ej: algun juego que pida hacer muchos click en un lugar, en ves de estar como un pelotudo un rato dandole clicks corro el programa y los hace solos el archivo que puse hace eso pero quiero saber como lo hace por que quiero hacer mi propio programa no bajar el de otro deve ser algun comando facil lo que no lo encuentro por ningun lado ojala alguien pueda ayudarme me esta volviendo loco encontrar la manera de hacer esto.

[NYlOn]

Busca info sobre la API Mouse_Event.-

[Sancho.Mazorka]

toma este hice el otro dia porque odio el otro autoclick que todos usan. 

Código [Seleccionar] Expandir

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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)

Const DA = &H2
Const DU = &H4
Const RA = &H8
Const RU = &H10

Private Sub Form_Load()
Timer1.Interval = 0
Timer2.Interval = 1
Me.Caption = "Auto CLick  V: 1.0  [Detenido]"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error:
If Text2.Text = "CI" Then
ninvertido = DA
invertido = DU
End If
If Text2.Text = "CD" Then
ninvertido = RA
invertido = RU
End If
mouse_event ninvertido Or invertido, 0&, 0&, cButt, dwEI
Exit Sub
error:
MsgBox Err.Description, vbCritical, AutoClick
End
End Sub

Private Sub Timer2_Timer()
On Error GoTo error:
If GetAsyncKeyState(121) = -32767 Then
If Timer1.Enabled = False Then
Timer1.Interval = Text1.Text
Timer1.Enabled = True
Me.Caption = "Auto CLick  V: 1.0  [En progreso]"
Else
Timer1.Interval = Text1.Text
Timer1.Enabled = False
Me.Caption = "Auto CLick  V: 1.0  [Detenido]"
End If
End If
If GetAsyncKeyState(122) = -32767 Then Me.SetFocus
Exit Sub
error:
MsgBox Err.Description, vbCritical, AutoClick
End
End Sub


esto encesita:
timer1 -> intervalo = 0; enabled= false
tiemr2 -> intervalo = 100; enabled = true
2 textbox; text1 y text2

me olvidaba en el text1 va el intervalo y en el text2 va CI si queres clkick izquierdo, y CD si queres click derecho es facil con el F10 empiezan los clicks y si lo apretas de vuelta se para, con el F11 lo pones en 1º palno para llamarlo por si esta atras de una ventana. el Exe q hice tiene un texto q explica en 4 renglones chicos por eso le pongo esto



Sancho Mazorka

[UTU]

gracias man por la ayuda me re sirvio.

[Pitchar]

Hola estuve probando y funciona bien de bien en windows pero cuando lo activo en el juego q lo quiero utilizar (muonline) no funciona, saben pq sera?
Salu2.

[Krnl64]

Puede que el juego tenga sus propios Aceleradores y no lo acepte bien.

Propongo localizar la ventana y enviarle el parámetro LPARAM

WM_MBUTTONDBLCLK

O

WM_LBUTTONUP



Asi funcionará seguro

Salu2