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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: 1 ... 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 [1160] 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 ... 1236
11591  Programación / Scripting / (Solucionado) [Batch] Randomizar lineas en un txt? en: 1 Marzo 2012, 18:57 pm
¿Como randomizar el contenido de un txt?  :huh:

Es lo único que me falta para acabar este script :P

PD: Acepto cualquier utilidad externa
PD2: Si existiera algún parámetro para iniciar Winamp con la opcion "Activar modo aleatorio de lista" activada, también me serviría...

un saludo

Código
  1. @Echo OFF
  2.  
  3. Set Carpeta=%~n0
  4.  
  5. Echo #EXTM3U>"%Temp%\Lista Winamp.m3u"
  6. For /F "Tokens=*" %%$ in ('Dir /B /S "%CARPETA%" ^| Findstr /R ".aif .flac .m4a .mid .mp3 .ogg .wav .wma"') do (Echo %%$>>"%Temp%\Lista Winamp.m3u")
  7. REM Aqui iría el randomizado
  8. Start /B C:"\Program Files (x86)\Winamp\winamp.exe" "%Temp%\Lista Winamp.m3u"
11592  Programación / Scripting / Re: Instalacion fallida dll con bat en: 1 Marzo 2012, 17:54 pm
Quizás esto te sirva de ayuda: (solucionado) ¿Como instalar este driver de hardware (.INF) en batch


El rundll32 era "especial" (Toca pelotas) al pasar la ruta con espacios con o sin comillas, Ya no recuerdo si habia que hacerlo con comillas o SIN, así que te hago las 2 maneras xD

Si estás seguro que el comando te funciona y el error solo tiene que ver con la ruta de origen, Prueba con estos scripts (No los uses directamente desde la consola):

1º
Código
  1. rundll32.exe setupapi.dll,InstallHinfSection DefaultInstall 0 "%~dp0huffyuv.inf"

2º
Código
  1. rundll32.exe setupapi.dll,InstallHinfSection DefaultInstall 0 %~dp0huffyuv.inf


Si el error de instalación fuese por el archivo inf, Prueba así:
(Es un bat)

Código
  1. ;@Echo Off&title INF Installer
  2. ;
  3. ;Set "Code=%~f0"
  4. ;:Init
  5. ;Cls
  7. ;Echo. Instalando Controlador...
  8. ;rundll32.exe advpack.dll,LaunchINFSection "%Code%",DefaultInstall
  9. ;Ping -n 1 localhost >nul
  10. ;Echo. Finalizado
  12. ;Exit /b 0
  13.  
  14. ::::::::::: Codigo INF ::::
  15.  
  16.  
  17. ; Huffyuv AVI lossless video codec
  18. ;
  19. ; Copyright (c) 2000 Ben Rudiak-Gould
  20. ;
  21. ; This Windows 9x Installation INF File by Rainbow Software
  22. ;
  23. [version]
  24. signature="$CHICAGO$"
  25.  
  26. [DefaultInstall]
  27. CopyFiles=HUF.Files.Inf,HUF.Files.Dll
  28. AddReg=HUF.Reg
  29. UpdateInis=HUF.INIs
  30.  
  31. [DefaultUnInstall]
  32. DelFiles=HUF.Files.Dll,HUF.Files.Inf,HUF.Files.Ini
  33. DelReg=HUF.Reg
  34. UpdateInis=HUF.INIs.Del
  35.  
  36. [SourceDisksNames]
  37. 1="Huffyuv AVI lossless video codec","",1
  38.  
  39. [SourceDisksFiles]
  40. HUFFYUV.INF=1
  41. HUFFYUV.DLL=1
  42.  
  43. [DestinationDirs]
  44. HUF.Files.Inf=17
  45. HUF.Files.Dll=11
  46. HUF.Files.Ini=25
  47.  
  48. [HUF.Files.Inf]
  49. HUFFYUV.INF
  50.  
  51. [HUF.Files.Dll]
  52. HUFFYUV.DLL
  53.  
  54. [HUF.Files.Ini]
  55. HUFFYUV.INI
  56.  
  57. [HUF.Reg]
  58. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Description,,"Huffyuv lossless codec [HFYU]"
  59. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Driver,,"huffyuv.dll"
  60. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,FriendlyName,,"Huffyuv lossless codec [HFYU]"
  61.  
  62. HKLM,"Software\Microsoft\Windows NT\CurrentVersion\drivers.desc",huffyuv.dll,,"Huffyuv lossless codec [HFYU]"
  63. HKLM,"Software\Microsoft\Windows NT\CurrentVersion\Drivers32",VIDC.HFYU,,"huffyuv.dll"
  64.  
  65. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV
  66. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,DisplayName,,"Huffyuv AVI lossless video codec (Remove Only)"
  67. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,UninstallString,,"rundll.exe setupx.dll,InstallHinfSection DefaultUninstall 132 %17%\HUFFYUV.INF"
  68.  
  69. [HUF.INIs]
  70. system.ini, drivers32,, "VIDC.HFYU=huffyuv.dll"
  71.  
  72. [HUF.INIs.Del]
  73. system.ini, drivers32, "VIDC.HFYU=huffyuv.dll"

Si no te funciona, así:

Código
  1. ;@Echo Off&title INF Installer
  2. ;
  3. ;Set "Code=%~f0"
  4. ;:Init
  5. ;Cls
  7. ;Echo. Instalando Controlador...
  8. ;rundll32.exe setupapi.dll,InstallHinfSection DefaultInstall "%Code%"
  9. ;Ping -n 1 localhost >nul
  10. ;Echo. Finalizado
  12. ;Exit /b 0
  13.  
  14.  
  15. ::::::::::: Codigo INF ::::
  16.  
  17.  
  18. ; Huffyuv AVI lossless video codec
  19. ;
  20. ; Copyright (c) 2000 Ben Rudiak-Gould
  21. ;
  22. ; This Windows 9x Installation INF File by Rainbow Software
  23. ;
  24. [version]
  25. signature="$CHICAGO$"
  26.  
  27. [DefaultInstall]
  28. CopyFiles=HUF.Files.Inf,HUF.Files.Dll
  29. AddReg=HUF.Reg
  30. UpdateInis=HUF.INIs
  31.  
  32. [DefaultUnInstall]
  33. DelFiles=HUF.Files.Dll,HUF.Files.Inf,HUF.Files.Ini
  34. DelReg=HUF.Reg
  35. UpdateInis=HUF.INIs.Del
  36.  
  37. [SourceDisksNames]
  38. 1="Huffyuv AVI lossless video codec","",1
  39.  
  40. [SourceDisksFiles]
  41. HUFFYUV.INF=1
  42. HUFFYUV.DLL=1
  43.  
  44. [DestinationDirs]
  45. HUF.Files.Inf=17
  46. HUF.Files.Dll=11
  47. HUF.Files.Ini=25
  48.  
  49. [HUF.Files.Inf]
  50. HUFFYUV.INF
  51.  
  52. [HUF.Files.Dll]
  53. HUFFYUV.DLL
  54.  
  55. [HUF.Files.Ini]
  56. HUFFYUV.INI
  57.  
  58. [HUF.Reg]
  59. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Description,,"Huffyuv lossless codec [HFYU]"
  60. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Driver,,"huffyuv.dll"
  61. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,FriendlyName,,"Huffyuv lossless codec [HFYU]"
  62.  
  63. HKLM,"Software\Microsoft\Windows NT\CurrentVersion\drivers.desc",huffyuv.dll,,"Huffyuv lossless codec [HFYU]"
  64. HKLM,"Software\Microsoft\Windows NT\CurrentVersion\Drivers32",VIDC.HFYU,,"huffyuv.dll"
  65.  
  66. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV
  67. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,DisplayName,,"Huffyuv AVI lossless video codec (Remove Only)"
  68. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,UninstallString,,"rundll.exe setupx.dll,InstallHinfSection DefaultUninstall 132 %17%\HUFFYUV.INF"
  69.  
  70. [HUF.INIs]
  71. system.ini, drivers32,, "VIDC.HFYU=huffyuv.dll"
  72.  
  73. [HUF.INIs.Del]
  74. system.ini, drivers32, "VIDC.HFYU=huffyuv.dll"
11593  Foros Generales / Dudas Generales / Re: duda sobre extension .dat o .bin en: 1 Marzo 2012, 17:01 pm
Es cierto que un tipo de imagen ISO es ".bin", Pero eso no significa que todos los archivos de extensión .bin tengan que ser una ISO Bin, Así que intentar abrir con magiciso es tontería xD.

Los archivos .bin se pueden usar como contenedores cifrados por ejemplo en cierto tipo de APPS y VideoGames. En fin, cada uno le pone la extensión que quiere a sus archivos.

Salu2.
11594  Informática / Software / Re: Ediciones oficiales de Windows 7 con SP1 integrado (Descargas directas aquí) en: 1 Marzo 2012, 16:46 pm
Cita de: raul338 en  1 Marzo 2012, 16:22 pm
deberia ir en este foro n.n

Es que me gusta darle trabajo a Rando  Aprendiz-Oscuro >:D

Sorry :P Que lo muevan.
11595  Informática / Software / Ediciones oficiales de Windows 7 con SP1 integrado (Descargas directas aquí) en: 1 Marzo 2012, 16:05 pm


Windows 7 Home Premium con SP1 integrado

Español x86: http://msft.digitalrivercontent.net/win/X17-58857.iso
Español x64: http://msft.digitalrivercontent.net/win/X17-58859.iso

English x86: http://msft.digitalrivercontent.net/win/X17-58996.iso
English x64: http://msft.digitalrivercontent.net/win/X17-58997.iso


Windows 7 Profesional con SP1 integrado

Español x86: http://msft.digitalrivercontent.net/win/X17-58866.iso
Español x64: http://msft.digitalrivercontent.net/win/X17-58868.iso

English x86: http://msft.digitalrivercontent.net/win/X17-59183.iso
English x64: http://msft.digitalrivercontent.net/win/X17-59186.iso


Windows 7 (N) Profesional con SP1 integrado

Español x86: http://msft.digitalrivercontent.net/win/X17-58871.iso
Español x64: http://msft.digitalrivercontent.net/win/X17-58874.iso

English x86: http://msft.digitalrivercontent.net/win/X17-59335.iso
English x64: http://msft.digitalrivercontent.net/win/X17-59337.iso


Windows 7 Ultimate con SP1 integrado

Español x86: http://msft.digitalrivercontent.net/win/X17-58877.iso
Español x64: http://msft.digitalrivercontent.net/win/X17-58879.iso

English x86: http://msft.digitalrivercontent.net/win/X17-59463.iso
English x64: http://msft.digitalrivercontent.net/win/X17-59465.iso


Activador DAZ Loader v2.2.1



Descarga


Kit de instalación automatizada de Windows® (WAIK) para Windows® 7



Descarga en Español
Descarga en English


Complemento del Kit de instalación automatizada de Windows® (WAIK) para Windows® 7 SP1

El complemento del Kit de instalación automatizada de Windows (WAIK) para Windows 7 SP1 es una actualización opcional de AIK para Windows 7 que le ayuda a instalar, personalizar e implementar Microsoft Windows 7 SP1.

Descarga en Español
Descarga en English


GimageX

GImageX is a graphical user interface for the ImageX tool from the Windows Automated Installation Kit v2.0 (WAIK). ImageX is used to capture and apply WIM images for Windows XP, Windows Vista and Windows 7 desktop deployments.



Descarga


RT Se7en Lite

RT Se7en Lite is to customize windows 7 operating system and to make it lite.
You can add wallpapers, Icons, themes, integrate updates, drivers, language packs, applications, remove components, enable or disable features, unattended installation settings, bootable ISO and USB creator , etc.



Descarga x86
Descarga x64


Windows 7 USB/DVD Download Tool

Windows 7 USB/DVD Download Tool Creates and Makes Bootable DVD Disc or USB Flash/Hard Drive from ISO Image.



Descarga en Español
Descarga en English
11596  Sistemas Operativos / Windows / Re: Carpeta i4j_jres en: 1 Marzo 2012, 15:26 pm
Es una carpeta de Java (Java Runtime Envoirement)

