Ayudenme a crear un autoclick

[brunorp]

Aqui te dejo un source d eun clicker que cree cuando empezaba con vb:

Código (vb) [Seleccionar] Expandir

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key 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 MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Private Sub command1_click()
For i = 1 To Text1.Text
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, X, Y, 0, 0
Next
End Sub
Private Sub form_load()
Timer1.Enabled = True
Timer1.Interval = text2.text
End Sub
Private Sub timer1_timer()
If GetKeyPress(vbKeyShift) Then
Call command1_click
End If
End Sub

salu2!

xd pero con que programa ?

[mastersuv]

Con Visual Basic 6.0 puedes hacer uno muy facilmente...

Necesitas declarar estas API's en la sección de declaraciones del código:

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 Const MouseLeftDown = &H2 ' Hace el Click Izquierdo
Private Const MouseLeftUp = &H4 ' Desclickea el Click Derecho
Private Const MouseRightdown = &H4 ' Hace Click derecho
Private Const MouseRightup = &H4 ' Desclickea el Click Derecho


Una vez declaradas, debes llamar los eventos de la siguiente forma:

Puedes usar un Boton de Comando (Command button) para probar:
O sea: Le das un Click al boton, y este obtendrá el "Focus", entonces ahora presionando Enter el boton de presionara... Ahi es donde puedes tu comprobar que se estan haciendo clicks.
O llama el click derecho, y el menú contextual se tiene que abrir.

Llama el Click derecho y su respectivo "Desclick" xD

Código (vb) [Seleccionar] Expandir

mouse_event MouseRightdown, 0, 0, 0, 0 ' Click Derecho
mouse_event MouseRightup, 0, 0, 0, 0 ' Desclickea

Llama el Click izquierdo y su respectivo "Desclick" xD

Código (vb) [Seleccionar] Expandir

mouse_event MouseLeftDown, 0, 0, 0, 0 ' Click izquierdo
mouse_event MouseLeftUp, 0, 0, 0, 0 ' Desclickea

Con esto tienes para poner a andar tu programa...
Pero obviamente, no usaras Botones para hacer tu autoclick...
Te toca a tí hacer que los eventos se llamen automáticamente.

Puedes usar un Timer.
Pero recuerda crear algun tipo de Sistema para encenderlo/apagarlo.

Saludos!

[hunter18]

Hola mastersuv, esta bueno tu codigo pero yo todavia estoy verde y no he podido adaptarlo.
Es posible hacer lo siguiente:
Desde un boton hacer click en determinada parte de un formulario por ejemplo hacerle click a un label1 desde un boton logicamente puede ser un label, un command, text, etc pero siempre en el mismo punto es decir un click por cada presionada del boton.

[mastersuv]

Si puedes hacer click en X parte de un formulario.

Pero para ello tendrías que obtener exactamente la posición X (Usando TOP) y Y (Usando LEFT)...

Pero eso sería muy poco eficiente, aparte de que tendrías que llamar el Click...

PERO...
También puedes llamar eventos de un objeto desde procedimientos de otro Sub.

Por ejemplo, puedes llamar al evento "Click" del Label cuando se presione un botón... -> que es exactamente lo que quieres.


Añade este código a tu botón para llamar al evento Click:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Call Label1_Click
End Sub

Claro... suponiendo que tu botón se llama Command1 y el Label se llama Label1.

La función CALL sirve llamar a otro Sub, o a alguna Funcion (Public Function).
En este caso, estamos llamando a el evento "CLICK()" del Label1.

Es decir, todo lo que tengas en:

Private Sub Label1_Click()
// ------- Aqui
end sub

Se pondrá en marcha al presionar el botón.

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

Perdona por sobre-explicartelo jeje.

[BlackZeroX]

.
La sobre explicación es lo mas valorado!¡.

Que seas nuevo no impleca que tengas privilegios para no usar el Buscador.

http://foro.elhacker.net/programacion_visual_basic/src_multiclic_in_oneclic-t299892.0.html

Dulces Lunas!¡.

Dulces Lunas!¡.

[hunter18]

Tienes razon BlackZeroX revisare tu codigo aunque lo veo un poco avanzado pero asi se aprende.

mastersuv bueno olvidando el ejemplo de la imagen y del label como haria para hacer click en un region del formulario teniendo las coordenas top=241, left=241 tambien si en dichas coordenas hay un picture u otro control debera hacerle click ahi, el click se debera hacer desde un boton, saludos

[mastersuv]

Tendrás que disculparme, pero yo solo supuse lo que se tendría que hacer.
No se como hacer para hacer un Click en determinada parte del formulario jeje.

[Nideacomo]

Pleaseeee ayundenme a crear un autoclick no tengo nidea porrfaa tengo Vb 2008 y se diseñar pero codificar ni ideaa!!! please alguien que me comprenda y que me pueda responder mandemen un video explicandomelo todo quiero crear un autoclick con 2 botones y que de timer este a 1, tambien , como cambiar de simbolos los documentos,  expliquenme como poner que clikee y desclikee en los  Fs porfavor alguien que me comprenda estoy desesperado xD drinky94 tengo un autoclick de los tuyos xD pero quiero crear uno mioo porfa si es este mensaje ayudame men si no es mucho pedir xD adeww y gracias a todos de todas forma

[79137913]

hola.    esto no merece saludo.

Primero, reviviste un tema muy viejo.

Segundo vb2008 ES NET!

"se diseño pero no codificar" Jajaja osea NO SABES.

Por que no te bajas uno prearmado?

CAMBIO Y FUERA  

No pienso dar las gracias por leer esto  

[LixKeÜ]

 Este lo hace siguiendo link
http://foro.elhacker.net/analisis_y_diseno_de_malware/src_lixclick_10_autoclick_para_buxto_ganar_dinero_sin_hacer_nada_xd-t246122.0.html