Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: NsTeam en 8 Julio 2009, 05:16 AM

Título: DUDA Con SendKeys
Publicado por: NsTeam 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  =)
Título: Re: DUDA Con SendKeys
Publicado por: 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 (http://www.recursosvisualbasic.com.ar/htm/listado-api/153-keybd_event-en-ves-de-sendkeys.htm)

y para la tecla espacio seria:

Código (vb) [Seleccionar]
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 (vb) [Seleccionar]
SendKeys Chr$(vbKeySpace)


Saludos.



Título: Re: DUDA Con SendKeys
Publicado por: Enemy en 8 Julio 2009, 06:08 AM
Private Sub Command1_Click()
SendKeys "{space}"
End Sub


Solo eso tienes?

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


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:


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
Título: Re: DUDA Con SendKeys
Publicado por: NsTeam 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 (http://www.recursosvisualbasic.com.ar/htm/listado-api/153-keybd_event-en-ves-de-sendkeys.htm)

y para la tecla espacio seria:

Código (vb) [Seleccionar]
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 =(
Título: Re: DUDA Con SendKeys
Publicado por: & 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.
Título: Re: DUDA Con SendKeys
Publicado por: NsTeam 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