Test Foro de elhacker.net SMF 2.1

Programación => Scripting => Mensaje iniciado por: WiZZard en 22 Agosto 2010, 05:46 AM

Título: Meter datos por teclado en Vbs?
Publicado por: WiZZard en 22 Agosto 2010, 05:46 AM


Pues eso, mi duda es: ¿como se pueden meter datos por teclado en vbs?
Título: Re: Meter datos por teclado en Vbs?
Publicado por: Shell Root en 22 Agosto 2010, 06:05 AM
Código (vb) [Seleccionar]
Set objshell = createobject("wscript.shell")
Objshell.sendkeys "Estas son las teclas"


PoC:
Código (vb) [Seleccionar]
Set objshell = createobject("wscript.shell")
Set bloc = objshell.exec("notepad") 'ejecutamos el bloc de notas
Wscript.sleep 2000 'espera de dos segundos
Objshell.appactivate bloc.processid 'ponemos el foco en la ventana del bloc
Wscript.sleep 200 'espera de milesimas
Objshell.sendkeys "Tutorial vbs" 'enviamos un mensaje con sendkeys
Objshell.sendkeys "{ENTER}" 'luego del mensaje anterior, un ENTER
Wscript.sleep 2000 'nueva espera de dos segundos
Objshell.sendkeys "Probando la funcion sendkeys" 'enviamos una segunda linea de mensaje


Fuente: http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html
Título: Re: Meter datos por teclado en Vbs?
Publicado por: WiZZard en 22 Agosto 2010, 06:11 AM

Gracias por las respuesta Shell Root pero no era eso lo que preguntaba.

sendkeys lo que hace es mandar letras a una ventana.

Yo lo que quiero es asignar a una variable, el valor de algo escrito por el usuario

como:

set /P variable=

en bach
Título: Re: Meter datos por teclado en Vbs?
Publicado por: Shell Root en 22 Agosto 2010, 06:20 AM
Estó?
Código (vb) [Seleccionar]
Dim sVariable
sVariable = InputBox("Ingrese su nombre")
MsgBox(sVariable)
Título: Re: Meter datos por teclado en Vbs?
Publicado por: WiZZard en 22 Agosto 2010, 06:22 AM


Exacto muchas gracias!!