Mensajes

creo que EleKtro una vez hizo un tetris que porcierto, me encanto.

Nunca he hecho un juego así, de movimiento y coordenadas,
Segúramente te refieres a este magnifico juego: [BATCH GAME] ¡Batch Tetris V 1.0!

Sin ubicar las cosas en pantalla, lo único que se puede hacer es un test de preguntas o un piedra papel tijeras.

Cierto, sin coordenadas ningun batch game se puede comparar a tu Batch-Tetris xD
PD: Deseando verlo compatible en x64

¿Es de codigo libre?

Lee la postdata final del post 



Cierro el tema por antiguedad.

no debera incluir sistema de coordenadas.

Aquí va uno pues xD:

Lo sé, No es gran cosa, Solo lo hice por aburrimiento!

Saludos.



   

Código (dos) [Seleccionar] Expandir

@Echo OFF
Title Piedra, Papel, O tijera!  (By Elektro H@cker)
Color 0F
Mode con cols=60 lines=26

:Play
CLS
Set WIN=
Echo.
Echo:              Player      [MARCADOR]      COM
Echo:                %POINTS%                          %COMPOINTS%
Echo: __________________________________________________________
Echo:                                                                            | MORE
Echo:       [1] O              [2] #              [3] 8^^^<                      | MORE
Echo:       Piedra             Papel              Tijera    | MORE | MORE | MORE | MORE

Choice /C 123 /M "¨Que llevas en la mano? "

Set Player=%ERRORLEVEL%
Set COMPlayer=%RANDOM:~0,1%
If %COMPlayer% GTR 3 (Set /A COMPlayer=3)

CLS
IF %PLAYER% EQU 1    (Set PlayerHAND=una piedra)
IF %PLAYER% EQU 2    (Set PlayerHAND=un papel)
IF %PLAYER% EQU 3    (Set PlayerHAND=una tijera)
Echo+ & Echo: Sacaste %PlayerHAND%! | MORE
Call :ANI%PLAYER%

IF %COMPLAYER% EQU 1 (Set COMHAND=una piedra)
IF %COMPLAYER% EQU 2 (Set COMHAND=un papel)
IF %COMPLAYER% EQU 3 (Set COMHAND=una tijera)
Echo: La consola sac¢ %COMHAND%! | MORE
Call :ANI%COMPLAYER%

IF DEFINED WIN (
IF "%WIN%" EQU "SI" (Echo: GANASTE!  & Set /A Points+=1)
IF "%WIN%" EQU "NO" (Echo: PERDISTE! & Set /A COMPOINTS+=1)
) ELSE (Echo: EMPATE!)

Timeout /T 3 2>NUL || (Pause)
Goto :Play


:ANI1
Echo:         ________________
Echo:      .='==============;:\
Echo:      ^|                ^|:^|
Echo:      ^|                ^|:^|
Echo:      ^|                ^|;^|
Echo:      ^|                ^|;/
Echo:      '================'` | MORE
If %PLAYER% EQU 2 (Set Win=SI)
If %PLAYER% EQU 3 (Set Win=NO)
Goto :EOF

:ANI2
Echo:            _________
Echo:          /-        -/
Echo:         /~~======~~/
Echo:        /          /
Echo:       (          (
Echo:        `==========` | MORE
If %PLAYER% EQU 1 (Set Win=NO)
If %PLAYER% EQU 3 (Set Win=SI)
Goto :EOF

:ANI3
Echo:        ___               __
Echo:       / _ \          _.-'_.'
Echo:       \____`-.____.-'_.-'
Echo:            `-. _.\.-'
Echo:        ____.-'`__/-._
Echo:       / _  .-'`  '-._`-._
Echo:       \___/          '-._'-.
Echo:                          `-` | MORE
If %PLAYER% EQU 1 (Set Win=SI)
If %PLAYER% EQU 2 (Set Win=NO)
Goto :EOF

PD: no entiendo la logica de estos programas ,si agregan codigo al bat(para no ser detectado por antivirus ) como pueden ser ejecutados despues?

Con un poco de maña puedes hacer que se auto-descifre el código en tiempo de ejecución agregando las variables y sus valores en el bat cifrado.

Ejemplo:

Código (dos) [Seleccionar] Expandir

@Echo OFF

Set "{=B"
Set "º=C"
Set "/=D"
Set "!=E"
Set "@=H"
Set "?=I"
Set "#=L"
Set "}=M"
Set "$=O"
Set "-=R"

%!%%º%%@%%$% Estoy ejecutandome :D | %}%%$%%-%%!% | %}%%$%%-%%!%

%!%%º%%@%%$% %/%%?%%-% "%º%:\": | %}%%$%%-%%!%
%/%%?%%-% /%{% "%º%:\"

Pause&Exit



Saludos.

Así da gusto ayudar

PD: No te recomiendo que te acostumbres a usar setlocal enabledelayedexpansion para procesar archivos. Setlocal enabledelayedexpansion es más rápido, pero tiene sus inconvenientes, usa "CALL".

Felices fiestas.

[Meine programmen]

Hola,

Mi intención no es quitarle protagonismo al esfuerzo de Meine programmen, pero el code no cumple el requisito principal (Una carpeta "Procesados" por carpeta),
si se tienen 600 carpetas distintas para convertir, luego sería un caos para devolver los archivos convertidos a sus carpetas originales xD.

Te dejo mi versión, por si la necesitas:

Código (dos) [Seleccionar] Expandir

@ECHO OFF

PUSHD "C:\Directorio raíz de las subcarpetas\" || (Exit /B 1)

For /R %%# in (*.jpg) Do (
Echo [+] "%%~f#"
MKDIR "%%~dp#PROCESADOS" 2>NUL
(Start /W "" "C:\Users\Kurono\My Others\ImageMagick-6.8.0-10\convert.exe" "%%#" "%%~dp#PROCESADOS\%%~n#.png")
REM Utiliza este comando en caso de no funcionar:
REM Start /W /D "C:\Users\Kurono\My Others\ImageMagick-6.8.0-10\" convert.exe "%%#" "%%~dp#PROCESADOS\%%~n#.png"
)

Pause&exit

Saludos

[EDITO]

EDITO:
Si quieres, prueba a usar alguno de estos scripts,
Con un poco de maña puedes hacer que se auto-descifre el código en tiempo de ejecución agregando las variables y sus valores en el bat cifrado.







> [Ruby] [APORTE] Text Protector
> [Batch] [APORTE] Text Protector








> [BATCH] [APORTE] BatOfuser Ofuscador/Desofuscador para bats.

[500]

Hola,

Según he leido en otro mensaje tuyo (privado), lo que quieres es obtener el nombre de la carpeta de la cuenta de administrador para TODOS los Windows, y en TODOS los idiomas, y que además quieres hacerlo en Batch...

Bien, te recuerdo que en Windows puede haber más de un una cuenta de administrador, y a su vez más de una carpeta de admin.

Windows no guarda el nombre de los usuarios en el registro, o al menos no de forma visible (Sin cifrar), aunque no estoy seguro, pero yo diría que lo guarda en el archivo NTUSER.DAT.





Esto te servirá para la mayoría de idiomas:

Código (dos) [Seleccionar] Expandir

@Echo OFF

:: Este script obtiene los nombres de los administradores al menos para idioma Castellano e Inglés
:: By Elektro H@cker

For /F "Tokens=1 delims=*" %%# in ('net localgroup ^| FIND "*"') Do (
For /F "Tokens=*" %%@ in ('net localgroup "%%#" ^| MORE +6') Do (
PUSHD "%USERPROFILE%\.."
Call Echo %%CD%%\%%@| FINDSTR /V "\.$"
POPD
)
Pause&exit
)





Y si mi intuición no me falla, estoy casi seguro de que la SID de la cuenta de administrador siempre acaba en el número "500", si estoy en lo cierto, esto te puede servir para obtener el nombre del admin legítimo del sistema en cualquier idioma:

Código (dos) [Seleccionar] Expandir

@Echo OFF

:: By Elektro H@cker

For /F "Tokens=1" %%# in ('wmic USERACCOUNT get sid /format:texttable ^| FIND "-500"') Do (
For /F "Tokens=2 delims==" %%@ in ('wmic USERACCOUNT where sid^="%%#" get name /format:list') Do (
PUSHD "%USERPROFILE%\.."
Call Echo "%%CD%%\%%@"
POPD
)
)

Pause&Exit


SALUDOS.

[EDITO]

Necesito terminar la ejecución de mi APP con un "End",
Todos sabemos que si matamos una aplicación, el icono del SystemTray se queda en memoria, es decir, seguirá visible...
Pero por otro lado imagino que se debe poder eliminar el icono del systray en tiempo de ejecución, antes de matar indebídamente la APP, para que eso no suceda.

¿Como puedo eliminar el NotifyIcon?

Código (vbnet) [Seleccionar] Expandir

   ' Close
   Private Sub Form_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       Worker.Dispose() ' Liberar los recursos del BackgroundWorker

       ' Eliminar la visibilidad del SysTrayMenu antes de matar la APP, para que no se quede visible en el SystemTray...
       SystrayMenu.Visible = False
       SystrayMenu.Dispose()

       End ' Matar todo lo relacionado con la APP
   End Sub

EDITO: Ups, con las prisas no me dí cuenta, había confundido el nombre del menú con otro menú que tengo en la APP,
Tema solucionado XD