elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  DUDA Con SendKeys		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: DUDA Con SendKeys  (Leído 4,446 veces)
NsTeam

Desconectado Desconectado

Mensajes: 127


Ver Perfil
DUDA Con SendKeys
« en: 8 Julio 2009, 05:16 am »
Hola a Todos

Bueno Esta Es la Duda QUe Tengo

SendKeys "{space}"

Me Tira el error   "Run-time error '5': Invalid procedure call or argument"

Bueno El Pekeño Code que tengo es Este

Private Sub Command1_Click()
SendKeys "{space}"
End Sub



Lo Cual Al hAcer Clik en el Comman1 envie la Tecla Space

Pero ME MAnda El Error


--> se Que Alguna de sus Respuestas Sera QUe Ponga Lo Siguiente

SendKeys " "

Pero En Si Lo Que QUiero Es Que Se Presione La tecla SPACE

Bueno Espero Alguna Respuesta Que Me Ayude

Gracias de ANtemano  =)
En línea
byway

Desconectado Desconectado

Mensajes: 181


^^,


Ver Perfil
Re: DUDA Con SendKeys
« Respuesta #1 en: 8 Julio 2009, 05:59 am »
puedes usar el Api keybd_event en vez de SendKeys :

http://www.recursosvisualbasic.com.ar/htm/listado-api/153-keybd_event-en-ves-de-sendkeys.htm

y para la tecla espacio seria:

Código
  1. vbKeySpace

Edit:
estuve revisando y no hay para espacio asi que se puede usar el caracter ascii de espacio que es 32 entonces con esto debe funcionar:

Código
  1. SendKeys Chr$(vbKeySpace)


Saludos.
« Última modificación: 8 Julio 2009, 06:15 am por byway » En línea
Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Re: DUDA Con SendKeys
« Respuesta #2 en: 8 Julio 2009, 06:08 am »
Código:
Private Sub Command1_Click()
SendKeys "{space}"
End Sub

Solo eso tienes?

no se si funcionara asi suelto yo se que es así:

Código:
Private Sub Command1_Click()
Set WSS = CreateObject("WScript.Shell")
WSS.SendKeys "Teclas"
WSS.SendKeys "Mas Teclas"
End Sub

y si lo quieres hacer sobre una aplicación:

Código:
Private Sub Command1_Click()
Set WSS = createobject("wscript.shell")
Set Variable = WSS.exec("Notepad.exe")   ' O Cualquier otra aplicación.
WSS.AppActivate Variable.ProcessID
WSS.SendKeys "Bla Bla Bla"
WSSvar.SendKeys "{ENTER}"
End Sub


Es eso lo que buscas?









SALUD.O.S
En línea
NsTeam

Desconectado Desconectado

Mensajes: 127


Ver Perfil
Re: DUDA Con SendKeys
« Respuesta #3 en: 8 Julio 2009, 06:11 am »
Cita de: byway en  8 Julio 2009, 05:59 am
puedes usar el Api keybd_event en vez de SendKeys :

http://www.recursosvisualbasic.com.ar/htm/listado-api/153-keybd_event-en-ves-de-sendkeys.htm

y para la tecla espacio seria:

Código
  1. vbKeySpace

Saludos.





Gracias Por La Ayuda

Era Exactamente Lo QUe Buskaba =)

Pero Quise Probarlo Con Un Juego

para que al presionar SPACE 

Brincara   , pero VEo QUe No ME Anda PAra Eso =(
« Última modificación: 8 Julio 2009, 06:15 am por NsTeam » En línea
& eDu &


Desconectado Desconectado

Mensajes: 580



Ver Perfil
Re: DUDA Con SendKeys
« Respuesta #4 en: 8 Julio 2009, 10:15 am »
No te anda por que lo tienes en un command, y cuando apretas el programa que tienes , es decir de plano es el programa. Pon un time con el código y ves al juego.
En línea
NsTeam

Desconectado Desconectado

Mensajes: 127


Ver Perfil
Re: DUDA Con SendKeys
« Respuesta #5 en: 8 Julio 2009, 18:00 pm »
Cita de: & eDu & en  8 Julio 2009, 10:15 am
No te anda por que lo tienes en un command, y cuando apretas el programa que tienes , es decir de plano es el programa. Pon un time con el código y ves al juego.

Puse Un Timer con un Interval de 2000

Pense que la tecla Space se presionaria Sola

Pero En El Juego NO Se Presiona

INtente Con AppActivate  Y Aun ASi NAda

T.T
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines