elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Batch] Ayuda base de datos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: [Batch] Ayuda base de datos  (Leído 7,222 veces)
ELVJop

Desconectado Desconectado

Mensajes: 132



Ver Perfil
Re: Ayuda
« Respuesta #10 en: 5 Mayo 2012, 22:12 pm »

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
 
: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


En línea

El dia 3 de mayo esta cuenta sera borrada.
juan196518

Desconectado Desconectado

Mensajes: 23


Ver Perfil
Re: Ayuda
« Respuesta #11 en: 5 Mayo 2012, 22:13 pm »

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
 
: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
grax


En línea

Back Track 5♥
Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[batch]base de datos
Scripting
Mark.18 2 6,239 Último mensaje 16 Octubre 2008, 22:57 pm
por Mark.18
[BATCH]Ayuda Base de Datos
Scripting
Geormarsch 5 3,316 Último mensaje 4 Noviembre 2011, 20:40 pm
por Geormarsch
[Batch][Aporte] Base de datos para clientes.
Scripting
Geormarsch 7 5,610 Último mensaje 7 Noviembre 2011, 22:28 pm
por Geormarsch
Ayuda por favor. Batch que almacene datos en un txt consultable
Scripting
VicInFlames 1 3,542 Último mensaje 12 Agosto 2013, 09:39 am
por Meine programmen
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines