DUDA Con SendKeys

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]

Autor

Tema: DUDA Con SendKeys (Leído 4,303 veces)

NsTeam

Desconectado

Mensajes: 127

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

Mensajes: 181

^^,

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

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

SendKeys Chr$(vbKeySpace)

Saludos.


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

Enemy

Desconectado

Mensajes: 285

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

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

Mensajes: 127

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

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

Mensajes: 580

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

Mensajes: 127

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 a: