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?
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...
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!¡.
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
Acaso te pesan los huevos?
Aqui te dejo un source d eun clicker que cree cuando empezaba con vb:
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!
perdon, pero....
Cita de: BlackZeroX en 8 Agosto 2010, 23:04 PM
Acaso te pesan los huevos?
jajaja...
Saludos.
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
Cita de: andres_5 en 10 Agosto 2010, 04:54 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!¡.
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:
[youtube=425,350]http://www.youtube.com/watch?v=d00X6ZxqoCc[/youtube]
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 ;)
Cita de: Drinky94 en 8 Agosto 2010, 23:46 PM
Aqui te dejo un source d eun clicker que cree cuando empezaba con vb:
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 ?
Con Visual Basic 6.0 puedes hacer uno muy facilmente...
Necesitas declarar estas API's en la sección de declaraciones del código:
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
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
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!
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)
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:
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.
.
La sobre explicación es lo mas valorado!¡.
Cita de: 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!¡.
Dulces Lunas!¡.
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
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.
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
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 :¬¬
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
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