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

á

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: 1 ... 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 [25]
241  Programaciˇn / Scripting / Re: [Batch] Calendario en: 2 Septiembre 2009, 15:13 pm
Esta muy bueno ;-)

Pero porque no funciona en Vista?

Yo pense que el fallo era de los espacios con set/p=<nul , pero ahora ya no hay espacios =/


bytes ;)
242  Programaciˇn / Scripting / Re: [F][bat] Peque˝o Filtro - by xassiz en: 2 Septiembre 2009, 15:11 pm
Si, las comillas si las entiendo, ya viste que las use en mi codigo ^^

Tu manual tambien lo leyera, y tu antiguo articulo tambien ::)

Pero aun no me quedo muy claro el porque de !variable! en vez de %variable% para evitar inyecciones =/


Gracias 0x0309 ;)


PD: Que diferencia hay a poner los dos setlocal a quitar enableextensions?
243  Programaciˇn / Scripting / Re: comprobar tama˝o de un archivo desde otro (batch) en: 2 Septiembre 2009, 00:43 am
Código:
@echo off

if ["%~z1"] GTR ["1"] (
echo.Cosas que se hacen si es mayor de 1 byte
) else (
echo.Cosas que se hacen si es menor de 1 byte
)

pause>nul

exit

 ;)
244  Programaciˇn / Scripting / Re: [Batch] Calendario en: 31 Agosto 2009, 22:31 pm
Código:
C:\> calend.bat

 Agosto de 2009
::::::::::::::::::::::::::::::
: l   m   m   j   v   s   d  :
::::::::::::::::::::::::::::::
:01 02 :
:03 04 05 06 07 08 09 :
:10 11 12 13 14 15 16 :
:17 18 19 20 21 22 23 :
:24 25 26 27 28 29 30 :
:(31):
::::::::::::::::::::::::::::::

Probado en vista, sale un poco deforme :P

Debe ser por el
Código:
set/p=x<nul


Muy bueno bro ^^

Felicidades  ;D
245  Programaciˇn / Scripting / [F][bat] Peque˝o Filtro - by xassiz en: 31 Agosto 2009, 22:28 pm
Bueno, pues hice un peque˝ito filtro que no ocupa nada, perfecto para cualquier menu:

Código:
for %%a in ("^","&","<",">","|") do (set "op=!op:%%~a=^%%~a!")

Limpia los caracteres especiales ^, &, <, >, |..


Como vemos hace falta setlocal enabledelayedexpansion, un peque˝o ejemplo usado en una "mini calculadora":

Código:
@echo off

:: Mini calculadora creada por xassiz para explicar el uso
:: de un peque˝o filtro de variables.

setlocal enabledelayedexpansion
:ini
cls&echo.
set "op="&set/p "op= Escribe tu operacion: "
for %%a in ("^","&","<",">","|") do (set "op=!op:%%~a=^%%~a!")
if not defined op (goto:ini)
set "res="
set/a "res=%op%">nul 2>&1
cls&echo.
echo. Operacion: %op%&echo. Resultado: %res%
pause>nul
goto:ini

Podemos inyectar:

Código:
mira&que>bueno<es|este^filtro

Que no dara ningun error:

Salida:

Código:
  Operacion: mira&que>bueno<es|este^filtro
  Resultado:


bytes ;)
246  Programaciˇn / Scripting / Re: [Batch Game] SudokuBat - by xassiz en: 19 Agosto 2009, 15:04 pm
de casualidad: para qe usas el keyboard.exe???
hmmm
Si miras un poco el code, veras que es para los movimientos ^^
247  Programaciˇn / Scripting / [Batch Game] SudokuBat - by xassiz en: 18 Agosto 2009, 21:12 pm
Algo "viejo" pero ahi va.. ;D



[Batch Game] SudokuBat  -  by xassiz


Bueno, os traigo mi primer buen juego en Batch  ::)

Como su nombre indica, es un juego de Sudoku's.


Tiene cinco niveles, cada vez mas dificultad.


Primero empieza con un menu:




Si elegimos la 2, nos dara ayuda:




En la 1, ya jugamos al primer sudoku:




Cuando acabemos de rellenar todos los numeros, le damos a Enter para comprobar si lo hemos hecho bien. Si lo hicimos mal, nos lo pondra en un mensaje, y podremos editarlo; si lo ponemos bien, pasaremos al siguiente nivel:




Aqui teneis el code:

Código:
@echo off
title Sudokubat - by xassiz
setlocal enabledelayedexpansion
:menu
mode con cols=48 lines=10
cls
echo.
echo.             ┌─────────────────────┐
echo.             │Sudokubat - by xassiz│
echo.             └─────────────────────┘
echo.
echo. 1. Play Sudoku
echo. 2. How to play           
echo. 3. Exit
echo.&set "opc="
set/p "opc=>> "
if not defined opc (goto:menu)
if ["%opc:~0,1%"]==["1"] (goto:keyb)
if ["%opc:~0,1%"]==["2"] (goto:howto)
if ["%opc:~0,1%"]==["3"] (exit)
goto:menu
:keyb
mode con cols=48 lines=30
if not exist "keyboard.exe" (
(echo.n keyboard.xsz
echo.e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo.e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo.e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo.rcx
echo.002E
echo.w0&echo.q
echo.)>keyboard.xsz
type keyboard.xsz|debug
ren keyboard.xsz keyboard.exe
) else (goto:vars)
goto:keyb
:vars
set "level=1"
set "pos=░"
call:clean_var
set "position=a[1]"
set "letter=%position:~0,1%"
set "num=%position:~2,1%"
echo.msgbox"Nivel pasado, pulse Aceptar para seguir con el siguiente nivel",99,"Sudokubat - Nivel pasado!">%temp%\sudokubatemp.vbs
:level
if "%level%"=="1" (call:Sudoku_1)
:main
if "!%position%!"==" " (set "%position%=%pos%")
:table
call:header %level%
echo.      ╔═══■═══■═══■═══■═══■═══■═══■═══■═══╗
echo.      ║ %a[9]% │ %b[9]% │ %c[9]% ║ %d[9]% │ %e[9]% │ %f[9]% ║ %g[9]% │ %h[9]% │ %i[9]% ║
echo.      ■───■───■───║───■───■───║───■───■───■
echo.      ║ %a[8]% │ %b[8]% │ %c[8]% ║ %d[8]% │ %e[8]% │ %f[8]% ║ %g[8]% │ %h[8]% │ %i[8]% ║
echo.      ■───■───■───║───■───■───║───■───■───■
echo.      ║ %a[7]% │ %b[7]% │ %c[7]% ║ %d[7]% │ %e[7]% │ %f[7]% ║ %g[7]% │ %h[7]% │ %i[7]% ║
echo.      ╚═══■═══■═══■═══■═══■═══■═══■═══■═══╝
echo.      ║ %a[6]% │ %b[6]% │ %c[6]% ║ %d[6]% │ %e[6]% │ %f[6]% ║ %g[6]% │ %h[6]% │ %i[6]% ║
echo.      ■───■───■───║───■───■───║───■───■───■
echo.      ║ %a[5]% │ %b[5]% │ %c[5]% ║ %d[5]% │ %e[5]% │ %f[5]% ║ %g[5]% │ %h[5]% │ %i[5]% ║
echo.      ■───■───■───║───■───■───║───■───■───■
echo.      ║ %a[4]% │ %b[4]% │ %c[4]% ║ %d[4]% │ %e[4]% │ %f[4]% ║ %g[4]% │ %h[4]% │ %i[4]% ║
echo.      ╔═══■═══■═══■═══■═══■═══■═══■═══■═══╗
echo.      ║ %a[3]% │ %b[3]% │ %c[3]% ║ %d[3]% │ %e[3]% │ %f[3]% ║ %g[3]% │ %h[3]% │ %i[3]% ║
echo.      ■───■───■───║───■───■───║───■───■───■
echo.      ║ %a[2]% │ %b[2]% │ %c[2]% ║ %d[2]% │ %e[2]% │ %f[2]% ║ %g[2]% │ %h[2]% │ %i[2]% ║
echo.      ■───■───■───║───■───■───║───■───■───■
echo.      ║ %a[1]% │ %b[1]% │ %c[1]% ║ %d[1]% │ %e[1]% │ %f[1]% ║ %g[1]% │ %h[1]% │ %i[1]% ║
echo.      ╚═══■═══■═══■═══■═══■═══■═══■═══■═══╝
keyboard
if %level%==6 (goto:End) else (call:Sudoku_%level%)
if %errorlevel% == 49 (set "%position%=1")
if %errorlevel% == 50 (set "%position%=2")
if %errorlevel% == 51 (set "%position%=3")
if %errorlevel% == 52 (set "%position%=4")
if %errorlevel% == 53 (set "%position%=5")
if %errorlevel% == 54 (set "%position%=6")
if %errorlevel% == 55 (set "%position%=7")
if %errorlevel% == 56 (set "%position%=8")
if %errorlevel% == 57 (set "%position%=9")
if %errorlevel% == 8 (set "%position%=%pos%")
if %errorlevel% == 72 (goto:MoveUp)
if %errorlevel% == 80 (goto:MoveDown)
if %errorlevel% == 77 (goto:MoveRight)
if %errorlevel% == 75 (goto:MoveLeft)
if %errorlevel% == 13 (goto:Result)
goto:main

:MoveUp
set "old_position=%position%"
set/a num+=1
set "position=%letter%[%num%]"
goto:main

:MoveDown
set "old_position=%position%"
set/a num-=1
set "position=%letter%[%num%]"
goto:main

:MoveRight
set "old_position=%position%"
if "%letter%"=="h" (set "letter=i")
if "%letter%"=="g" (set "letter=h")
if "%letter%"=="f" (set "letter=g")
if "%letter%"=="e" (set "letter=f")
if "%letter%"=="d" (set "letter=e")
if "%letter%"=="c" (set "letter=d")
if "%letter%"=="b" (set "letter=c")
if "%letter%"=="a" (set "letter=b")
set "position=%letter%[%num%]"
goto:main

:MoveLeft
set "old_position=%position%"
if "%letter%"=="b" (set "letter=a")
if "%letter%"=="c" (set "letter=b")
if "%letter%"=="d" (set "letter=c")
if "%letter%"=="e" (set "letter=d")
if "%letter%"=="f" (set "letter=e")
if "%letter%"=="g" (set "letter=f")
if "%letter%"=="h" (set "letter=g")
if "%letter%"=="i" (set "letter=h")
set "position=%letter%[%num%]"
goto:main

:clean_var
for /L %%a in (1,1,9) do (
set "a[%%a]= "
set "b[%%a]= "
set "c[%%a]= "
set "d[%%a]= "
set "e[%%a]= "
set "f[%%a]= "
set "g[%%a]= "
set "h[%%a]= "
set "i[%%a]= "
)
set "a[1]=%pos%"
call:Sudoku_%level%
goto:eof

:header
cls
echo.
echo.             ┌─────────────────────┐
echo.             │Sudokubat - by xassiz│
echo.             └─────────────────────┘
echo.
echo.                     Level %1
echo.
goto:eof

:Sudoku_1
set "a[2]=1"
set "a[7]=6"
set "b[2]=6"
set "b[5]=2"
set "b[6]=9"
set "b[7]=4"
set "b[9]=7"
set "c[2]=5"
set "c[5]=6"
set "c[7]=9"
set "d[1]=9"
set "d[4]=4"
set "d[9]=5"
set "e[1]=1"
set "e[4]=2"
set "e[6]=3"
set "e[9]=6"
set "f[1]=8"
set "f[6]=7"
set "f[9]=2"
set "g[3]=1"
set "g[5]=9"
set "g[8]=8"
set "h[1]=4"
set "h[3]=2"
set "h[4]=1"
set "h[5]=7"
set "h[8]=6"
set "i[3]=3"
set "i[8]=7"
goto:eof

:Sudoku_2
set "a[7]=8"
set "a[8]=9"
set "b[1]=5"
set "b[2]=4"
set "b[3]=7"
set "c[4]=2"
set "c[5]=6"
set "c[6]=7"
set "c[9]=4"
set "d[4]=1"
set "d[6]=8"
set "d[7]=7"
set "e[1]=3"
set "e[2]=8"
set "e[3]=6"
set "e[7]=2"
set "e[8]=1"
set "e[9]=5"
set "f[3]=1"
set "f[4]=3"
set "f[6]=6"
set "g[1]=7"
set "g[4]=5"
set "g[5]=3"
set "g[6]=1"
set "h[7]=6"
set "h[8]=4"
set "h[9]=1"
set "i[2]=9"
set "i[3]=2"
goto:eof

:Sudoku_3
set "a[1]=8"
set "a[4]=1"
set "a[5]=5"
set "a[6]=2"
set "b[1]=7"
set "b[7]=5"
set "c[3]=6"
set "c[7]=9"
set "d[1]=1"
set "d[2]=2"
set "d[8]=3"
set "e[2]=3"
set "e[4]=6"
set "e[6]=7"
set "e[8]=9"
set "f[2]=6"
set "f[8]=4"
set "f[9]=5"
set "g[3]=9"
set "g[7]=8"
set "h[3]=1"
set "h[9]=6"
set "i[4]=2"
set "i[5]=4"
set "i[6]=3"
set "i[9]=9"
goto:eof

:Sudoku_4
set "a[3]=3"
set "a[6]=2"
set "b[3]=4"
set "b[8]=9"
set "c[1]=5"
set "c[3]=7"
set "c[5]=6"
set "c[6]=9"
set "c[9]=3"
set "d[2]=6"
set "e[1]=2"
set "e[4]=7"
set "e[6]=3"
set "e[9]=1"
set "f[8]=8"
set "g[1]=9"
set "g[4]=5"
set "g[5]=8"
set "g[7]=2"
set "g[9]=7"
set "h[2]=1"
set "h[7]=3"
set "i[4]=4"
set "i[7]=5"
goto:eof

:Sudoku_5
set "a[4]=8"
set "a[5]=7"
set "a[6]=4"
set "a[9]=3"
set "b[8]=9"
set "c[1]=2"
set "c[5]=3"
set "c[8]=5"
set "d[1]=3"
set "d[9]=1"
set "e[4]=9"
set "e[6]=6"
set "f[1]=5"
set "f[9]=4"
set "g[2]=6"
set "g[5]=1"
set "g[9]=8"
set "h[2]=7"
set "i[1]=1"
set "i[4]=6"
set "i[5]=2"
set "i[6]=3"
goto:eof

:End
cls
echo.             ┌─────────────────────┐
echo.             │Sudokubat - by xassiz│
echo.             └─────────────────────┘
echo.
echo.                    Felicidades,
echo.
echo.           has ganado Sudokubat, eres un gran
echo.
echo.                jugador de Sudoku =^)
pause>nul
cls
echo.             ┌─────────────────────┐
echo.             │Sudokubat - by xassiz│
echo.             └─────────────────────┘
echo.
echo.           Gracias por usar Sudokubat
echo.
echo.        Pulse cualquier tecla para salir
pause>nul
exit

:Result
::columns
cls
for %%_ in (a,b,c,d,e,f,g,h,i) do (
if "!%%_[1]!"=="!%%_[2]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[3]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[4]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[3]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[4]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[4]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[6]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[6]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[6]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[7]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[7]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[8]!"=="!%%_[9]!" (set tBoolean=true)
)
if "%tBoolean%"=="true" (
call:header %level%
echo.
echo.                       Mal
echo.
pause>nul
goto:main
) else (set "Columns=Good")
(set tBoolean=)
::rows
for /L %%- in (1 1 9) do (
if "!a[%%-]!"=="!b[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!c[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!d[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!c[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!d[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!d[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!f[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!f[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!f[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!g[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!g[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!h[%%-]!"=="!i[%%-]!" (set tBoolean=true)
)
if "%tBoolean%"=="true" (
call:header %level%
echo.
echo.                       Mal
echo.
pause>nul
goto:main
) else (set "Rows=Good")
(set tBoolean=)

::squares

if "%a[1]%"=="%b[2]%" (set tBoolean=true)
if "%a[1]%"=="%b[3]%" (set tBoolean=true)
if "%a[1]%"=="%c[2]%" (set tBoolean=true)
if "%a[1]%"=="%c[3]%" (set tBoolean=true)
if "%b[1]%"=="%a[2]%" (set tBoolean=true)
if "%b[1]%"=="%a[3]%" (set tBoolean=true)
if "%b[1]%"=="%c[2]%" (set tBoolean=true)
if "%b[1]%"=="%c[3]%" (set tBoolean=true)
if "%c[1]%"=="%a[2]%" (set tBoolean=true)
if "%c[1]%"=="%a[3]%" (set tBoolean=true)
if "%c[1]%"=="%b[2]%" (set tBoolean=true)
if "%c[1]%"=="%b[3]%" (set tBoolean=true)
if "%a[2]%"=="%b[3]%" (set tBoolean=true)
if "%a[2]%"=="%c[3]%" (set tBoolean=true)
if "%b[2]%"=="%a[3]%" (set tBoolean=true)
if "%b[2]%"=="%c[3]%" (set tBoolean=true)
if "%c[2]%"=="%a[3]%" (set tBoolean=true)
if "%c[2]%"=="%b[3]%" (set tBoolean=true)

if "%d[1]%"=="%e[2]%" (set tBoolean=true)
if "%d[1]%"=="%e[3]%" (set tBoolean=true)
if "%d[1]%"=="%f[2]%" (set tBoolean=true)
if "%d[1]%"=="%f[3]%" (set tBoolean=true)
if "%e[1]%"=="%d[2]%" (set tBoolean=true)
if "%e[1]%"=="%d[3]%" (set tBoolean=true)
if "%e[1]%"=="%f[2]%" (set tBoolean=true)
if "%e[1]%"=="%f[3]%" (set tBoolean=true)
if "%f[1]%"=="%d[2]%" (set tBoolean=true)
if "%f[1]%"=="%d[3]%" (set tBoolean=true)
if "%f[1]%"=="%e[2]%" (set tBoolean=true)
if "%f[1]%"=="%e[3]%" (set tBoolean=true)
if "%d[2]%"=="%e[3]%" (set tBoolean=true)
if "%d[2]%"=="%f[3]%" (set tBoolean=true)
if "%e[2]%"=="%d[3]%" (set tBoolean=true)
if "%e[2]%"=="%f[3]%" (set tBoolean=true)
if "%f[2]%"=="%d[3]%" (set tBoolean=true)
if "%f[2]%"=="%e[3]%" (set tBoolean=true)