No la borres

Saludos
11597  Programación / Scripting / (Medio solucionado xD) [Ruby]Comprobar si un archivo está abierto por un proceso en: 1 Marzo 2012, 14:50 pm
Hola

Verán tengo un problema con el módulo FileUtils.move...

Si estos 2 archivos existen:

1º - C:\ABC.mp3
2º - D:\ABC.mp3

Imaginen que tenemos el 2º archivo abierto (Reproduciendose en winamp por ejemplo)
Ahora intentamos usar FileUtils.move para mover el 2º archivo, al directorio 1º. El archivo obviamente no se puede reemplazar, el FileUtils.move dará "error de acceso" pero a pesar de eso, FileUtils.move elimina el archivo 1º y desaparece!.

Y entonces nos queda esto:

1º - (NADA)
2º - D:\ABC.mp3


¿Se puede hacer algún tipo de "test" para que no elimine el archivo a reemplazar si da Errno::EACCES?
Lo que quiero decir, Es que primero se asegure de que la operación no va a dar error, Para que no elimine el archivo 1ª si el 2º no se puede mover.

Creo que por ahí leí algo como: FileUtils.test.move pero no estoy seguro...

También he visto    FileUtils::NoWrite, PEro no he visto ningún ejemplo de como usarlo, Ni tampoco se si sirve para lo que necesito.

Muchas gracias.


El code que tengo por si sirve para más información es este:

Código
  1. # -*- coding: UTF-8 -*-
  2.  
  3. # Mueve archivos desde un punto de origen hasta un punto de destino
  4. # Pensado para usarlo como replazamiento del "SendTo" de Windows.
  5. #
  6. # (Requiere el uso de argumentos)
  7.  
  8.  
  9. # Módulos
  10.  
  11. require "FileUtils"
  12. require 'dl'
  13.  
  14. exit if Object.const_defined?(:Ocra)
  15.  
  16.  
  17. # Variables constantes
  18.  
  19. BUTTONS_OKCANCEL = 1
  20. BUTTONS_YESNO = 4
  21. CLICKED_CANCEL = 2
  22. CLICKED_YES = 6
  23. CLICKED_NO = 7
  24.  
  25.  
  26. # Métodos
  27.  
  28. def help()
  29. 	print "\nSe requiere al menos 1 archivo de origen.\n\n\n"
  30. 	print "Modo de empleo: \n\n"
  31. 	print ' Mover.rb [Destino] [Archivo de origen 1] [Archivo de origen 2] [etc...]' + "\n\n\n"
  32. 	print 'Ejemplo: (Mover tres archivos al directorio de destino "C:"' + "\n\n"	
  33. 	print ' Mover.rb "C:\" "D:\Archivo1.txt" "E:\Archivo2.jpg" "F:\Archivo3.mp3"' + "\n\n"
  34. 	Process.exit
  35. end
  36.  
  37. def message_box(txt, title='', buttons='')
  38.     user32 = DL.dlopen('user32')
  39. 	msgbox = DL::CFunc.new(user32['MessageBoxA'], DL::TYPE_LONG, 'MessageBox')
  40. 	r, rs = msgbox.call([0, txt, title, 3].pack('L!ppL!').unpack('L!*'))
  41.     return r
  42. end
  43.  
  44. def force_move(source_file, dest_file)
  45.   FileUtils.mv $archivo, ARGV[0]
  46.   rescue Errno::EACCES
  47.    response = message_box("El archivo esta en uso:\n" + $archivo  + "\n\n Reintentar?", "Reintentar?", BUTTONS_OKCANCEL)
  48. 	 if response == CLICKED_YES
  49.    	     retry 
  50.    	 elsif response == CLICKED_CANCEL
  51.    	     Process.exit 
  52.   end
  53. end
  54.  
  55.  
  56. # Control de errores
  57.  
  58. if ARGV.empty? == true
  59. 	help()
  60. elsif ARGV.length < 2
  61. 	help()
  62. elsif File.directory?(ARGV[0]) == false
  63. 	print "\n El directorio de destino no existe: " + (ARGV[0]) + "\n"
  64. 	Process.exit
  65. end
  66.  
  67. for archivo in ARGV[1..ARGV.length].each
  68. 	if File.exist?(archivo) == false
  69. 		print "\n El archivo a mover no existe: " + archivo + "\n"
  70. 	end
  71.  
  72. end
  73.  
  74.  
  75. # Proceso
  76.  
  77. for $archivo in ARGV[1..ARGV.length].each
  78.  
  79. 	if File.exist?(ARGV[0] + "\\" + $archivo.split('\\').last)
  80. 		response = message_box("Origen:\n" + $archivo + "\n\n Destino:\n " + ARGV[0] + "\\" + $archivo.split('\\').last + "\n\n El archivo de destino ya existe, Reemplazar archivo?", "Reemplazar archivo?", BUTTONS_YESNO)
  81. 		if response == CLICKED_YES
  82.   	 	 force_move($archivo, ARGV[0])
  83.   	 	elsif response == CLICKED_CANCEL
  84.   	 	 Process.exit
  85. 		end
  86. 	else
  87. 	 force_move($archivo, ARGV[0])
  88.  	end
  89.  
  90. end
  91.  
  92.  
  93. # Fin
  94. Process.exit
