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

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                         %c2%] [%d2%] [%e2%] [%f2%]

echo                       {*}                       {*}

echo                       {%s2%}        mancala        {%s1%}

echo                       {*}                       {*}

echo                         %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                         %c2%] [%d2%] [%e2%] [%f2%]

echo                       {*}                       {*}

echo                       {%s2%}        mancala        {%s1%}

echo                       {*}                       {*}

echo                         %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                         %c2%] [%d2%] [%e2%] [%f2%]

echo                       {*}                       {*}

echo                       {%s2%}        mancala        {%s1%}

echo                       {*}                       {*}

echo                         %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                         %c2%] [%d2%] [%e2%] [%f2%]

echo                       {*}                       {*}

echo                       {%s2%}        mancala        {%s1%}

echo                       {*}                       {*}

echo                         %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



Archivos BAT [Créalos o Descárgalos] Parte III
10 Puntos Score: 10/10
Visitas: 1495 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!