Oops.. Este post tiene los enlaces eliminados!

Identi revisa las denuncias de los usuarios en busca de enlaces eliminados que no dejan descargar los archivos, este mensaje te informa que este post que estas viendo tiene los enlaces eliminados.

Usa el Buscador

Por favor, te recomendamos que uses el buscador para encontrar más alternativas.

Archivos BAT [Créalos o Descárgalos] Parte III

  • Categoría: Reciclaje
  • Publicado hace más de 3 años
Mancala

Este archivo es un juego en el cual deberás jugar contra la computadora y este posee instrucciones para los que no lo conozcan

@echo off
title Mancala
color 02
:titlescreen
color 0a
echo.
echo.
echo.
echo                                *****************************************
echo.
echo                                  ##   ##
echo                                  ### ###                       #
echo                                  ## # ## ####  #### #### ####  # ####
echo                                  ##   ## #  #  #  # #    #  #  # #  #
echo                                  ##   ## ### # #  # #### ### # # ### #
echo.
echo                                *****************************************
echo.
echo.
echo 1) Jugar
echo 2) Instrucciones
echo.
set /p v=
if %v% equ 1 goto :superstart
if %v% equ 2 goto :instruct
echo.
:instruct
cls
echo.
echo.
echo Bienvenidos a mancala. El objetivo del juego es ponerse la mayor
echo cantidad de piedras de su lado. No hay piedras verdaderas, sino 
echo que hay numeros en cada ranura que representa la cantidad de 
echo piedras. Para mover las piedras, teclea la columna que deseas 
echo mover (solo la minuscula). Al final, la persona con la mayor 
echo cantidad de piedras de su lado gana. El juego termina cuando
echo todas las piedras estan de un lado. El primer jugador esta abajo 
echo y se mueve hacia la derecha y el segundo jugador esta arriba y 
echo se mueve hacia la izquierda. Recibes una vuelta extra si la 
echo ultima piedra esta en su lado.
echo.
pause
:superstart
cls
set /a p1s=0
set /a p2s=0
set /a draw=0
echo.
echo.
echo ¿Quien es el jugador 1?
echo.
set /p p1=
echo.
cls
echo.
echo.
echo ¿Quien es el jugador 2?
echo.
set /p p2=
echo.
cls
:start
set /a s1=0
set /a s2=0
set /a a1=4
set /a a2=4
set /a b1=4
set /a b2=4
set /a c1=4
set /a c2=4
set /a d1=4
set /a d2=4
set /a e1=4
set /a e2=4
set /a f1=4
set /a f2=4
:map1
cls
echo.
echo.
echo                         Puntaje: %p1%: %p1s%
echo                                  %p2%: %p2s%
echo                                Empate: %draw%
echo.
echo                   %p2%
echo.
echo                           a   b   c   d   e   f 
echo.
echo                          [%a2%] [%b2%] [%c2%] [%d2%] [%e2%] [%f2%]
echo                       {*}                       {*}
echo                       {%s2%}        mancala        {%s1%}
echo                       {*}                       {*}
echo                          [%a1%] [%b1%] [%c1%] [%d1%] [%e1%] [%f1%]
echo.
echo                           a   b   c   d   e   f
echo.
echo                                                    %p1%
echo.
goto p1
:map1extra
cls
echo.
echo.
echo                         Puntaje: %p1%: %p1s%
echo                                  %p2%: %p2s%
echo                                Empate: %draw%
echo.
echo                   %p2%
echo.
echo                           a   b   c   d   e   f
echo.
echo                          [%a2%] [%b2%] [%c2%] [%d2%] [%e2%] [%f2%]
echo                       {*}                       {*}
echo                       {%s2%}        mancala        {%s1%}
echo                       {*}                       {*}
echo                          [%a1%] [%b1%] [%c1%] [%d1%] [%e1%] [%f1%]
echo.
echo                           a   b   c   d   e   f
echo.
echo                                                    %p1%
echo ¡Turno extra!
echo.
goto p1
:map2
cls
echo.
echo.
echo                    Puntaje: %p1%: %p1s%
echo                             %p2%: %p2s%
echo                           Empate: %draw%
echo.
echo                   %p2% 
echo.
echo                           a   b   c   d   e   f
echo.
echo                          [%a2%] [%b2%] [%c2%] [%d2%] [%e2%] [%f2%]
echo                       {*}                       {*}
echo                       {%s2%}        mancala        {%s1%}
echo                       {*}                       {*}
echo                          [%a1%] [%b1%] [%c1%] [%d1%] [%e1%] [%f1%]
echo.
echo                           a   b   c   d   e   f
echo.
echo                                                    %p1%
echo.
goto p2
:map2extra
cls
echo.
echo.
echo                    Puntaje: %p1%: %p1s%
echo                             %p2%: %p2s%
echo                           Empate: %draw%
echo.
echo                   %p2%
echo.
echo                           a   b   c   d   e   f
echo.
echo                          [%a2%] [%b2%] [%c2%] [%d2%] [%e2%] [%f2%]
echo                       {*}                       {*}
echo                       {%s2%}        mancala        {%s1%}
echo                       {*}                       {*}
echo                          [%a1%] [%b1%] [%c1%] [%d1%] [%e1%] [%f1%]
echo.
echo                           a   b   c   d   e   f
echo.
echo                                                    %p1%
echo ¡Turno extra!
echo.
goto p2
:p1
if %a2%+%b2%+%c2%+%d2%+%e2%+%f2%+%a1%+%b1%+%c1%+%d1%+%e1%+%f1% equ 0+0+0+0+0+0+0+0+0+0+0+0 goto end
if %a1%+%b1%+%c1%+%d1%+%e1%+%f1% equ 0+0+0+0+0+0 goto map2
echo.
echo %p1%, es tu turno. Selecciona el grupo que deseas mover.
echo.
set /p x=
if %x% equ a goto a1
if %x% equ b goto b1
if %x% equ c goto c1
if %x% equ d goto d1
if %x% equ e goto e1
if %x% equ f goto f1
:a1
if %a1% equ 0 goto error1
:a11
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a b1=%b1%+1
:a12
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a c1=%c1%+1
:a13
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a d1=%d1%+1
:a14
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a e1=%e1%+1
:a15
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a f1=%f1%+1
:a16
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a s1=%s1%+1
:a17
if %a1% equ 0 goto map1extra
set /a a1=%a1%-1
set /a f2=%f2%+1
:a18
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a e2=%e2%+1
:a19
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a d2=%d2%+1
:a110
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a c2=%c2%+1
:a111
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a b2=%b2%+1
:a112
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a a2=%a2%+1
:a13
if %a1% equ 0 goto map2
set /a a1=%a1%-1
set /a a1=%a1%+1
goto a11
:b1
if %b1% equ 0 goto error1
:b11
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a c1=%c1%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a d1=%d1%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a e1=%e1%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a f1=%f1%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a s1=%s1%+1
if %b1% equ 0 goto map1extra
set /a b1=%b1%-1
set /a f2=%f2%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a e2=%e2%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a d2=%d2%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a c2=%c2%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a b2=%b2%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a a2=%a2%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a a1=%a1%+1
if %b1% equ 0 goto map2
set /a b1=%b1%-1
set /a b1=%b1%+1
goto :b11
:c1
if %c1% equ 0 goto error1
:c11
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a d1=%d1%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a e1=%e1%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a f1=%f1%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a s1=%s1%+1
if %c1% equ 0 goto map1extra
set /a c1=%c1%-1
set /a f2=%f2%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a e2=%e2%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a d2=%d2%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a c2=%c2%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a b2=%b2%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a a2=%a2%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a a1=%a1%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a b1=%b1%+1
if %c1% equ 0 goto map2
set /a c1=%c1%-1
set /a c1=%c1%+1
goto c11
:d1
if %d1% equ 0 goto error1
:d11
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a e1=%e1%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a f1=%f1%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a s1=%s1%+1
if %d1% equ 0 goto map1extra
set /a d1=%d1%-1
set /a f2=%f2%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a e2=%e2%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a d2=%d2%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a c2=%c2%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a b2=%b2%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a a2=%a2%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a a1=%a1%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a b1=%b1%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a c1=%c1%+1
if %d1% equ 0 goto map2
set /a d1=%d1%-1
set /a d1=%d1%+1
goto d11
:e1
if %e1% equ 0 goto error1
:e11
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a f1=%f1%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a s1=%s1%+1
if %e1% equ 0 goto map1extra
set /a e1=%e1%-1
set /a f2=%f2%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a e2=%e2%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a d2=%d2%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a c2=%c2%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a b2=%b2%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a a2=%a2%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a a1=%a1%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a b1=%b1%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a c1=%c1%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a d1=%d1%+1
if %e1% equ 0 goto map2
set /a e1=%e1%-1
set /a e1=%e1%+1
goto e11
:f1
if %f1% equ 0 goto error1
:f11
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a s1=%s1%+1
if %f1% equ 0 goto map1extra
set /a f1=%f1%-1
set /a f2=%f2%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a e2=%e2%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a d2=%d2%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a c2=%c2%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a b2=%b2%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a a2=%a2%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a a1=%a1%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a b1=%b1%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a c1=%c1%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a d1=%d1%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a e1=%e1%+1
if %f1% equ 0 goto map2
set /a f1=%f1%-1
set /a f1=%f1%+1
goto f11
:p2
if %a2%+%b2%+%c2%+%d2%+%e2%+%f2%+%a1%+%b1%+%c1%+%d1%+%e1%+%f1% equ 0+0+0+0+0+0+0+0+0+0+0+0 goto end
if %a2%+%b2%+%c2%+%d2%+%e2%+%f2% equ 0+0+0+0+0+0 goto map1
echo.
echo %p2%, es tu turno. Selecciona el grupo que deseas mover.
echo.
set /p x=
if %x% equ a goto a2
if %x% equ b goto b2
if %x% equ c goto c2
if %x% equ d goto d2
if %x% equ e goto e2
if %x% equ f goto f2
:a2
if %a2% equ 0 goto error2
:a22
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a s2=%s2%+1
if %a2% equ 0 goto map2extra
set /a a2=%a2%-1
set /a a1=%a1%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a b1=%b1%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a c1=%c1%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a d1=%d1%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a e1=%e1%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a f1=%f1%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a f2=%f2%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a e2=%e2%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a d2=%d2%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a c2=%c2%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a b2=%b2%+1
if %a2% equ 0 goto map1
set /a a2=%a2%-1
set /a a2=%a2%+1
goto a22
:b2
if %b2% equ 0 goto error2
:b22
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a a2=%a2%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a s2=%s2%+1
if %b2% equ 0 goto map2extra
set /a b2=%b2%-1
set /a a1=%a1%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a b1=%b1%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a c1=%c1%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a d1=%d1%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a e1=%e1%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a f1=%f1%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a f2=%f2%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a e2=%e2%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a d2=%d2%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a c2=%c2%+1
if %b2% equ 0 goto map1
set /a b2=%b2%-1
set /a b2=%b2%+1
goto :b22
:c2
if %c2% equ 0 goto error2
:c22
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a b2=%b2%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a a2=%a2%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a s2=%s2%+1
if %c2% equ 0 goto map2extra
set /a c2=%c2%-1
set /a a1=%a1%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a b1=%b1%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a c1=%c1%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a d1=%d1%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a e1=%e1%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a f1=%f1%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a f2=%f2%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a e2=%e2%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a d2=%d2%+1
if %c2% equ 0 goto map1
set /a c2=%c2%-1
set /a c2=%c2%+1
goto c22
:d2
if %d2% equ 0 goto error2
:d22
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a c2=%c2%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a b2=%b2%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a a2=%a2%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a s2=%s2%+1
if %d2% equ 0 goto map2extra
set /a d2=%d2%-1
set /a a1=%a1%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a b1=%b1%+1
if %d2% equ 0 goto map1
set /a d2=%d1%-1
set /a c1=%c1%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a d1=%d1%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a e1=%e1%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a f1=%f1%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a f2=%f2%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a e2=%e2%+1
if %d2% equ 0 goto map1
set /a d2=%d2%-1
set /a d2=%d2%+1
goto d22
:e2
if %e2% equ 0 goto error2
:e22
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a d2=%d2%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a c2=%c2%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a b2=%b2%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a a2=%a2%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a s2=%s2%+1
if %e2% equ 0 goto map2extra
set /a e2=%e2%-1
set /a a1=%a1%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a b1=%b1%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a c1=%c1%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a d1=%d1%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a e1=%e1%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a f1=%f1%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a f2=%f2%+1
if %e2% equ 0 goto map1
set /a e2=%e2%-1
set /a e2=%e2%+1
goto e22
:f2
if %f2% equ 0 goto error2
:f22
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a e2=%e2%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a d2=%d2%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a c2=%c2%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a b2=%b2%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a a2=%a2%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a s2=%s2%+1
if %f2% equ 0 goto map2extra
set /a f2=%f2%-1
set /a a1=%a1%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a b1=%b1%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a c1=%c1%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a d1=%d1%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a e1=%e1%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a f1=%f1%+1
if %f2% equ 0 goto map1
set /a f2=%f2%-1
set /a f2=%f2%+1
goto f22
:error1
echo.
echo Perdon, %p1%, pero ese movimiento es invalido. Por favor selecciona otro grupo.
echo.
pause
goto map1
:error2
echo.
echo Perdon, %p2%, pero ese movimiento es invalido. Por favor selecciona otro grupo.
echo.
pause
goto map2
:end
if %s1% gtr %s2% goto win1
if %s1% lss %s2% goto win2
if %s1% equ %s2% goto draw
:win1
set /a p1s=%p1s%+1
cls
echo.
echo.
echo Felicitaciones %p1%, has ganado esta ronda de mancala
echo Por favor juega de nuevo
echo.
pause
goto :ending
:win2
set /a p2s=%p2s%+1
cls
echo.
echo.
echo Felicitaciones %p2%, has ganado esta ronda de mancala
echo Por favor juega de nuevo
echo.
pause
goto :ending
:draw
cls
set /a draw=%draw%+1
echo.
echo.
echo Perdon %p1% y %p2% pero es un empate
echo.
pause
goto ending
:ending
cls
echo.
echo.
echo Aprete 1 para jugar de nuevo
echo Aprete 2 para cambiar jugadores
echo Aprete 3 para salir
set /p v2=
if %v2% equ 1 goto start
if %v2% equ 2 goto superstart
if %v2% equ 3 goto done
:done

peliculas - programas
10 Puntos Score: 10/10
Visitas: 1590 Favoritos: 3
Ver los usuarios que votaron...
7 Comentarios Archivos BAT [Créalos o Descárgalos] Parte III
Necesito colaboradores para poder crear el programa.
Obviamente tienen que saber manejar lo b?
Tengo varias cosas para decir. Si lo hiciste vos como decis, sos un genio. Me encanta la programacion Batch y tengo un par de pdf que me muestran varios comandos que sirven para varias cosas (incluyedo los "virus"). Me encanta la programacion, pero termine siendo medico. Me gustaria preguntarte algunas cosas sobre los bat, mas que nada, en uno que tengo, pero cuando publique algo aca y ascienda, recien ahi podre enviarte un MP. Unos posteos geniales. Muchas gracias!
Dale buenisimo, no hay problema. De ultima mandamelo por aca y te digo que hacer. Tambien se hacer virus bat, vbs y exe y combinarlos tambien. Podria hacer un post y explicarles como se hacen
Luego tambien ense?
Te cosnsulto por aca ya que sos un genio. Tengo una secretaria que me lleva lo que tengo en la pc. Son archivos que deseo ver o que vean los otros pero ella me los lleva. Busque por todas partes y encontre unos programas que deshabilitan el copiar y pegar pero el "arrastrar" no lo deshabilitan. Entonces pense en los bat. Este es el que tengo:
@ECHO off
cls
:start
ECHO Press: 1 - to Enable USB storage device.
ECHO Press: 0 - to Disable USB storage device.
ECHO.
set choice=
set /p choice=What is your choice [1,0]?
if not '%choice%'=='' set choice=%choice:~0,1%
if [%choice%]==[1] goto enable
if [%choice%]==[0] goto disable
ECHO "%choice%" is not a valid option. Please try again...
ECHO.
goto start
:enable
:: Create a temporary .REG file - ENABLE USB
> "%Temp%.EnableUSBStor.reg" ECHO REGEDIT4
>>"%Temp%.EnableUSBStor.reg" ECHO.
>>"%Temp%.EnableUSBStor.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUSBSTOR]
>>"%Temp%.EnableUSBStor.reg" ECHO "Start"=dword:00000003
:: Rename the following two files to ENABLE USB storage device on the computer
rename %SystemRoot%InfUsbstor.pnf.fisha Usbstor.pnf
rename %SystemRoot%InfUsbstor.inf.fisha Usbstor.inf
START /wait regedit /s "%Temp%.EnableUSBStor.reg"
DEL "%Temp%.EnableUSBStor.reg"
ECHO.
ECHO Successfully ENABLE USB storage device on this computer.
PAUSE
GOTO end
:disable
:: Create a temporary .REG file - DISABLE USB
> "%Temp%.DisableUSBStor.reg" ECHO REGEDIT4
>>"%Temp%.DisableUSBStor.reg" ECHO.
>>"%Temp%.DisableUSBStor.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUSBSTOR]
>>"%Temp%.DisableUSBStor.reg" ECHO "Start"=dword:00000004
:: Rename the following two files to DISABLE USB storage device on the computer
rename %SystemRoot%InfUsbstor.pnf Usbstor.pnf.fisha
rename %SystemRoot%InfUsbstor.inf Usbstor.inf.fisha
START /wait regedit /s "%Temp%.DisableUSBStor.reg"
DEL "%Temp%.DisableUSBStor.reg"
ECHO.
ECHO Successfully DISABLE USB storage device on this computer.
PAUSE
GOTO end
:end

Este, deshabilita los puertos USB pero no la disquetera ni el lector de memoria. Igual, la muy viva, desconecto el teclado y llevo por ese puerto los archivos.
Mi pregunta seria: ?
Mas que nada usando el comando "if" o algo como "if copy delete" (invento mio) jajaja
@mariano125 Sisi te entiendo. Yo estudio un poco mas acerca del tema. La verdad que todo el tema de bat y vbs lo deje hace 6 meses. Retomo todo de nuevo y estudio mas a fondo los comandos y cuando pueda te mando un archivo para que lo utilices
Para dejar un comentario Registrate! o.. eres ya usuario? Accede!
Facebook Identi