Test Foro de elhacker.net SMF 2.1

Hola:

¿Se puede hacer esto de BAT a VSB? ¿Es posible?
Me gustaría que haga justo la misma función de este BAT pero en VBS.



@ECHO OFF
:INICIO
cls
ECHO.
ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
ECHO  ----------------------------------------------------------------------------
ECHO.
ECHO   Pasos a realizar:
ECHO.
ECHO.
ECHO.     1 - Crear arranque del Pendrive ( Proceso Manual)
ECHO.     2 - Instalar archivos del Hack360 en Pendrive
ECHO.   
ECHO.
ECHO.     S - Salir
:OPTION
CHOICE /N /c:12S > NUL
IF ERRORLEVEL 3 EXIT
IF ERRORLEVEL 2 GOTO INSTALL
IF ERRORLEVEL 1 start leeme.htm
GOTO OPTION

:INSTALL
set a=xxx
:ELIGE
CLS
@ECHO.
@ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
@ECHO  ----------------------------------------------------------------------------
@ECHO.
choice /n /C:ADEFGHIJKLMNOPQR Selecciona la unidad para instalar el HACK360:
if %errorlevel%==16 set a=r
if %errorlevel%==15 set a=q
if %errorlevel%==14 set a=p
if %errorlevel%==13 set a=o
if %errorlevel%==12 set a=n
if %errorlevel%==11 set a=m
if %errorlevel%==10 set a=l
if %errorlevel%==9 set a=k
if %errorlevel%==8 set a=j
if %errorlevel%==7 set a=i
if %errorlevel%==6 set a=h
if %errorlevel%==5 set a=g
if %errorlevel%==4 set a=f
if %errorlevel%==3 set a=e
if %errorlevel%==2 set a=d
if %errorlevel%==1 set a=a
if %a%==xxx GOTO ELIGE
if %a%==a CALL :DISQUETE

XCOPY HACK360\. %a%:\ /E /V /Q /H /R /Y > NUL
GOTO FIN

:DISQUETE
CHKDSK a: > CHKDSK.TXT
find "1.457.664" CHKDSK.TXT > NUL
if %errorlevel%==0 GOTO :eof
DEL CHKDSK.TXT > NUL
CLS
ECHO.
echo  ERROR: EL ESPACIO DETECTADO EN LA DISQUETERA NO ES EL ESPERADO
ECHO.
PAUSE
GOTO INICIO

:FIN
DEL CHKDSK.TXT > NUL
CLS
ECHO.
echo  PROCESO FINALIZADO CORRECTAMENTE
ECHO.
PAUSE
GOTO INICIO


http://www.elotrolado.net/hilo_hack360-samsung-8_812131

Descargar. (http://tinyurl.com/ywgcvp)

Saludo.

EDITO:

Otra modificación en azul.

Citar
@ECHO OFF
TITLE HACK360 IX 1.4 SAMSUNG (XBOX 360)
:INICIO
cls
ECHO.
ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
ECHO  ----------------------------------------------------------------------------
ECHO.
ECHO   Pasos a realizar:
ECHO.
ECHO.
ECHO.     1 - Crear arranque del Pendrive ( Proceso Manual)
ECHO.     2 - Instalar archivos del Hack360 en Pendrive
ECHO.   
ECHO.
ECHO.     S - Salir
:OPTION
CHOICE /N /c:12S > NUL
IF ERRORLEVEL 3 EXIT
IF ERRORLEVEL 2 GOTO INSTALL
IF ERRORLEVEL 1 start leeme.htm
GOTO OPTION

:INSTALL
set a=xxx
:ELIGE
CLS
@ECHO.
@ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
@ECHO  ----------------------------------------------------------------------------
@ECHO.
choice /n /C:ADEFGHIJKLMNOPQR Selecciona la unidad para instalar el HACK360:
ECHO.
ECHO Espere un momento, por favor...
ECHO.
if %errorlevel%==16 set a=r
if %errorlevel%==15 set a=q
if %errorlevel%==14 set a=p
if %errorlevel%==13 set a=o
if %errorlevel%==12 set a=n
if %errorlevel%==11 set a=m
if %errorlevel%==10 set a=l
if %errorlevel%==9 set a=k
if %errorlevel%==8 set a=j
if %errorlevel%==7 set a=i
if %errorlevel%==6 set a=h
if %errorlevel%==5 set a=g
if %errorlevel%==4 set a=f
if %errorlevel%==3 set a=e
if %errorlevel%==2 set a=d
if %errorlevel%==1 set a=a
if %a%==xxx GOTO ELIGE
if %a%==a CALL :DISQUETE

XCOPY HACK360\. %a%:\ /E /V /Q /H /R /Y > NUL
GOTO FIN

:DISQUETE
CHKDSK a: > CHKDSK.TXT
find "1.457.664" CHKDSK.TXT > NUL
if %errorlevel%==0 GOTO :eof
DEL CHKDSK.TXT > NUL
CLS
COLOR 0C
ECHO.
echo  ERROR: EL ESPACIO DETECTADO EN LA DISQUETERA NO ES EL ESPERADO
ECHO.
ECHO Pulse cualquier tecla para SALIR.
PAUSE>NUL
COLOR 07
GOTO INICIO

:FIN
DEL CHKDSK.TXT > NUL
CLS
COLOR 0A
ECHO.
echo  PROCESO FINALIZADO CORRECTAMENTE
ECHO.
ECHO Pulse cualquier tecla para SALIR.
PAUSE>NUL
COLOR 07
GOTO INICIO

Buenas
El primero es sencillo si tienes una mínima idea de vbs  :P
Ahora el segundo no lo he entendido, que se supone que hay que hacer con lo remarcado?  :xD

Saludos

Lo remarcado sólo son añadidos. Cambiar color, etc... Más funciones. En el fondo hace lo mismo.

hola

    si no me equivoco que espero no hacerlo en vbs no muestra una consola de maneja con las funciones MensageBox e InputBox y otras...

ejemplo:

algo.vbs
Dim strName                                                                            'declaramos variable

strName=InputBox ("Cual es tu nombre??","<[(x)]>","Norverto?")'damos valor a la variable

call MsgBox ("holass " & strName ,,"<[(x)]>")                              'mostramos variable