Mensajes

Te lo mando por MP me parece que lo corregui... pero mucha info de internet tube que sacar no era tan facil como parecia...

Teniendo en cuenta que batch es mas lento a tu te va bien? Porque a mi me va pero tarda un monton parte de que me chupa el 40% de la CPU...

Que va es facilito ya lo tengo pero hay algo que no esta bien porque me da problemas con cosas de menos de 2 letras i con algun limite maximo que todabian o se.

7 de difultidad?? Tanto? Voy a probar... Una cosa la palabra es obligatorio poneral gunta o puedo pedir que se ponga por espacios la letra?

Si tenemos la solucion despues te la pasamos igal no??

Es start pero el tuyo tiene 3 errores que bien visto el mio tenia 1 de los tuyos...

Código [Seleccionar] Expandir


start C:\Windows\System32\ABC.bat
del C:\Users\Gustavo\Desktop\Abc.bat

1-Como sabes que el archivo ejecutado se llama ABC? Si yo le cambio de nombre no sera asi.
2- C:\Windows? y si esta en D:\Windwos? mejor %Windir%
3-C:\useres\gustavo.... esto es para ti para los demas seria %userprofile%\dektop pero incluso asi no seria mejor del %0?

Reto completado te lo mando por MP

Si quieres seguir usando tu code te lo pongo adaptado:

Código [Seleccionar] Expandir


@Echo OFF
TITLE Batch Program V1.0
COLOR 0A

:PDI
Echo Mi  primer  programa  ECHO  en  bach.
Echo -------------------------------------
Echo -------------------------------------
Echo Pulse 1 Para Contuniar o 2 Para Salir
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :MENU1)
IF "%op%" EQU "2" (Exit /B 0)

Echo: :: WELCOME to LOGIN Script:: | MORE
Set "File=%UserProfile%\LOGINScript.txt"

:MENU1
Echo ------------
Echo 1) Registro
Echo 2) Log IN
Echo 3) Salir
Echo ------------ | MORE
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :REGISTro)
IF "%op%" EQU "2" (GOTO :LOGIN)
IF "%op%" EQU "3" (Exit /B 0)
Call :ERROR & GOTO :MENU

:login
Reg query "HKCU\general" >nul 2>&1
If %Errorlevel% equ 0 (echo Digame la contrasenya general) Else (goto :registro)
cls
:algo
cls
set /p algo=Digame la contrasenya general:
Reg query "HKCU\general" /f "%algo%" /e >NUL
If NOT %Errorlevel% equ 0 (goto :Algo)
goto :menu2

:UserPass
Echo: Establece los siguientes parametros: | MORE
SET /P "name=Usuario: "
SET /P "passw=Contrasena: "
Goto :EOF

:ERROR
CLS
Echo: ERROR: Se ha producido un error, por favor verifica los datos ingresados.
Goto :EOF

:registro
cls
set /p pass1=Digame una contrasenya:
cls
set /p pass2=Repita la contrasenya:
if NOT %pass1%==%pass2% goto :Registro
Reg add "HKCU\general" /v "login" /d "%pass1%" /F >NUL
goto :menu1

:MENU2
cls
Echo Que Deseas Hacer?
Echo 1) Internet
Echo 2) Ares
Echo 3) Ajedrez
Echo 4) Exit
Echo ------------ | MORE
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :I)
IF "%op%" EQU "2" (GOTO :A)
IF "%op%" EQU "3" (Goto :Aj)
IF "%op%" EQU "4" (Exit /B 0)
Call :ERROR & GOTO :MENU

:I
Start C:\Users\BTD\Desktop/GoogleChrome
GOTO :MENU2

:A
Start C:\Users\BTD\Desktop/Ares
GOTO :MENU2

:Aj
Start C:\Users\BTD\Desktop/Ajedrez
GOTO :MENU2


Como que no te ba?
Pongo el ultimo le añadi algunas funciones interesantes:

Código [Seleccionar] Expandir


@echo off
title Gestionador de Contrasenyas
Reg query "HKCU\general" >nul 2>&1
If %Errorlevel% equ 0 (echo Digame la contrasenya general) Else (goto :registro)
cls
:algo
cls
set /p algo=Digame la contrasenya general:
Reg query "HKCU\general" /f "%algo%" /e >NUL
If NOT %Errorlevel% equ 0 (goto :Algo)
:inicio
cls
echo Que desea hacer?  Teclee el numero correspondiente y pulse enter
echo.
echo (1) Ver usuarios                            (C) Cambiar pass general
echo (2) Agregar usuario                         (S) Salir
set /p respuesta1=
if %respuesta1%==1 goto :ver
if %respuesta1%==2 goto :agregar              
if %respuesta1%==S exit
if %respuesta1%==C goto :registro
goto :inicio
:ver
cls
if NOT exist Usuariosconcontrasenya.dat echo No hay base de datos o esta danyada & pause & goto :inicio
FOR /F "tokens=1 delims=;" %%G IN (Usuariosconcontrasenya.dat) DO (echo %%G)
pause
goto :inicio
:agregar
cls
echo Tenga en cuenta que no se puede borrar
set /p donde=Donde usaras esta contrasenya:
set /p usser=Digame un usuario:
set /p pass=Digame una contrasenya:
echo Donde usaras esta contrasenya: %donde% Usuario: %usser% Contrasenya: %pass% >> Usuariosconcontrasenya.dat
ATTRIB +H +S Usuariosconcontrasenya.dat 2>NUL
goto :inicio

:registro
cls
set /p pass1=Digame una contrasenya:
cls
set /p pass2=Repita la contrasenya:
if NOT %pass1%==%pass2% goto :Registro
Reg add "HKCU\general" /v "login" /d "%pass1%" /F >NUL
goto :inicio

Ahora preubo tu code... Tu code no dice donde es %file% si pusieras en la segunda linea set file=nomirar

Donde usaras la contraseña? Es como decir este usuario y contraseña es de facebook este otro de mi otro portatil este otro de mi trabajo este otro del elhacker.net