11598  Programación / Scripting / Re: [Ruby] Ayuda con rescue! en: 1 Marzo 2012, 14:40 pm
Ya lo he conseguido, he salido del "proceso" para llamar un método y así sí...

Aunque sigo teniendo un pequeño problema, mejor lo comento en otro post.

un saludo

Código
  1. # -*- coding: UTF-8 -*-
  2.  
  3. # Mueve archivos desde un punto de origen hasta un punto de destino
  4. # Pensado para usarlo como replazamiento del "SendTo" de Windows.
  5. #
  6. # (Requiere el uso de argumentos)
  7.  
  8.  
  9. # Módulos
  10.  
  11. require "FileUtils"
  12. require 'dl'
  13.  
  14. exit if Object.const_defined?(:Ocra)
  15.  
  16.  
  17. # Variables constantes
  18.  
  19. BUTTONS_OKCANCEL = 1
  20. BUTTONS_YESNO = 4
  21. CLICKED_CANCEL = 2
  22. CLICKED_YES = 6
  23. CLICKED_NO = 7
  24.  
  25.  
  26. # Métodos
  27.  
  28. def help()
  29. 	print "\nSe requiere al menos 1 archivo de origen.\n\n\n"
  30. 	print "Modo de empleo: \n\n"
  31. 	print ' Mover.rb [Destino] [Archivo de origen 1] [Archivo de origen 2] [etc...]' + "\n\n\n"
  32. 	print 'Ejemplo: (Mover tres archivos al directorio de destino "C:"' + "\n\n"	
  33. 	print ' Mover.rb "C:\" "D:\Archivo1.txt" "E:\Archivo2.jpg" "F:\Archivo3.mp3"' + "\n\n"
  34. 	Process.exit
  35. end
  36.  
  37. def message_box(txt, title='', buttons='')
  38.     user32 = DL.dlopen('user32')
  39. 	msgbox = DL::CFunc.new(user32['MessageBoxA'], DL::TYPE_LONG, 'MessageBox')
  40. 	r, rs = msgbox.call([0, txt, title, 3].pack('L!ppL!').unpack('L!*'))
  41.     return r
  42. end
  43.  
  44. def force_move(source_file, dest_file)
  45.   FileUtils.mv $archivo, ARGV[0]
  46.   rescue Errno::EACCES
  47.    response = message_box("El archivo esta en uso:\n" + $archivo  + "\n\n Reintentar?", "Reintentar?", BUTTONS_OKCANCEL)
  48. 	 if response == CLICKED_YES
  49.    	     retry 
  50.    	 elsif response == CLICKED_CANCEL
  51.    	     Process.exit 
  52.   end
  53. end
  54.  
  55.  
  56. # Control de errores
  57.  
  58. if ARGV.empty? == true
  59. 	help()
  60. elsif ARGV.length < 2
  61. 	help()
  62. elsif File.directory?(ARGV[0]) == false
  63. 	print "\n El directorio de destino no existe: " + (ARGV[0]) + "\n"
  64. 	Process.exit
  65. end
  66.  
  67. for archivo in ARGV[1..ARGV.length].each
  68. 	if File.exist?(archivo) == false
  69. 		print "\n El archivo a mover no existe: " + archivo + "\n"
  70. 	end
  71.  
  72. end
  73.  
  74.  
  75. # Proceso
  76.  
  77. for $archivo in ARGV[1..ARGV.length].each
  78.  
  79. 	if File.exist?(ARGV[0] + "\\" + $archivo.split('\\').last)
  80. 		response = message_box("Origen:\n" + $archivo + "\n\n Destino:\n " + ARGV[0] + "\\" + $archivo.split('\\').last + "\n\n El archivo de destino ya existe, Reemplazar archivo?", "Reemplazar archivo?", BUTTONS_YESNO)
  81. 		if response == CLICKED_YES
  82.   	 	 force_move($archivo, ARGV[0])
  83.   	 	elsif response == CLICKED_CANCEL
  84.   	 	 Process.exit
  85. 		end
  86. 	else
  87. 	 force_move($archivo, ARGV[0])
  88.  	end
  89.  
  90. end
  91.  
  92.  
  93. # Fin
  94. Process.exit
