VB 6.0 --> Crear un pequeño bot

Iniciado por coguepard, 31 Julio 2009, 20:05 PM

0 Miembros y 1 Visitante están viendo este tema.

coguepard

Hola a todos los expertos de VB, tengo instalado VB 6.0 me he leido un manual, pero claro mi cabeza no es capaz de entender nada porque tanta jerarquia y tantas cosas. Mi intencion es crear un pequeño bot y de alli ir avanzando, pero me gustaria crearlo yo.

Objetivos:

Quiero crear un bot muy simple. Seria ejecutar el Proyecto1.exe i que se abriera una pequeña ventana con un boton enmedio el qual en caption he puesto "OK". Una vez echo esto abro otra funcion (de sendkey), llamada Procedimiento1 donde este se encargue de presionar "ctrl" i "a" a la vez. Eso es  lo que yo con mis pocos conocimientos he intentado acer i no se si lo he conseguido. Pero claro mi intencion seria añadir una funcion que seria la ejecucion de un software, i que entonces que el sendkey se funcionara ahi.

He ojeado unos post que decian sobre enviar el sendkey a una ventana no a un programa i acer asi poder trabajar con otras aplicaciones i dejar este bot en la ventana.

PD: Yo he intentado cambiar por codigo el titulo del boton i de la ventana de mi programa que dice Form1 poniendo " caption = Ok" pero no cambia, sino cuando le doy al boton ok cambia por ello he querido ponerlo en el load_form pero nada.

Os adjunto el codigo se que estara mal por todos  lados pero algo de comprension porfavor:
Citar
Private Sub Ok_Click()
Procedimiento1
End Sub
Private Sub Procedimiento1()
Execute "C:\Program Files\Carpeta del Programa\Programa.exe"  'Con esto no se que puedo acer, i aun asi me da error
Dim Procedimiento1 As Object
Procedimiento1.Enabled
Procedimiento1.SendKeystroke ("^(a)" = True)
End Sub

h0oke

Veamos si entendi.

Quieres que al presionar sobre OK,

1) Se abra tu juego
2) Comience a enviar "ctrl - i" con cierta frecuencia?(Parecido a un autoclick)

coguepard

Exactamente, cada ceirto tiempo o continuamente. Esto seria lo esencial despues me gustaria ir avanzando i acer otras cosas

PD: "ctrl"  i   "a"


h0oke

#4
Aqui más info:

Activex y ejemplo para crear hotkeys en visual basic

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/189-ocx-hotkey.htm

Y si te sirve, los autoclicker que hicimos S0ler y yo:

http://foro.elhacker.net/programacion_vb/pulsando_teclas_con_visual_basic-t257211.0.html

EDIT: Esto no creo que sea un tema de hacking, si es tan solo eso.

coguepard

Eso esta muy bien pero yo lo que quiero es que, voy a crear un evento para que me abra ek programa o que el sendkey sea ejecutado dentro de ese programa llamemosle " programa1". Que debo acer, porfavor puedes supervisar ese codigo que he puesto

Gracias

h0oke

Procedimiento1.Enabled :huh:

Mira, la verdad si quieres que sea tan solo un bucle de "(ctrl+i)'s", bastará con que utilices las api, y la documentación que hiciste.

Tu código sería:

Private Sub Command1_Click()
http://msdn.microsoft.com/en-us/library/bb762153%28VS.85%29.aspx
http://msdn.microsoft.com/en-us/library/ms646309%28VS.85%29.aspx
End Sub


Eso es todo.

Si lo que necesitas, es que al ejecutarse tu jueguito se active una función, tendrás que buscar sobre inyecciones de código, o dll; pero no creo que sea tu caso, ya que solo necesitas un hotkey con un timer, aunque no lo deberías necesitar gracias al ejemplo que te deje de seba.

Un saludo!

coguepard

Perdon pero yo me referia a "ctrl"        i       "a"      a la vez no ctrl + i.

Pero de todas formas gracias i me gustaria que me explicaras que significa esa direccion de microsoft porfavor.

h0oke

CitarPerdon pero yo me referia a "ctrl"        i       "a"      a la vez no ctrl + i.
Es lo mismo...  :rolleyes:

CitarPero de todas formas gracias i me gustaria que me explicaras que significa esa direccion de microsoft porfavor.

Son API's, y msdn es la mejor documentación que existen sobre el entorno Windows.

Si todavía no estás familizaridado con esto, lee un poco más.

Un  saludo!

kamsky

creo que esto iría mejor en análisis/diseño de malware o incluso en el subforo de programación de Vb..
----NO HAY ARMA MÁS MORTÍFERA QUE UNA PALABRA BROTADA DE UN CORAZÓN NOBLE, Y UN PAR DE HUEVOS QUE LA RESPALDEN---

                       hack 4 free!!