Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: Ari--Slash en 5 Noviembre 2008, 16:33 pm



Título: Inputbox VBS
Publicado por: Ari--Slash en 5 Noviembre 2008, 16:33 pm
buenas

ojala novlucker  :xD

quisiera que me expliques un poco mas del inputbox

ya que quiero que cuando s presiona cancelar, se salga el script, pero presiono cancelar y este continua...

algun valor que devuelva asi como el popup??



salu2 y grax


Título: Re: Inputbox VBS
Publicado por: Novlucker en 5 Noviembre 2008, 16:42 pm
Buenas...
Bueno, el inputbox no devuelve valores como lo hace el msgbox :-\, funciona un tanto distinto.

  • Si se ingresa texto y se presiona Aceptar, devuelve el texto ingresado
  • Si se ingresa o no cualquier cosa, y se preciona Cancelar, entonces devuelve una cadena vacía ---> ""
  • Si el valor que se ingresa es nulo, es decir, no se escribe nada, y se presiona Aceptar, también devuelve lo mismo que el anterior

Si tienes el inputbox en un bucle, entonces deberías de verificar que lo que se ingresa sea distinto de "", si es igual, se termina (ten en cuenta que con el Aceptar vació también ocurrirá), y de lo contrario, sigue  :P
Un ejemplo  ;)

Código
  1. Do
  2. opcion = inputbox("Seleccione alguna opcion" & chr(13) & chr(13) & "1 - Masculino" & _
  3. chr(13) & "2 - Femenino" & chr(13) & "3 - Ninguna XD","Opciones","")
  4. Select case opcion
  5. Case "1"
  6. msgbox "Eres hombre"
  7. Exit do
  8. Case "2"
  9. msgbox "Eres mujer"
  10. Exit do
  11. Case "3"
  12. msgbox "Eres.....mmm"
  13. Case ""
  14. msgbox "Ha cancelado o bien, ha ingresado un valor nulo"
  15. Exit do
  16. Case else
  17. msgbox "La opcion seleccionada no es válida"
  18. End Select
  19. Loop

Saludos  ;D


Título: Re: Inputbox VBS
Publicado por: Ari--Slash en 5 Noviembre 2008, 17:09 pm
mas que claro  ;)


gracias por tu explicacion

como puedo hacer que el inputbox acepte solo numeros?  :huh:



salu2


Título: Re: Inputbox VBS
Publicado por: Novlucker en 5 Noviembre 2008, 17:16 pm
No puedes impedir que se ingresen letras, pero si puedes verificar luego que lo ingresado no lo sea  :P

Código
  1. valor = inputbox("Ingrese un valor","Completar","")
  2. msgbox isnumeric(valor)
Saludos  ;)

P.D: con el code anterior también puedes filtrar esto ---> Case else