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 ... 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 [941] 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 ... 1010
9401  Programación / Scripting / Re: Como agregar Iconos al Menu Contextual de WindowsXP en: 2 Marzo 2012, 04:57
Anda, Tú por aquí XD (Soy pitoloko)


opción 1 - En vez de "icon" prueba "DisplayIcon"
      Aunque no creo que funcione.

opción 2 - Cambia el nombre del icono a "LSAA1.ico" y prueba este reg:

Código:
   Windows Registry Editor Version 5.00
    
    [HKEY_CLASSES_ROOT\Drive\shell\ESCANEAR UNIDAD]
    "icon"="C:\\Archivos de programa\\prueba\\LSAA1.ico,0"
    
    [HKEY_CLASSES_ROOT\Drive\shell\SCANEAR UNIDAD\command]
    @="C:\\Archivos de programa\\prueba\\prueba.bat \"%1\""


PD: Si alguien quiere informarse sobre respuestas y soluciones de este problema:
1º - http://www.portalhacker.net/index.php/topic,149625.0.html
2º - http://www.portalhacker.net/index.php/topic,149994.0.html


Salu2
9402  Comunicaciones / Chats; IRC y Messengers / Re: Problema con Hotmail en: 1 Marzo 2012, 22:48
Uso el "A-Msn" en vez del microsoft msn pero el procedimiento es casi el mismo:

Elige una cuenta de tus nietos y desactiva la casilla "Recordar cuenta" o "Eliminar esta cuenta"  (La opción sale en esa misma pantalla donde eliges las cuentas, Con los nombres que dije o con otro parecido, búscala bien)

Saludosss
9403  Programación / Scripting / Re: [Batch] Randomizar lineas en un txt? en: 1 Marzo 2012, 19:45
Ya se me ocurrió la forma, sorry


Código
  1. @Echo OFF
  2. Setlocal enabledelayedexpansion
  3.  
  4. Set Carpeta=%~n0
  5.  
  6. Echo #EXTM3U>"%Temp%\Lista Winamp.tmp"
  7. For /F "Tokens=*" %%$ in ('Dir /B /S "%CARPETA%" ^| Findstr /R ".aif .flac .m4a .mid .mp3 .ogg .wav .wma"') do (Echo  !Random!!Random!!Random!;%%$>>"%Temp%\Lista Winamp.tmp")
  8.  
  9. Echo #EXTM3U>"%Temp%\Lista Winamp.m3u"
  10. For /F "Tokens=2* Delims=;" %%a in ('Type "%Temp%\Lista Winamp.tmp" ^| Sort ') do (Echo  %%a>>"%Temp%\Lista Winamp.m3u")
  11. Start /B C:"\Program Files (x86)\Winamp\winamp.exe" "%Temp%\Lista Winamp.m3u"
  12.  
9404  Programación / Scripting / Re: acceder a las propiedades por DOS en: 1 Marzo 2012, 19:03
Ahhhhhhhhhhh perdón xD

A lo que te refieres es modificar los metadatos, No lo puedes hacer por batch, Bueno, al menos no con comandos internos, Yo lo hago de la siguiente manera:

ID3 Mass Tagger

Cambiar título en los metadatos:
Código
  1. id3 -t "El titulo que quieras" "*"

Cambiar título del id3v1:
Código
  1. id3 -1 -t "El titulo que quieras" "*"

Cambiar título del id3v2:
Código
  1. id3 -2 -t "El titulo que quieras" "*"

Cambiar título en todos:
Código
  1. id3 -t "El titulo que quieras" "*" & id3 -1 -2 -t "El titulo que quieras" "*"


EXTRA!:

Para eliminar los tags:
Código
  1. ID3.exe -1 -2 -3 -d -M -v "*"

Eso elimina en todos los archivos de música del directorio actual el Id3v1, Idv32 y Lyric Tag, Conservando la última fecha de modificación y creación de cada archivo.



PD: Esta utilidad no elimina/modifica el tag APE, Necesaría para programas como el MP3GAIN.

No tengo el link oficial de esta utilidad así que te la subo a mediafire: http://www.mediafire.com/?23ifq3v50o2p4im