if "%g[1]%"=="%h[2]%" (set tBoolean=true)
if "%g[1]%"=="%h[3]%" (set tBoolean=true)
if "%g[1]%"=="%i[2]%" (set tBoolean=true)
if "%g[1]%"=="%i[3]%" (set tBoolean=true)
if "%h[1]%"=="%g[2]%" (set tBoolean=true)
if "%h[1]%"=="%g[3]%" (set tBoolean=true)
if "%h[1]%"=="%i[2]%" (set tBoolean=true)
if "%h[1]%"=="%i[3]%" (set tBoolean=true)
if "%i[1]%"=="%g[2]%" (set tBoolean=true)
if "%i[1]%"=="%g[3]%" (set tBoolean=true)
if "%i[1]%"=="%h[2]%" (set tBoolean=true)
if "%i[1]%"=="%h[3]%" (set tBoolean=true)
if "%g[2]%"=="%h[3]%" (set tBoolean=true)
if "%g[2]%"=="%i[3]%" (set tBoolean=true)
if "%h[2]%"=="%g[3]%" (set tBoolean=true)
if "%h[2]%"=="%i[3]%" (set tBoolean=true)
if "%i[2]%"=="%g[3]%" (set tBoolean=true)
if "%i[2]%"=="%h[3]%" (set tBoolean=true)

if "%a[4]%"=="%b[5]%" (set tBoolean=true)
if "%a[4]%"=="%b[6]%" (set tBoolean=true)
if "%a[4]%"=="%c[5]%" (set tBoolean=true)
if "%a[4]%"=="%c[6]%" (set tBoolean=true)
if "%b[4]%"=="%a[5]%" (set tBoolean=true)
if "%b[4]%"=="%a[6]%" (set tBoolean=true)
if "%b[4]%"=="%c[5]%" (set tBoolean=true)
if "%b[4]%"=="%c[6]%" (set tBoolean=true)
if "%c[4]%"=="%a[5]%" (set tBoolean=true)
if "%c[4]%"=="%a[6]%" (set tBoolean=true)
if "%c[4]%"=="%b[5]%" (set tBoolean=true)
if "%c[4]%"=="%b[6]%" (set tBoolean=true)
if "%a[5]%"=="%b[6]%" (set tBoolean=true)
if "%a[5]%"=="%c[6]%" (set tBoolean=true)
if "%b[5]%"=="%a[6]%" (set tBoolean=true)
if "%b[5]%"=="%c[6]%" (set tBoolean=true)
if "%c[5]%"=="%a[6]%" (set tBoolean=true)
if "%c[5]%"=="%b[6]%" (set tBoolean=true)

if "%d[4]%"=="%e[5]%" (set tBoolean=true)
if "%d[4]%"=="%e[6]%" (set tBoolean=true)
if "%d[4]%"=="%f[5]%" (set tBoolean=true)
if "%d[4]%"=="%f[6]%" (set tBoolean=true)
if "%e[4]%"=="%d[5]%" (set tBoolean=true)
if "%e[4]%"=="%d[6]%" (set tBoolean=true)
if "%e[4]%"=="%f[5]%" (set tBoolean=true)
if "%e[4]%"=="%f[6]%" (set tBoolean=true)
if "%f[4]%"=="%d[5]%" (set tBoolean=true)
if "%f[4]%"=="%d[6]%" (set tBoolean=true)
if "%f[4]%"=="%e[5]%" (set tBoolean=true)
if "%f[4]%"=="%e[6]%" (set tBoolean=true)
if "%d[5]%"=="%e[6]%" (set tBoolean=true)
if "%d[5]%"=="%f[6]%" (set tBoolean=true)
if "%e[5]%"=="%d[6]%" (set tBoolean=true)
if "%e[5]%"=="%f[6]%" (set tBoolean=true)
if "%f[5]%"=="%d[6]%" (set tBoolean=true)
if "%f[5]%"=="%e[6]%" (set tBoolean=true)

if "%g[4]%"=="%h[5]%" (set tBoolean=true)
if "%g[4]%"=="%h[6]%" (set tBoolean=true)
if "%g[4]%"=="%i[5]%" (set tBoolean=true)
if "%g[4]%"=="%i[6]%" (set tBoolean=true)
if "%h[4]%"=="%g[5]%" (set tBoolean=true)
if "%h[4]%"=="%g[6]%" (set tBoolean=true)
if "%h[4]%"=="%i[5]%" (set tBoolean=true)
if "%h[4]%"=="%i[6]%" (set tBoolean=true)
if "%i[4]%"=="%g[5]%" (set tBoolean=true)
if "%i[4]%"=="%g[6]%" (set tBoolean=true)
if "%i[4]%"=="%h[5]%" (set tBoolean=true)
if "%i[4]%"=="%h[6]%" (set tBoolean=true)
if "%g[5]%"=="%h[6]%" (set tBoolean=true)
if "%g[5]%"=="%i[6]%" (set tBoolean=true)
if "%h[5]%"=="%g[6]%" (set tBoolean=true)
if "%h[5]%"=="%i[6]%" (set tBoolean=true)
if "%i[5]%"=="%g[6]%" (set tBoolean=true)
if "%i[5]%"=="%h[6]%" (set tBoolean=true)

if "%a[7]%"=="%b[8]%" (set tBoolean=true)
if "%a[7]%"=="%b[9]%" (set tBoolean=true)
if "%a[7]%"=="%c[8]%" (set tBoolean=true)
if "%a[7]%"=="%c[9]%" (set tBoolean=true)
if "%b[7]%"=="%a[8]%" (set tBoolean=true)
if "%b[7]%"=="%a[9]%" (set tBoolean=true)
if "%b[7]%"=="%c[8]%" (set tBoolean=true)
if "%b[7]%"=="%c[9]%" (set tBoolean=true)
if "%c[7]%"=="%a[8]%" (set tBoolean=true)
if "%c[7]%"=="%a[9]%" (set tBoolean=true)
if "%c[7]%"=="%b[8]%" (set tBoolean=true)
if "%c[7]%"=="%b[9]%" (set tBoolean=true)
if "%a[8]%"=="%b[9]%" (set tBoolean=true)
if "%a[8]%"=="%c[9]%" (set tBoolean=true)
if "%b[8]%"=="%a[9]%" (set tBoolean=true)
if "%b[8]%"=="%c[9]%" (set tBoolean=true)
if "%c[8]%"=="%a[9]%" (set tBoolean=true)
if "%c[8]%"=="%b[9]%" (set tBoolean=true)

if "%d[7]%"=="%e[8]%" (set tBoolean=true)
if "%d[7]%"=="%e[9]%" (set tBoolean=true)
if "%d[7]%"=="%f[8]%" (set tBoolean=true)
if "%d[7]%"=="%f[9]%" (set tBoolean=true)
if "%e[7]%"=="%d[8]%" (set tBoolean=true)
if "%e[7]%"=="%d[9]%" (set tBoolean=true)
if "%e[7]%"=="%f[8]%" (set tBoolean=true)
if "%e[7]%"=="%f[9]%" (set tBoolean=true)
if "%f[7]%"=="%d[8]%" (set tBoolean=true)
if "%f[7]%"=="%d[9]%" (set tBoolean=true)
if "%f[7]%"=="%e[8]%" (set tBoolean=true)
if "%f[7]%"=="%e[9]%" (set tBoolean=true)
if "%d[8]%"=="%e[9]%" (set tBoolean=true)
if "%d[8]%"=="%f[9]%" (set tBoolean=true)
if "%e[8]%"=="%d[9]%" (set tBoolean=true)
if "%e[8]%"=="%f[9]%" (set tBoolean=true)
if "%f[8]%"=="%d[9]%" (set tBoolean=true)
if "%f[8]%"=="%e[9]%" (set tBoolean=true)

if "%g[7]%"=="%h[8]%" (set tBoolean=true)
if "%g[7]%"=="%h[9]%" (set tBoolean=true)
if "%g[7]%"=="%i[8]%" (set tBoolean=true)
if "%g[7]%"=="%i[9]%" (set tBoolean=true)
if "%h[7]%"=="%g[8]%" (set tBoolean=true)
if "%h[7]%"=="%g[9]%" (set tBoolean=true)
if "%h[7]%"=="%i[8]%" (set tBoolean=true)
if "%h[7]%"=="%i[9]%" (set tBoolean=true)
if "%i[7]%"=="%g[8]%" (set tBoolean=true)
if "%i[7]%"=="%g[9]%" (set tBoolean=true)
if "%i[7]%"=="%h[8]%" (set tBoolean=true)
if "%i[7]%"=="%h[9]%" (set tBoolean=true)
if "%g[8]%"=="%h[9]%" (set tBoolean=true)
if "%g[8]%"=="%i[9]%" (set tBoolean=true)
if "%h[8]%"=="%g[9]%" (set tBoolean=true)
if "%h[8]%"=="%i[9]%" (set tBoolean=true)
if "%i[8]%"=="%g[9]%" (set tBoolean=true)
if "%i[8]%"=="%h[9]%" (set tBoolean=true)

if "%tBoolean%"=="true" (
call:header %level%
echo.
echo.                      Mal
echo.
pause>nul
goto:main
) else (set "Squares=Good")
(set tBoolean=)
if "%Columns%"=="Good" (
if "%Rows%"=="Good" (
if "%Squares%"=="Good" (
start %temp%\sudokubatemp.vbs
set/a "level+=1"
if %level%==6 (goto:End)
call:clean_var
goto:main
))) else (goto:main)


:howto
cls
mode con cols=52 lines=16
echo.&echo.
echo.             ┌─────────────────────┐
echo.             │Sudokubat - by xassiz│
echo.             └─────────────────────┘
echo.
echo. Muevete por el tablero con las teclas de direccion
echo. y ve poniendo numeros con el teclado.
echo.
echo.  Una vez acabes y quieras comprobar si lo hiciste
echo.   correctamente, solo tienes que darle a Enter.
echo.
echo.      Espero que disfruteis con Sudokubat
echo.
echo.                     Saludos
echo.                     xassiz_
echo.
pause>nul&goto:menu

Espero que os guste, para la siguiente version intentare hacer que los sudoku's se generen (estos los puse yo).


Un saludo,
xassiz

248  Programaciˇn / Scripting / Re: Sendkeys command en: 18 Agosto 2009, 20:20 pm
Jaja ... funciona  :P

Saludos

hahhah nov xD

Si no funcionara no lo postearia ;D

No ves  que el vbs se acaba con batch.. xDDD (mentira)
249  Programaciˇn / Scripting / Sendkeys command en: 18 Agosto 2009, 15:26 pm
TÝtulo: Sendkeys
Temßtica: Funcional
Autor: xassiz
Descripciˇn: Efecto grafico en notepad.
Funcionamiento: Coge un mensaje como argumento. Este lo muestra con un efecto de marquesina como mandando pulsaciones de teclado en el notepad, de manera que da un efecto en el cual escribimos en otra aplicacion que no sea cmd.

Código:
::
:: $Auth0r=xassiz
:: $script=sendkeys command
::
::      -Use:       sendkeys <msg>
::                                            (2009)

  @echo off
set "file=sendk%random:~0,3%.txt"
set "text=%*"
call:sklen %text%&set/a len+=1
call:sendkeys %text%
del /q/s/f/a "%file%">nul 2>&1
echo on
  @exit /b
:sendkeys
set/a count+=1
set "msg=%*"
call set "msg=%%msg:~0,%count%%%"
if not defined msg (goto:eof)
if %count% equ %len% (goto:eof)
echo.%msg%>%file%
start notepad.exe %file%
ping -n 1 127.1>nul
taskkill /im notepad.exe /f>nul || tskill notepad>nul
goto:sendkeys
:sklen
set "len="
set "sk=%*"
:sklen2
set "sk=%sk:~1%" && set/a len+=1
if defined sk goto sklen2 || goto :eof

Es un efecto que vi hacer con vbs :p

Dudas y sugerencias ^^

bytes
Páginas: 1 ... 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 [25]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines