Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: repdom.man en 8 Agosto 2010, 07:00 am



Título: Ayudenme a crear un autoclick
Publicado por: repdom.man en 8 Agosto 2010, 07:00 am
Hola
Recurro a ustedes porque no se mucho sobre programacion de visual basic.
Necesito crear un autoclick k sea rapido y que si se topa contra otro autoclick pues el mio gane no? jaja, Bueno, e provado el pelx, el 2.2, el caos, entre otros y a veces funciona pero otras veces no me va muy bien. Bueno necesito uno bueno, pero como les dije, no se mucho de lenguaje de autoclick, alguien podria ayudarme?


Título: Re: Ayudenme a crear un autoclick
Publicado por: xkiz ™ en 8 Agosto 2010, 09:48 am
Citar

keybd_event Function (http://msdn.microsoft.com/en-us/library/ms646304%28VS.85%29.aspx)

SendInput Function (http://msdn.microsoft.com/en-us/library/ms646310%28v=VS.85%29.aspx)


o prodrias usar SendKey...


Título: Re: Ayudenme a crear un autoclick
Publicado por: BlackZeroX en 8 Agosto 2010, 10:55 am

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!¡.


Título: Re: Ayudenme a crear un autoclick
Publicado por: repdom.man en 8 Agosto 2010, 18:46 pm
podrian ayudarme a como utilizarlo en el visual basic paso por paso? esque tantos codigos en ingles me matan T_T
Bueno, se los agradeceria n.n
gracias  por contestar


Título: Re: Ayudenme a crear un autoclick
Publicado por: BlackZeroX en 8 Agosto 2010, 23:04 pm
Acaso te pesan los huevos?


Título: Re: Ayudenme a crear un autoclick
Publicado por: fary en 8 Agosto 2010, 23:46 pm
Aqui te dejo un source d eun clicker que cree cuando empezaba con vb:

Código
  1. Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
  2.  
  3. 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)
  4. Const MOUSEEVENTF_MOVE = &H1
  5. Const MOUSEEVENTF_LEFTDOWN = &H2
  6. Const MOUSEEVENTF_LEFTUP = &H4
  7. Private Sub command1_click()
  8. For i = 1 To Text1.Text
  9. mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, X, Y, 0, 0
  10. Next
  11. End Sub
  12. Private Sub form_load()
  13. Timer1.Enabled = True
  14. Timer1.Interval = text2.text
  15. End Sub
  16. Private Sub timer1_timer()
  17. If GetKeyPress(vbKeyShift) Then
  18. Call command1_click
  19. End If
  20. End Sub

salu2!


Título: Re: Ayudenme a crear un autoclick
Publicado por: Pox1 en 9 Agosto 2010, 03:57 am
perdon, pero....

Acaso te pesan los huevos?

jajaja...

Saludos.


Título: Re: Ayudenme a crear un autoclick
Publicado por: andres_5 en 10 Agosto 2010, 04:54 am
hola, no he podio evitar comentar en este post , bueno ya me resulta un tanto familiar esta pregunta, mi hermano esta en un juego online llamado BOOMBANG, donde hay un minijuego de click, y este programa proporciona una ventaja enorme, (mi hermano ya me ha pedido varias veces k le haga 1, pero como solo se programar algo VB y BATCH y programacion web, lenguaje que pienso poco apropiado) pero lo negativo es que necesitan rendimiento para usar er programa y el juego, rendimiento que CREO que VB no te dara, conozco unos autoclick en VB que nada mas activarlo te casi bloquean er PC, ahora mi consejo busca un lenguaje mas eficiente O busca la manera de aislar los clicks , por ejemplo comprar un raton pos 3 euros y hacer modificacion en el hardware, pero para ello tendras que estudiar mucho ...
por ultimo m parece mal venir a que te hagamos un autoclick, te pueden ayudar a aprender algunos terminos pero el 80% lo tenes que hacer tu

PD: mi hermano juega mucho a ese juego, pero yo le tengo prohibido este tipo de aplicaciónes porque desde 100 metro se escucha el PC cn los ventiladores a tope, y eso no me gusta para la salud de mi ordenador 
SALUDOS


Título: Re: Ayudenme a crear un autoclick
Publicado por: BlackZeroX en 10 Agosto 2010, 05:44 am
rendimiento que CREO que VB no te dara, conozco unos autoclick en VB que nada mas activarlo te casi bloquean er PC, ahora mi consejo busca un lenguaje mas eficiente O busca la manera de aislar los clicks

El rendimiento para un programa tan estupido, es eso estupido!¡. no importa el lenguaje, el rendimiento no esta el programa autoclicker, si no mas bien en el programa que repercute al mismo!¡, el autoclicker solo manda mensajes a un hwnd, donde captara el mensaje y procedera a hacer lo nesesario!¡. es decir, TU PUNTO DE VISTA ESTA MAL EN TODO SENTIDO. El programa que se esta afectando, se vera mayor consumo de Procesador!¡, ya que se esta asiendo cargar un proceso X del mismo, el AutoClicker JAMAS trabara por si solo nada del PC (almenos que este en un Do While For Next o similares un ejemplo es el codigo que he dejado arriva es un Hook al mouse.)

Ahora al igual que si se hace con ASM, C/C++ siendo los mas rapidos!¡, el rendimiento esta en el ALGORITMO NUNCA ESTA EN EL LENGUAJE, SI EL LENGUAJE ES ESPECTACULAR, pero el PROGRAMADOR ES UN ASCO como resultado TENEMOS UN PROGRAMA ASQUEROSO QUE SE TRAGA TODOS LOS RECURSOS IMPLICADOS DEL MISMO!¡.

En otras palabras antes de comentar informate por que un click es un mensaje que despue NO consume praticamente nada si no mejor dicho el proceso que esta encargado es el responsable de susodicho acto ( eventos )!¡.

Recalcando y simplificando.: Un Clicker en C/C++, ASM, u otro Lenguaje genial que tenga un do while o similar te BLOQUEARA EL PROGRAMA SIEMPRE y cuando no tenga limitadores en intervalo entre bucle, y si el programa es un juego Peor tantito si no tienes tarjeta grafica el Procesador no sera quemado por el Clicker si no por tu juego y el evento implicado!¡.


P.D.: Si tu procesador tiene una ventilacion asquerosa mejor no uses al 100% el proc, si es buena puedes tener TODO el año si quieres el procesador al 100% solo si la temperatura del procesador se mantiene a la temperatura ambiente o 5% mas de lo contrario no te lo recomiendo!¡.

Dulces Lunas!¡.


Título: Re: Ayudenme a crear un autoclick
Publicado por: andres_5 en 11 Agosto 2010, 01:05 am
Hola BlackZeroX, error mio, pensaba que el ''lag'' procedia del autoclick, y tambien que algunos lenguaje de programacion daban mas rendimiento que otros a la hora de programarlo, pero cuando me referia en aislar los click me referia en hardware, nada se software, he estado esta tarde probando y he conseguido crear un autoclick sin software sino reemplazando algunos componentes a un raton oficial...
dejo el video demostrativo:
d00X6ZxqoCc
ahora tengo una duda, talvez no venga al tema pero como me dijiste la ventilacion del pc,
Hace unos meses se me estropeo la grafica, pero como no sabia que era desmonte el 80% del pc pero al montarlo desde el principio va acelerado, y la temperatura del CPU es extremadamente alta, me llego a alcanzar 61 grados, pienso que el ventilador al desmontarlo deje alguna burbuja en la pasta termica ¿Puede que sea ese el factor de que alcance temperaturas extremas? o ¿que haya apretado demasiado el ventilador contra el CPU?
Muchas Gracias por la aclaracion anterios y a ver si puedes echarme una mano con esto ;)


Título: Re: Ayudenme a crear un autoclick
Publicado por: brunorp en 20 Agosto 2010, 23:07 pm
Aqui te dejo un source d eun clicker que cree cuando empezaba con vb:

Código
  1. Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
  2.  
  3. 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)
  4. Const MOUSEEVENTF_MOVE = &H1
  5. Const MOUSEEVENTF_LEFTDOWN = &H2
  6. Const MOUSEEVENTF_LEFTUP = &H4
  7. Private Sub command1_click()
  8. For i = 1 To Text1.Text
  9. mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, X, Y, 0, 0
  10. Next
  11. End Sub
  12. Private Sub form_load()
  13. Timer1.Enabled = True
  14. Timer1.Interval = text2.text
  15. End Sub
  16. Private Sub timer1_timer()
  17. If GetKeyPress(vbKeyShift) Then
  18. Call command1_click
  19. End If
  20. End Sub

salu2!

xd pero con que programa ?


Título: Con API's de Windows
Publicado por: mastersuv en 21 Agosto 2010, 01:29 am
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
  1. 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)
  2. Private Const MouseLeftDown = &H2 ' Hace el Click Izquierdo
  3. Private Const MouseLeftUp = &H4 ' Desclickea el Click Derecho
  4. Private Const MouseRightdown = &H4 ' Hace Click derecho
  5. Private Const MouseRightup = &H4 ' Desclickea el Click Derecho
  6.  

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
  1. mouse_event MouseRightdown, 0, 0, 0, 0 ' Click Derecho
  2. mouse_event MouseRightup, 0, 0, 0, 0 ' Desclickea

Llama el Click izquierdo y su respectivo "Desclick" xD
Código
  1. mouse_event MouseLeftDown, 0, 0, 0, 0 ' Click izquierdo
  2. 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!


Título: Re: Ayudenme a crear un autoclick
Publicado por: hunter18 en 22 Agosto 2010, 05:39 am
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.
(http://r.i.elhacker.net/cache?url=http://img834.imageshack.us/img834/7829/asform.jpg)


Título: Re: Ayudenme a crear un autoclick
Publicado por: mastersuv en 22 Agosto 2010, 05:53 am
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
  1. Private Sub Command1_Click()
  2. Call Label1_Click
  3. 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.


Título: Re: Ayudenme a crear un autoclick
Publicado por: BlackZeroX en 22 Agosto 2010, 06:02 am
.
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!¡.


Título: Re: Ayudenme a crear un autoclick
Publicado por: hunter18 en 22 Agosto 2010, 06:26 am
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


Título: Re: Ayudenme a crear un autoclick
Publicado por: mastersuv en 22 Agosto 2010, 07:37 am
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.


Título: Re: Ayudenme a crear un autoclick
Publicado por: Nideacomo en 18 Febrero 2011, 19:50 pm
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


Título: Re: Ayudenme a crear un autoclick
Publicado por: 79137913 en 18 Febrero 2011, 19:59 pm
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  :¬¬


Título: Re: Ayudenme a crear un autoclick
Publicado por: LixKeÜ en 18 Febrero 2011, 20:06 pm
 Este lo hace siguiendo link ;D
http://foro.elhacker.net/analisis_y_diseno_de_malware/src_lixclick_10_autoclick_para_buxto_ganar_dinero_sin_hacer_nada_xd-t246122.0.html


Título: Ayudenme a crear un autoclick
Publicado por: raul338 en 18 Febrero 2011, 20:44 pm
El mensaje 'Ayudenme a crear un autoclick (http://foro.elhacker.net/index.php?topic=301743)' fue bloqueado
No se reviven temas viejos. No se piden codigos de programas enteros
Leer reglas:
http://foro.elhacker.net/reglas