Mensajes

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.

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

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

PD: "ctrl"  i   "a"

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:

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