Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: .:Xx4NG3LxX:. en 21 Marzo 2020, 00:25 am



Título: [APORTES] Varios aportes.
Publicado por: .:Xx4NG3LxX:. en 21 Marzo 2020, 00:25 am
... Otra vez ni 30 minutos, pero que más...

Los que están en Negrita son mis favoritos


Batch:


Colous V4[comando para mejorar el diseño del bat] (https://designal.foroactivo.com/t110-colous-v4comando-para-mejorar-el-diseno-del-bat)

[comando]Cmouse | Usar mouse en batch (https://designal.foroactivo.com/t113-comandocmouse-usar-mouse-en-batch)

compilador de bat a exe en BATCH (https://designal.foroactivo.com/t109-codecompilador-de-bat-a-exe-en-batch)

[Juego]GilgamesH Puzzle (https://designal.foroactivo.com/t99-juegogilgamesh-puzzle)

BatchPaint V1.3 - La última versión (https://designal.foroactivo.com/t9-batchpaint-v1-3-la-ultima-version)

Antivirus en batch (http://foro.hackxcrack.net/forum/index.php?topic=7936.0)


Visual Basic:


Counter Strike en VB6 by alexmanycool (https://designal.foroactivo.com/t38-counter-strike-en-vb6-by-alexmanycool)

Cambiar de color un TextBox al recibir o perder el enfoque - Api GetFocus (https://designal.foroactivo.com/t26-cambiar-de-color-un-textbox-al-recibir-o-perder-el-enfoque-api-getfocus)

Captcha - Usando un PictureBox y un CommandButton (https://designal.foroactivo.com/t73-captcha-usando-un-picturebox-y-un-commandbutton)

Gira un control PictureBox en círculo por el form (https://designal.foroactivo.com/t75-gira-un-control-picturebox-en-circulo-por-el-form)


C++:


[GameBase] - Una base para crear juegos en consola (https://designal.foroactivo.com/t62-gamebase-una-base-para-crear-juegos-en-consola)



Gracias Designal

Gracias HackXCrack



* Este post se irá actualizando poco a poco.
*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*

Opinen... ¿Cuál o cuales fueron sus favoritos?


Título: Re: [APORTES] Varios aportes.
Publicado por: MCKSys Argentina en 21 Marzo 2020, 04:11 am
¿Sería mucho pedir que fijaran este post?. Lo digo porque lo actualizaré cada vez que pueda. Gracias

Ya hay un tema fijado que recopila posts interesantes: https://foro.elhacker.net/scripting/recopilatorio_de_temas_interesantes_scripting-t132767.0.html (https://foro.elhacker.net/scripting/recopilatorio_de_temas_interesantes_scripting-t132767.0.html). Agrega un comentario haciendo referencia a éste.

Saludos!


Título: Re: [APORTES] Varios aportes.
Publicado por: .:Xx4NG3LxX:. en 21 Marzo 2020, 21:19 pm
Ah me olvidaba decir... Listo, ya puse el link


Título: Re: [APORTES] Varios aportes.
Publicado por: .:Xx4NG3LxX:. en 21 Marzo 2020, 21:41 pm
Un interesante script...

Código
  1. @ECHO OFF
  2. SETLOCAL ENABLEEXTENSIONS
  3.  
  4. CALL :CECHO 0A "normal " "Los cometas del latin cometa y el griego kometes son cuerpos celestes constituidos por hielo y rocas que orbitan el Sol siguiendo orbitas muy elipticas" " normal"
  5. CALL :CECHO 0A "normal " "Texto coloreado" " normal"
  6. CALL :CECHO 0A "normal " "Texto coloreado" " normal"
  7. CALL :CECHO 0B "normal " "Texto coloreado"
  8. CALL :CECHO 0C "Texto coloreado"
  9. CALL :CECHO 0D "Texto coloreado"
  10. CALL :CECHO 0E "Texto coloreado"
  11. CALL :CECHO 0F "Texto coloreado"
  12. CALL :CECHO CF "Texto coloreado"
  13. CALL :CECHO AF "Texto coloreado"
  14. CALL :CECHO F0 "Texto coloreado"
  15. CALL :CECHO EE "amarillo sobre amarillo"
  16.  
  17. EXIT /B 0
  18.  
  19. :CECHO
  20. ::Autor: Carlos
  21. ::Version 1.0 22:42 07-05-2009
  22. ::Se pueden recibir tres argumentos de texto.
  23. ::Cada argumento debe ir encerrado entre comillas.
  24. ::Si se recibe un solo argumento este es el texto coloreado.
  25. ::Si se recibe dos argumentos o tres argumentos,
  26. ::el segundo argumento es el texto coloreado.
  27. ::Si el texto coloreado tiene mas de 150 caracteres,
  28. ::el texto coloreado es truncado a 150 caracteres y
  29. ::se recibe un mensaje avisando la accion.
  30. ::Basado en el trabajo de: Frank P. Westlake
  31. ::disponible en:
  32. :: http://groups.google.co.uk/group/alt.msdos.batch.nt
  33. :: /browse_thread/thread/f819acd4582d5de3/8c81192068307388
  34. SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  35. PUSHD "%USERPROFILE%\"
  36. IF EXIST COLOR DEL /F /Q /A COLOR > NUL 2>&1
  37. IF EXIST COLOR\ RD /S /Q COLOR > NUL 2>&1
  38. MD COLOR
  39. CD COLOR
  40.  
  41. SET "C="
  42. SET "L1="
  43. SET "L2="
  44. SET "L3="
  45.  
  46. SET "C=%~1"
  47. ECHO.!C!|FINDSTR /R /I "\<[0-9A-F][0-9A-F]\>" > NUL || (
  48. ECHO. DEBE ESPECIFICARSE UN COLOR HEXADECIMAL.
  49. ECHO. COLOR /?
  50. EXIT /B 1
  51. )
  52. SET /A "TAM=0"
  53. SET "L1=%~2"
  54. SET "L2=%~3"
  55. SET "L3=%~4"
  56. SET "L1="
  57. SET "L2=%~2"
  58. SET "L3="
  59. )
  60. CALL :CLEAN C
  61. CALL :CLEAN L1
  62. CALL :CLEAN L2
  63. CALL :CLEAN L3
  64. IF DEFINED L2 CALL :LEN "%L2%"
  65. IF %TAM% GTR 150 (
  66. ECHO.TEXTO COLOREADO REDUCIDO A 150 CARACTERES DE LONGITUD
  67. )
  68. IF DEFINED L2 SET "L2=%L2:~0,150%"
  69. IF DEFINED L2 ECHO.%L3%>"%L2%"
  70. 0>NUL SET /P "_=%L1%"
  71. FINDSTR.EXE /A:%C% /R "^" "*"
  72. IF EXIST "%USERPROFILE%\COLOR" DEL /F /Q /A "%USERPROFILE%\COLOR" > NUL 2>&1
  73. IF EXIST "%USERPROFILE%\COLOR\" RD /S /Q "%USERPROFILE%\COLOR" > NUL 2>&1
  74.  
  75.  
  76. :LEN
  77. SETLOCAL ENABLEEXTENSIONS DISABLEDELAYEDEXPANSION
  78. SET /A CONTL=0
  79. SET "WORDL=%~1"
  80. :_LOOPL
  81. IF NOT DEFINED WORDL (GOTO :_ENDL)
  82. SET "WORDL=%WORDL:~1%"
  83. SET /A CONTL +=1
  84. GOTO :_LOOPL
  85. :_ENDL
  86. ENDLOCAL & SET /A TAM=%CONTL%
  87. EXIT /B 0
  88.  
  89.  
  90. :CLEAN
  91. ::deja solo caracteres dentro del rango a-z 0-9
  92. ::y espacio en el contenido de las variables.
  93. ::version 2.0
  94. ::Version modificada con mas caracteres
  95. ::solo para trabajar con funcion cecho.
  96. ::Los caracteres agregados son: # $ + - =  @
  97. ::Recibe un parametro con el nombre de la variable
  98. ::que se quiere filtrar su contenido.
  99. ::Ejemplo:
  100. ::call :clean nombreDeMiVariable
  101. ::autores: Matt Alvariz , Carlos
  102. @SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
  103. @SET "V=%*"
  104. @SET "S=!% style="color: #448888;">V%!"
  105. @IF NOT DEFINED S EXIT /B 1
  106. @SET "V="
  107. :LOOP
  108. @FOR %%* IN (
  109. " " 0 1 2 3 4 5 6 7 8 9 A B C D E F G
  110. H I J K L M N O P Q R S T U V W X Y Z
  111. # $ + - =  @
  112. ) DO  @IF /I "!S:~0,1!" EQU "%%~*" SET "V=!V!!S:~0,1!"
  113. @SET "S=!S:~1!"
  114. @IF DEFINED S GOTO :LOOP
  115. @(ENDLOCAL & SET %*=%V%)
  116. @SETLOCAL ENABLEEXTENSIONS
  117. @EXIT /B 0
  118.