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.
Es start pero el tuyo tiene 3 errores que bien visto el mio tenia 1 de los tuyos...
Código:
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?
Si quieres seguir usando tu code te lo pongo adaptado:
Código:
@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
Como que no te ba? Pongo el ultimo le añadi algunas funciones interesantes:
Código:
@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
Mostrar Mensajes