11599  Programación / Scripting / Re: acceder a las propiedades por DOS en: 1 Marzo 2012, 13:14 pm
En batch? Eso es una porquería.

Archivo 01.mp3
Archivo 02.mp3
Archivo 03.mp3

Así, no?

Es MUY fácil, Solo hay que setear un número, y un FOR que vaya aumentando el número y los vaya renombrando...
Aunque me niego a hacer un code que renombre archivos en batch, ya que sinceramente y por experiencia propia te digo que es una basura para esa taréa.

Mejor aprende lo básico de python o ruby para hacerlo, O usa este programa que te RECOMIENDO:

http://download.beroux.com/renameit-setup.exe




PD: Para renombrar en batch se usa el comando "Ren" que también de puede usar como "Rename".

Código:
Rename "archivo" "Archivo renombrado"

Salu2
11600  Programación / Scripting / Re: Ayuda con ya sea usando BATCH o VBS en: 1 Marzo 2012, 12:47 pm
Aqui tienes:



Código
  1. @Echo OFF
  2.  
  3. REM By Elektro Hacker
  4.  
  5. REM La carpeta a monitorizar
  6. Set Carpeta=C:\Users\Administrador\Desktop
  7.  
  8. Title Monitorizando "%Carpeta%"
  9. mode con cols=71 lines=40
  10.  
  12. Echo: "%Carpeta%" | MORE
  13. Echo: Monitorizando la carpeta en tiempo real | MORE
  14. Echo ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ | MORE
  15.  
  16.  
  17. REM Listar
  18. :Monitor
  19. If NOT exist "%TEMP%\Old.txt" (Dir /B /A "%Carpeta%" > "%TEMP%\Old.txt")
  20. Ping -n 3 localhost >NUL
  21. Dir /B /A "%Carpeta%" > "%TEMP%\New.txt"
  22.  
  23.  
  24. REM Comparar
  25. For /F "Tokens=*" %%# in ('Type "%TEMP%\New.txt"') do (
  26. 	Find "%%#"  "%TEMP%\Old.txt" >NUL
  27. 	Call :Nuevos "%%#"
  28. )
  29. Goto :Clean
  30.  
  31.  
  32. REM Mostrar los nuevos archivos
  33. :Nuevos
  34. If NOT %Errorlevel% EQU 0 (Echo+ "%~1" ^| %~t1)
  35. Goto :EOF 
  36.  
  37.  
  38. REM Actualizar la lista
  39. :Clean
  40. Del /Q "%TEMP%\Old.txt"
  41. Rename "%TEMP%\New.txt" "Old.txt"
  42.  
  43.  
  44. REM Volver a empezar...
  45. Goto :Monitor
Páginas: 1 ... 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 [1160] 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines