VBS Acabar script

Foro de elhacker.net

Programación

Scripting

VBS Acabar script

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: VBS Acabar script (Leído 1,840 veces)

jalbtercero

Desconectado

Mensajes: 80

VBS Acabar script

« en: 21 Septiembre 2016, 20:26 pm »

Buenas tengo este script pero cuando escribo fin se cierra la pestaña pero continua con el codigo y ejecuta la parte donde te pregunta donde quieres crear el archivo

Código

set obj = createobject("scripting.filesystemobject")
Do
elc1 = InputBox("Quieres archivos o carpetas:","alex","",1000,5000)
if elec1 = archivos then
 elec2 = InputBox("Escribe la ruta y el nombre del archivo con la extension")
	obj.createtextfile(elec2)
elseif elec1 = carpetas then
 elec3 = InputBox("Escribe la ruta y el nombre de la carpeta")
	obj.createfolder(elec3)
elseif elec1 = fin then
	WScript.Quit
End if
Loop


« Última modificación: 21 Septiembre 2016, 20:44 pm por Eleкtro »	En línea

Eleкtro

Ex-Staff

Desconectado

Mensajes: 9.870

Re: VBS Acabar script

« Respuesta #1 en: 21 Septiembre 2016, 20:43 pm »

Hola.

No uso VB for Applications, pero no creo que esa condicional se esté evaluando correctamente... prueba a añadirle comillas dobles.

EDITO: Aparte de eso, la variable se llama elc1, pero tu estás intentando evaluar una variable inexistente con nombre elec1, corrígelo en tu código...

Código

elec1 = LCase( InputBox("Quieres archivos o carpetas:","alex","",1000,5000) )
 
if elec1 = "archivos" then
    ...
 
elseif elec1 = "carpetas" then
    ...
 
elseif elec1 = "fin" then
    WScript.Quit(0)
 
End if

Saludos


« Última modificación: 21 Septiembre 2016, 20:49 pm por Eleкtro »	En línea

jalbtercero

Desconectado

Mensajes: 80

Re: VBS Acabar script

« Respuesta #2 en: 22 Septiembre 2016, 15:10 pm »

Gracias pero por alguna razon cuando intento evaluar con comillas dobles me da error y lo tengo que poner sin comillas


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	script bash (ubuntu): Parar un proceso sin salir del script (SOLUCIONADO) Scripting	moikano→@	6	11,438	28 Octubre 2010, 15:48 pm por moikano→@
	Prodigy Bot v1.0 (Sin acabar) [VB6] Análisis y Diseño de Malware	illuminat3d	2	6,047	27 Enero 2011, 01:20 am por Elemental Code
	[Script]Script para calcular offset de un ejectuable Ingeniería Inversa	.:UND3R:.	4	5,108	29 Septiembre 2011, 16:13 pm por .:UND3R:.
	Refused to execute a javascript script. Source code of script found within reque Nivel Web	acoevil	2	4,584	7 Diciembre 2011, 13:17 pm por acoevil
	[Shell script] Un pequeño script para ver temperaturas. Scripting	manute_powa	3	5,951	7 Enero 2012, 02:18 am por manute_powa