Salu2
9405  Programación / Scripting / (Solucionado) [Batch] Randomizar lineas en un txt? en: 1 Marzo 2012, 18:57
¿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"
9406  Programación / Scripting / Re: Instalacion fallida dll con bat en: 1 Marzo 2012, 17:54
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):


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


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
  6. ;Echo. Instalando Controlador...
  7. ;rundll32.exe advpack.dll,LaunchINFSection "%Code%",DefaultInstall
  8. ;Ping -n 1 localhost >nul
  9. ;Echo. Finalizado
  10. ;Exit /b 0
  11.  
  12. ::::::::::: Codigo INF ::::
  13.  
  14.  
  15. ; Huffyuv AVI lossless video codec
  16. ;
  17. ; Copyright (c) 2000 Ben Rudiak-Gould
  18. ;
  19. ; This Windows 9x Installation INF File by Rainbow Software
  20. ;
  21. [version]
  22. signature="$CHICAGO$"
  23.  
  24. [DefaultInstall]
  25. CopyFiles=HUF.Files.Inf,HUF.Files.Dll
  26. AddReg=HUF.Reg
  27. UpdateInis=HUF.INIs
  28.  
  29. [DefaultUnInstall]
  30. DelFiles=HUF.Files.Dll,HUF.Files.Inf,HUF.Files.Ini
  31. DelReg=HUF.Reg
  32. UpdateInis=HUF.INIs.Del
  33.  
  34. [SourceDisksNames]
  35. 1="Huffyuv AVI lossless video codec","",1
  36.  
  37. [SourceDisksFiles]
  38. HUFFYUV.INF=1
  39. HUFFYUV.DLL=1
  40.  
  41. [DestinationDirs]
  42. HUF.Files.Inf=17
  43. HUF.Files.Dll=11
  44. HUF.Files.Ini=25
  45.  
  46. [HUF.Files.Inf]
  47. HUFFYUV.INF
  48.  
  49. [HUF.Files.Dll]
  50. HUFFYUV.DLL
  51.  
  52. [HUF.Files.Ini]
  53. HUFFYUV.INI
  54.  
  55. [HUF.Reg]
  56. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Description,,"Huffyuv lossless codec [HFYU]"
  57. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Driver,,"huffyuv.dll"
  58. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,FriendlyName,,"Huffyuv lossless codec [HFYU]"
  59.  
  60. HKLM,"Software\Microsoft\Windows NT\CurrentVersion\drivers.desc",huffyuv.dll,,"Huffyuv lossless codec [HFYU]"
  61. HKLM,"Software\Microsoft\Windows NT\CurrentVersion\Drivers32",VIDC.HFYU,,"huffyuv.dll"
  62.  
  63. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV
  64. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,DisplayName,,"Huffyuv AVI lossless video codec (Remove Only)"
  65. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,UninstallString,,"rundll.exe setupx.dll,InstallHinfSection DefaultUninstall 132 %17%\HUFFYUV.INF"
  66.  
  67. [HUF.INIs]
  68. system.ini, drivers32,, "VIDC.HFYU=huffyuv.dll"
  69.  
  70. [HUF.INIs.Del]
  71. 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
  6. ;Echo. Instalando Controlador...
  7. ;rundll32.exe setupapi.dll,InstallHinfSection DefaultInstall "%Code%"
  8. ;Ping -n 1 localhost >nul
  9. ;Echo. Finalizado
  10. ;Exit /b 0
  11.  
  12.  
  13. ::::::::::: Codigo INF ::::
  14.  
  15.  
  16. ; Huffyuv AVI lossless video codec
  17. ;
  18. ; Copyright (c) 2000 Ben Rudiak-Gould
  19. ;
  20. ; This Windows 9x Installation INF File by Rainbow Software
  21. ;
  22. [version]
  23. signature="$CHICAGO$"
  24.  
  25. [DefaultInstall]
  26. CopyFiles=HUF.Files.Inf,HUF.Files.Dll
  27. AddReg=HUF.Reg
  28. UpdateInis=HUF.INIs
  29.  
  30. [DefaultUnInstall]
  31. DelFiles=HUF.Files.Dll,HUF.Files.Inf,HUF.Files.Ini
  32. DelReg=HUF.Reg
  33. UpdateInis=HUF.INIs.Del
  34.  
  35. [SourceDisksNames]
  36. 1="Huffyuv AVI lossless video codec","",1
  37.  
  38. [SourceDisksFiles]
  39. HUFFYUV.INF=1
  40. HUFFYUV.DLL=1
  41.  
  42. [DestinationDirs]
  43. HUF.Files.Inf=17
  44. HUF.Files.Dll=11
  45. HUF.Files.Ini=25
  46.  
  47. [HUF.Files.Inf]
  48. HUFFYUV.INF
  49.  
  50. [HUF.Files.Dll]
  51. HUFFYUV.DLL
  52.  
  53. [HUF.Files.Ini]
  54. HUFFYUV.INI
  55.  
  56. [HUF.Reg]
  57. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Description,,"Huffyuv lossless codec [HFYU]"
  58. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Driver,,"huffyuv.dll"
  59. HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,FriendlyName,,"Huffyuv lossless codec [HFYU]"
  60.  
  61. HKLM,"Software\Microsoft\Windows NT\CurrentVersion\drivers.desc",huffyuv.dll,,"Huffyuv lossless codec [HFYU]"
  62. HKLM,"Software\Microsoft\Windows NT\CurrentVersion\Drivers32",VIDC.HFYU,,"huffyuv.dll"
  63.  
  64. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV
  65. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,DisplayName,,"Huffyuv AVI lossless video codec (Remove Only)"
  66. HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,UninstallString,,"rundll.exe setupx.dll,InstallHinfSection DefaultUninstall 132 %17%\HUFFYUV.INF"
  67.  
  68. [HUF.INIs]
  69. system.ini, drivers32,, "VIDC.HFYU=huffyuv.dll"
  70.  
  71. [HUF.INIs.Del]
  72. system.ini, drivers32, "VIDC.HFYU=huffyuv.dll"
9407  Foros Generales / Dudas Generales / Re: duda sobre extension .dat o .bin en: 1 Marzo 2012, 17:01
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.
9408  Sistemas Operativos / Windows / Re: Carpeta i4j_jres en: 1 Marzo 2012, 15:26
Es una carpeta de Java (Java Runtime Envoirement)

No la borres

Saludos
9409  Programación / Scripting / (Medio solucionado xD) [Ruby]Comprobar si un archivo está abierto por un proceso en: 1 Marzo 2012, 14:50
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
9410  Programación / Scripting / Re: [Ruby] Ayuda con rescue! en: 1 Marzo 2012, 14:40
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
Páginas: 1 ... 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 [941] 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 ... 1010
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines