Mensajes

El enlace esta muerto.

Alquien lo sube compilado???

Gracias por avisar...

Me he animado a hacer una nueva versión mejorada, pásate por aquí: [RUBY] Shack v1.1 (ImagesHack Uploader)

[ISHACK]

ISHACK v1.4
An Imageshack commandline uploader.
By Elektro H@cker.








Modo de empleo:

Código [Seleccionar] Expandir

IShack (Opciones) (Archivo)


Ejemplos:

Código [Seleccionar] Expandir



IShack -d Imagen.jpg
(Devuelve el enlace directo de la imagen)

IShack -d "C:\Imagen1.bmp" "C:\Imagen2.jpg" "C:\Imagen3.png"
(Devuelve el enlace directo de varias imagenes)

IShack --private -b -h "C:\Imagen.jpg"
(Marca la imagen como privada, y devuelve el enlace BB y HTML de la imagen)

IShack --resize 640x480 -d Imagen1.jpg Imagen2.bmp
(Redimensiona las imagenes a XxY y devuelve el enlace directo)

IShack --config
(Muestra el menú de configuración de cuenta de acceso)
.


Opciones:

Código [Seleccionar] Expandir

-d  --direct
   Devuelve el enlace directo de la imagen.

-t  --thumb
   Devuelve el enlace directo de la miniatura de la imagen.

-b  --bbcode
    Devuelve el enlace de la imagen en formato BB.

-bt --bbcodethumb
    Devuelve el enlace de la imagen con miniatura en formato BB.

-h  --html
    Devuelve el enlace de la imagen en formato HTML.

-ht --htmlthumb
    Devuelve el enlace de la imagen con miniatura en formato HTML.

-i --imageshack
    Devuelve el enlace web de la imagen en imageshack.

-y  --yfrog
    Devuelve el enlace web de la imagen en YFrog.

-yt  --yfrogthumb
    Devuelve el enlace de la miniatura de la imagen en YFrog.

-a  --all
    Devuelve el enlace de la imagen en todos los formatos.

-p  --private
    Marca la imagen como privada.

-r  --resize
    Redimensiona la imagen.

-c  --config
    Establece los datos de acceso a una cuenta de ImagesHack.

/?   Muestra esta ayuda.






Cambios en la versión 1.4

• El script ahora comprueba si el usuario/pass existe en Imageshack.
• Añadida una opción para redimensionar la imagen subida.
• Eliminada la opción para marcar la imagen como "pública", pues era innecesaria.
• Añadido un switch alternativo ("-p") para la opción "--private".

Cambios en la versión 1.3
Corregido un error de última hora en los switches yes/no de la privacidad de la imagen, estaban al revés xD.

Cambios en la versión 1.2

• Un cambio de nombre, ahora es ISHACK      ...xD
• El programa ahora acepta más de una opción de formato al mismo tiempo

           (Antes solo se podía usar uno de los parámetros, ahora se pueden elegir los formatos deseados)

• Se puede subir más de un archivo simultaneamente.
• Opcion añadida para poder marcar la imagen como pública o privada
• Más opciones de formato añadidas pudiendo obtener los siguientes enlaces:

           bb code thumbnail
           html thumbnail
           imageshack web
           yfrog web
           yfrog web thumbnail

• Se genera automáticamente un código de miniaturas aunque Imageshack no cree la miniatura.
• Los datos de acceso de la cuenta de ImagesHack se almacenan (cifrados) en el registro de Windows.
• Pequeños cambios internos en el código, se ha simplificado y mejorado un poco dentro de lo que me ha sido posible. (No soy un PRO de Ruby )

ERRORES CORREGIDOS:

• Si la imagen es demasiado pequeña ImagesHack no devuelve una miniatura pero ya no da error.
• Corregida la información de los formatos compatibles (ICO no es soportado por Imageshack)

Cambios en la versión 1.1

• Se puede configurar para subir las imagenes anónimamente o a una cuenta
• Se comprueba si la imagen se subió correctamente
• La obtención de la imagen en BB code link se ha modificado quitandole el tag [ URL ]
• El código del script se ha simplificado y mejorado un poco...

DESCARGAS:

SHACK.exe (El script compilado, nada más): http://exoshare.com/download.php?uid=RR0ZEMGX

SHACK.exe (Instalador personalizado para windows que añade opciones al menú contextual...): http://exoshare.com/download.php?uid=1PPR9PPT





ISHACK.rb (v 1.4):

Código (ruby) [Seleccionar] Expandir


# -*- coding: UTF-8 -*-


require 'rest_client'
require 'openssl'
require 'win32/registry'


exit if Object.const_defined?(:Ocra)


$formats = ""
$files   = ""


def logo()
 print "
 @    @@                          
     @  @  @    *             *    
 @   @     @  *    @@@  * @@@   @   @ *
*@    @  * @     *    @  @ * @  @  @
 @   * @   @ @@       @  @      @ @
 @*     @  @@ *@   @@@@  @  *   @@  *
 @  @ * @  @   @  @ * @  @      @ @
*@  @  @   @   @  @   @  @ * @  @* @
 @   @@    @ * @   @@@@   @@@   @   @

                               v1.4
                               By Elektro H@cker\n"
end


def help()
print '
[Modo de empleo]

IShack (Opciones) (Archivo)



[Ejemplos]

[+] IShack -d Imagen.jpg
    Devuelve el enlace directo de la imagen.

[+] IShack -d "C:\Imagen1.bmp" "C:\Imagen2.jpg" "C:\Imagen3.png"
    Devuelve el enlace directo de varias imagenes.

[+] IShack --private -b -h "C:\Imagen.jpg"
    Marca la imagen como privada, y devuelve el enlace BB y HTML de la imagen.

[+] IShack --resize 640x480 -d Imagen1.jpg Imagen2.bmp
    Redimensiona las imagenes a XxY y devuelve el enlace directo.

[+] IShack --config
    Muestra el menú de configuración de cuenta de acceso.



[Opciones]

 -d  --direct
     Devuelve el enlace directo de la imagen.

 -t  --thumb
     Devuelve el enlace directo de la miniatura de la imagen.

 -b  --bbcode
      Devuelve el enlace de la imagen en formato BB.

 -bt --bbcodethumb
      Devuelve el enlace de la imagen con miniatura en formato BB.

 -h  --html
      Devuelve el enlace de la imagen en formato HTML.

 -ht --htmlthumb
      Devuelve el enlace de la imagen con miniatura en formato HTML.

 -i --imageshack
      Devuelve el enlace web de la imagen en imageshack.

 -y  --yfrog
      Devuelve el enlace web de la imagen en YFrog.

 -yt  --yfrogthumb
      Devuelve el enlace de la miniatura de la imagen en YFrog.

 -a  --all
      Devuelve el enlace de la imagen en todos los formatos.

 -p  --private
      Marca la imagen como privada.

 -r  --resize
      Redimensiona la imagen.

 -c  --config
      Establece los datos de acceso a una cuenta de ImagesHack.

 /?   Muestra esta ayuda.

'
Process.exit
end


def arguments()

 # empty arguments
 if (ARGV.empty?) then help() end

 ARGV.each do |arg|

 # /?
   if arg == "/?" then help() end

 # -c --config
   if arg =~ /-c\z/i or arg =~ /--config\z/i then configure() end

 # private
   if arg =~ /-p\z/i or arg =~ /--private\z/i then $privacity = "no" end

 # -d --direct
   if arg =~ /-d\z/i or arg =~ /--direct\z/i then $formats=$formats + "\n-d" end

 # -t --thumb
   if arg =~ /-t\z/i or arg =~ /--thumb\z/i  then $formats=$formats + "\n-t" end

 # -b --bbcode
   if arg =~ /-b\z/i or arg =~ /--bbcode\z/i then $formats=$formats + "\n-b" end

 # -bt --bbcodethumb
   if arg =~ /-bt\z/i or arg =~ /--bbcodethumb\z/i then $formats=$formats + "\n-bt" end

 # -h --html
   if arg =~ /-h\z/i or arg =~ /--html\z/i then $formats=$formats + "\n-h" end

 # -ht --htmlthumb
   if arg =~ /-ht\z/i or arg =~ /--htmlthumb\z/i then $formats=$formats + "\n-ht" end

 # -i --imageshack
   if arg =~ /-i\z/i or arg =~ /--imageshack\z/i then $formats=$formats + "\n-i" end

 # -y --yfrog
   if arg =~ /-y\z/i or arg =~ /--yfrog\z/i then $formats=$formats + "\n-y" end

 # -yt --yfrogthumb
   if arg =~ /-yt\z/i or arg =~ /--yfrogthumb\z/i then $formats=$formats + "\n-yt" end

 # -a --all
   if arg =~ /-a\z/i or arg =~ /--all\z/i then $formats="\n-d"+"\n-t"+"\n-b"+"\n-bt"+"\n-h"+"\n-ht"+"\n-i"+"\n-y"+"\n-yt" end

 # -r --resize
if arg =~ /-r\z/i or arg =~ /--resize\z/i
$resize_switch = "1"
$resize_size   = ARGV.to_s.split('"'+arg+'", "').last.split('"').first
if not $resize_size[/^[0-9]{1,5}[x][0-9]{1,5}$/i]
print "  [+] ERROR\n\n      La resolución \"#{$resize_size}\" no es correcta...\n"
Process.exit
end
elsif arg =~ /-r\z/i or arg =~ /--resize\z/i
$resize_switch = "0"
   print "hola"
   sleep 3
end

 # files to upload
   if arg[/.bmp\z/i] or arg[/.gif\z/i] or arg[/.jpg\z/i] or arg[/.jpeg\z/i] or arg[/.png\z/i] or arg[/.tif\z/i] or arg[/.tiff\z/i]
     if File.exist?(arg)
       $files=$files + arg + "\n"
     elsif
       print "  [+] ERROR\n\n      La imagen #{arg} no existe...\n"
       Process.exit
     end
   end
 end # ARGV.each

 # empty options
 if $formats == ""
   print "  [+] ERROR\n\n      Opción incorrecta...\n"
   Process.exit
 end

end


def configure()
$profile = "error id"
   print "\n Puede configurar su cuenta de acceso de ImagesHack para subir las imagenes...\n\n"

  until not $profile["error id"]
    print " [+] Escriba su nombre de usuario: "
  $user=STDIN.gets
  if $user == "\n" then $user="guest\n" end

  print " [+] Escriba su password: "
  $pass=STDIN.gets
  if $pass == "\n" then $pass="guest\n" end

  $profile = RestClient.post('http://imageshack.us/auth.php',
  :username => $user.gsub("\n",""),
  :password => $pass.gsub("\n",""),
  :format => "xml"
  )

  if $profile["error id"] and not $user+$pass=="guest\nguest\n"
  print "\n [+] ERROR\n\n     El nombre de usuario o contraseña son incorrectos.\n\n"
  elsif $user=="guest\n" and $pass=="guest\n"
  $profile="guest"
  end
  end # until
  userencrypted=cifrar($user, "DES-EDE3-CBC")
  passencrypted=cifrar($pass, "DES-EDE3-CBC")
  regwrite("USER", userencrypted)
  regwrite("PASS", passencrypted)
  puts "\n Datos configurados, vuelva a ejecutar el programa..."
  Process.exit
end


def cifrar(datos, cifrado)
 encrypt = OpenSSL::Cipher::Cipher.new(cifrado)
 encrypt.encrypt
 encrypt.update(datos) + encrypt.final      
end


def descifrar(datos, cifrado)
 decrypt = OpenSSL::Cipher::Cipher.new(cifrado)
 decrypt.decrypt
 decrypt.update(datos) + decrypt.final
end


def regwrite(keyname, value)
 Win32::Registry::HKEY_CURRENT_USER.create("SOFTWARE\\IShack\\") do |reg|
   reg[keyname, Win32::Registry::REG_SZ] = value
 end
end


def regread(keyname)
 Win32::Registry::HKEY_CURRENT_USER.open("SOFTWARE\\IShack\\") do |reg|
   reg[keyname]
 end
end


def subir(file)
 print "\n [ Subiendo la imagen #{file}... ]\n\n"

 begin
   $Imagen = RestClient.post('http://www.imageshack.us/upload_api.php',
   :a_username => $user,
   :a_password => $pass,
   :key        => "268BEKSV9465b858a45cd1b4d2b32d1195ee6f27",
   :public     => $privacity,
   :fileupload => File.new(file),
   :optimage   => $resize_switch,
   :optsize    => $resize_size)
 rescue
   print ' [+] ERROR

    El error puede ser debido a uno de los siguientes motivos:

    - La página esté offline.
    - El tamaño de la imagen supere los 10 MB.
    - Haya superado el límite de 500 imagenes hospedadas en su cuenta.
   '
 Process.exit
 end # exception
end


def show()
 if $Imagen["http://www.imageshack.us/thumbnail."] then $thumbs="no" end
 $nothumb = ' ImagesHack no creó ninguna miniatura. (La imagen es demasiado pequeña)' + "\n"

 direct = $Imagen.split("<image_link>").last.split("</image_link>").first.to_s
 thumb  = $Imagen.split("<thumb_link>").last.split("</thumb_link>").first
 b      = "[IMG]"+$Imagen.split("<image_bb>").last.split("</image_bb>").first.split("[IMG]").last.split("[/IMG]").first+"[/IMG]"
 bt     = $Imagen.split("<thumb_bb>").last.split("</thumb_bb>").first
 h      = $Imagen.split("<image_html>").last.split("</image_html>").first.gsub("&gt;", ">").gsub("&lt;", "<").gsub("&quot;", "\"")
 ht     = $Imagen.split("<thumb_html>").last.split("</thumb_html>").first.gsub("&gt;", ">").gsub("&lt;", "<").gsub("&quot;", "\"")
 i      = $Imagen.split("<is_link>").last.split("</is_link>").first
 y      = $Imagen.split("<yfrog_link>").last.split("</yfrog_link>").first
 yt     = $Imagen.split("<yfrog_thumb>").last.split("</yfrog_thumb>").first

 $formats.each_line do |link|
   if link.gsub("\n","") == "-d" then print " [+] DIRECTO:\n\n" + direct + "\n\n" end

   if link.gsub("\n","") == "-t"
     print " [+] MINIATURA:\n\n"
     if $thumbs=="no"
       print $nothumb + "\n" + direct + "\n\n"
     elsif
       print thumb + "\n\n"
     end
   end # thumbail

   if link.gsub("\n","") == "-b"  then print " [+] BB CODE:\n\n" + b + "\n\n" end

   if link.gsub("\n","") == "-bt"
     print " [+] BB CODE MINIATURA:\n\n"
     if $thumbs=="no"
       print $nothumb + "\n" + "[URL="+direct+"][IMG]"+direct+"[/IMG][/URL]"+"\n\n"
     elsif
       print bt + "\n\n"
     end
   end # bb thumbnail

   if link.gsub("\n","") == "-h"  then print " [+] HTML:\n\n" + h + "\n\n" end

   if link.gsub("\n","") == "-ht"
     print " [+] HTML MINIATURA:\n\n"
     if $thumbs=="no"
       print $nothumb + "\n" + '<a href="' + direct + '" target="_blank"><img src="' + direct + '" alt="Imagen subida con IShack v1.4 (By Elektro H@cker)" border="0"/></a>'+"\n\n"
     elsif
       print ht + "\n\n"
     end
   end # ht thumbnail

   if link.gsub("\n","") == "-i"  then print " [+] IMAGESHACK:\n\n" + i + "\n\n" end
   if link.gsub("\n","") == "-y"  then print " [+] YFROG:\n\n" + y + "\n\n" end
   if link.gsub("\n","") == "-yt" then print " [+] YFROG MINIATURA:\n\n" + yt + "\n\n" end
 end # |link|
end



logo()
arguments()

begin
 $user=regread("USER")
 $pass=regread("PASS")
 $user=descifrar($user, "DES-EDE3-CBC").gsub("\n","")
 $pass=descifrar($pass, "DES-EDE3-CBC").gsub("\n","")
rescue
 $user="guest"
 $pass="guest"
end
$files.each_line do |file|
 subir(file.gsub("\n",""))
 show()
end


__END__



El listado de impresoras se como sacarlo, de la siguente manera.

Código [Seleccionar] Expandir

cscript prnmngr.vbs -l | find "Nombre de impresora"

por cada impresora (que se saca del comando anterior) cree una opcion

No dispongo de ese archivo VBS, si puedes poner el output completo quizás puedo ayudarte a hacer el for "a ojo"...

se puede generar set dentro de for??

si

deberia hacer un enableextension o disableenableextensions???

Código [Seleccionar] Expandir

Setlocal enabledelayedexpansion
aunque hay otras formas.

saludos

Las aplicaciones x86 te van a funcionar sin problemas en un Win x64, no te preocupes.

PD: yo compilé mucho desde vb6 (apps de 32 bits) y funcionan.

saludos

[EDITO]

os gusta llegar lejos a costa del trabajo de otros XD, o por el contrario os gusta que hacer grandes cosas y dejar un legado a el resto del mundo sin llegar a ser conocidos?

Voy directo a la segunda parte:

En un mundo donde vivimos miles de millones de personas... realmente si alguien siente la necesidad de hacer algo para ser conocido, está siendo un completo iluso...

Ve a Alemania por ejemplo y pregunta a toda la población por algún Español que haya echo algo grande o simplemente algún español que conozcan, solo te sabrían contestar "Fernando Alonso", "Rajoy", o "Zapatero"... como en cualquier otra parte del mundo de habla NO hispana.

Así que hay que hacer las cosas, dejar un legado como dices tú, sin necesidad de hacerlo con el fín de "ser conocido", está muy bien ayudar al prógimo sin pedir nada a cambio... te sientes mejor persona que muchas otras que lo hacen todo a cambio de algo.
puf, ¿para que coño serviría hacer algo grande con el fín de ser conocido? ¿para que te saluden más en la calle o salga tu nombre en algún sitio? ¿y que?.

Ale, a dejar legados y hacer cosas buenas todos sin pedir nada a cambio se ha dicho!

EDITO:
PD: Luego hay otras personas que se aprovechan del trabajo de los demás y lo falsifican en su beneficio para que parezca que lo han echo ellos... ¿con el fin de ser conocidos?... y no miro a nadie... (o quizás si 8).
bueno, no le doy importancia a esas cosas, mientras yo sepa que lo mio es mio y no de otra persona, que más me da que otra gente piense que no es mio, con que lo sepa yo me es suficiente.
Pero tenía que mencionar esto, pues no comprendo porque algunas personas necesitan falsificar el trabajo de otros, me saca de mis casillas que alguien tenga dicha necesidad egoista!

un saludo a todos!

[PSD.REG]

PSD.REG

Código [Seleccionar] Expandir

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.PSD]
@="photoshop.psdfile"

[HKEY_CLASSES_ROOT\photoshop.psdfile]
@="image"

[HKEY_CLASSES_ROOT\photoshop.psdfile\DefaultIcon]
@="C:\\Program Files\\Adobe Photoshop CS6 (64 Bit)\\Photoshop.exe,1"

[HKEY_CLASSES_ROOT\photoshop.psdfile\Shell\Open\Command]
@="\"C:\\Program Files\\Adobe Photoshop CS6 (64 Bit)\\Photoshop.exe\" \"%1\""

Modifica la ruta:

Código [Seleccionar] Expandir

C:\\Program Files\\Adobe Photoshop CS6 (64 Bit)\\Photoshop.exe
Por la de tu photoshop.

PD: (Fíjate en las dobles barritas "\\")

Saludos.

[Auto Music Converter]

Auto Music Converter es un script de uso personal para automatizar conversiones masivas de audio, a MP3 de "X" bitrate, en cualquier directorio simplemente pinchando click derecho sobre el mismo.

SOLO ES COMPATIBLE CON WINDOWS 7 (x64)





- Explicación detallada de para que sirve el script:

Imaginemos que tenemos una carpeta (con o sin subcarpetas) llena de archivos de música, de distintos formatos y a distintos bitrates...

Nosotros queremos que el bitrate general de esos archivos no supere por ejemplo los "192 kbps", osea, que en esa carpeta puedan haber archivos con bitrate inferior al indicado (192) PERO NO SUPERIOR AL INDICADO (192)...

Entonces el script comparará el bitrate de todos los archivos en esa carpeta con el bitrate indicado, y si encuentra algún archivo con bitrate MAYOR al indicado (192), lo convertirá a MP3 con el bitrate indicado (192).

PD: El script no afecta a archivos que tengan un bitrate inferior al indicado, ya que es una tontería convertir un archivo de bitrate inferior a superior...





Auto Music Converter es la renovación de mi antiguo script Audio Bitrate Changer http://foro.elhacker.net/empty-t322340.0.html
(Optimizado, simplificado, con más formatos soportados, y ahora es totálmente customizable)

El script usa el convertidor por línea de comandos (coreconverter.exe) de dbPoweramp y aparte depende de los siguientes programas:

• colous
• FART
• mediainfo
• mp3gain
• mp3val
• nircmd

Formatos soportados:

• AIF/AIFF
• APE
• FLA/FLAC
• M4A
• MP3
• OGG
• W64
• WAV
• WMA
• WV

PD: Está todo incluido en el instalador y no hay que instalar nada de lo mencionado manualmente.





- Explicación de las opciones más importantes del script:

Código [Seleccionar] Expandir

SET "MAX_BITRATE=192"
Esto significa que el script buscará archivos que tengan bitrate MAYOR de 192, y si encuentra alguno MAYOR lo convertirá a MP3 de 192 bitrate.
Se puede cambiar el valor por: 128 | 160 | 192 | 224 | 256 | 320

Código [Seleccionar] Expandir

Set "QUALITY=0"
Indica la calidad de conversión del MP3. El valor máximo es 0, el mínimo 9.

Código [Seleccionar] Expandir

Set "BITRATE_MODE=--cbr"
Indica el modo de bitrate. CBR = bitrate constante, ABR = Average bitrate, V = Variable bitrate.

Código [Seleccionar] Expandir

Set "Normalize=YES"
Indica si se le aplicará una ganancia (no destructiva) al MP3. para desactivarlo escribir "NO"

Código [Seleccionar] Expandir

Set "GAIN=5"
Indica la ganancia sobre 10 que se le aplica. el valor máximo es 10.
5 equivale a 94 db en MP3Gain.




- Algunas imagenes:















- DESCARGA:



PD: El instalador crea un acceso directo en el menú inicio para modificar las opciones manualmente en el bloc de notas.




- El script:

Código (dos) [Seleccionar] Expandir

@echo off

:: ###############################
:: #                             #
:: #  Auto Music Converter v3.0  #
:: #  A.   M.    C.              #
:: #                             #
:: ###############################
::
:: By Elektro H@cker

REM Este script busca archivos de audio que tengan un bitrate superior a "X" kbps y convierte esos archivos a formato MP3 de "X" kbps.
REM
REM Formatos soportados:
REM AIF | AIFF | APE | FLA | FLAC | M4A | MP3 | OGG | W64 | WAV | WMA | WV

:: ###################
:: #                 #
:: #  CONFIGURACIÓN  #
:: #                 #
:: ###################
::
:: Script options
::
SET "MAX_BITRATE=192" & REM 128|160|192|224|256|320
::
Set "FORMATS=*.AIF;*.AIFF;*.APE;*.FLA;*.FLAC;*.M4A;*.MP3;*.OGG;*.W64;*.WAV;*.WMA;*.WV"
Set "CONVERTED_PATH=%Temp%\BitrateChanger_PATH_%RANDOM%.txt"
Set "INDEX=%Temp%\BitrateChanger_INDEX_%RANDOM%.txt"
Set "LIST=%Temp%\BitrateChanger_LIST_%RANDOM%.txt"
Set "RESUMEONERROR=YES"
Set "AUTOEND=YES"
Set /A "Num=0", "Rate=0", "Scanned=0"
::
:: Encoder options
::
Set "EFFECTS=-dspeffect1="Preserve Source Attributes" -dspeffect2="Delete Source File=" -dspeffect3="Delete Destination File on Error=""
Set "PROFILE=slow"       & REM fast|normal|slow
Set "QUALITY=0"          & REM (MAX) 0-9 (MIN)
Set "BITRATE_MODE=--cbr" & REM --abr|-V (0-9)
SET "CHANNELS=auto"      & REM mono|stereo|joint stereo|forced joint stereo|dual channels
Set "PRIORITY=normal"    & REM idle|low|normal|high
Set "OTHER=-noidtag --noreplaygain"
::
:: Gain options
Set "Normalize=YES"
Set "GAIN=5"
::
:: :: :: :: :: :: :: :: :: :: :: :: ::

CALL :FILEEXIST "colous.exe"
CALL :FILEEXIST "coreconverter.exe"
CALL :FILEEXIST "mediainfo.exe"
CALL :FILEEXIST "mp3gain.exe"
CALL :FILEEXIST "mp3val.exe"
CALL :FILEEXIST "nircmd.exe"

:START
Title "Auto Music Converter %CD%"
Mode con cols=30 lines=3
Color 07
CD "%D%" >nul 2>&1
DEL /Q "%LIST%" >nul 2>&1
Echo+
IF /I "%~1" EQU "RECURSIVE" (Set "RECURSIVE=/S")
Colous writesec "[7] Buscando archivos"    & nircmd wait 300 & cls & echo+
Colous writesec "[7] Buscando archivos."   & nircmd wait 300 & cls & echo+
Colous writesec "[7] Buscando archivos.."  & nircmd wait 300 & cls & echo+
Colous writesec "[7] Buscando archivos..." & nircmd wait 250

:INDEX
DIR /B %RECURSIVE% %FORMATS% 1> "%INDEX%" 2>NUL || (Goto :NOMUSIC)
FOR /F %%# in ('Find /V /C "" ^< "%INDEX%"') do (set "TOTAL=%%#")

:FIND_BITRATE
Mode con cols=30 lines=3
FOR /F "tokens=*" %%# in ('DIR /B %RECURSIVE% %FORMATS%') do (
cls
Echo+
Call set /a scanned+=1
Call Colous writesec "[7] Buscando archivos... [14]%%Scanned%%[7]/[14]%TOTAL%"
IF "%MAX_BITRATE%" EQU "128" (mediainfo "%%#" "--Inform=General;%%BitRate%%" | FINDSTR "^129... ^1[3-9][0-9]... ^[2-9]..... ^[1-9]......"     >nul && (CALL :CONVERT "%%#"))
IF "%MAX_BITRATE%" EQU "160" (mediainfo "%%#" "--Inform=General;%%BitRate%%" | FINDSTR "^16[1-9]... ^1[7-9][0-9]... ^[2-9]..... ^[1-9]......" >nul && (CALL :CONVERT "%%#"))
IF "%MAX_BITRATE%" EQU "192" (mediainfo "%%#" "--Inform=General;%%BitRate%%" | FINDSTR "^19[3-9]... ^[2-9]..... ^[1-9]......"                 >nul && (CALL :CONVERT "%%#"))
IF "%MAX_BITRATE%" EQU "224" (mediainfo "%%#" "--Inform=General;%%BitRate%%" | FINDSTR "^22[5-9]... ^2[3-9][0-9]... ^[3-9]..... ^[1-9]......" >nul && (CALL :CONVERT "%%#"))
IF "%MAX_BITRATE%" EQU "256" (mediainfo "%%#" "--Inform=General;%%BitRate%%" | FINDSTR "^25[7-9]... ^2[6-9][0-9]... ^[3-9]..... ^[1-9]......" >nul && (CALL :CONVERT "%%#"))
IF "%MAX_BITRATE%" EQU "320" (mediainfo "%%#" "--Inform=General;%%BitRate%%" | FINDSTR "^32[1-9]... ^3[3-9][0-9]... ^[4-9]..... ^[1-9]......" >nul && (CALL :CONVERT "%%#"))
)
Goto :END

:CONVERT
POPD
PUSHD "%~dp1"
Title "Auto Music Converter: %~nx1"
Mode con cols=80 lines=25
cls
echo+
FOR /F "tokens=*" %%%% in ('mediainfo "%~1" "--Inform=General;%%BitRate/String%%"') do (set "Rate=%%~%%")
Colous writesec "[8]%~dp1"
Echo+
Colous writesec "[7] Archivo :[6] %~nx1"
Colous writesec "[7] Bitrate :[6] %RATE:~0,-5% [8]>[2] %MAX_BITRATE%"
Echo+
Colous writesec "[8]________________________________________________________________________________"
coreconverter.exe -infile="%~nx1" -outfile="%~n1.mp3" -convert_to="mp3 (Lame)" %EFFECTS% -encoding="%PROFILE%" -b %MAX_BITRATE% %BITRATE_MODE% --extracli="-q %QUALITY%" %OTHER% -channels="%CHANNELS%" -priority="%PRIORITY%" && set /a "num+=1" && Echo "%~nx1">> "%LIST%" || (CALL :ERROR "%~1")
IF /I "%NORMALIZE%" EQU "YES" (
Echo+
Colous writesec "[2] Aplicando una ganancia de %GAIN%/10 al archivo..."
mp3gain /c /r /d %GAIN% "%~n1.mp3" >nul 2>&1
)
Title "Auto Music Converter %CD%"
DEL /Q "%temp%\%~nx1.txt" >nul 2>&1
Mode con cols=30 lines=3
GOTO:EOF

:ERROR
CLS
MODE con cols=60 lines=9
color 0c
Title Auto Music Converter... ERROR "%~nx1"
Echo+
Colous writesec "[12] No se ha podido convertir el siguiente archivo:"
Echo+
Colous writesec "[8] %CD%\[14]%~nx1"
IF /I NOT "%RESUMEONERROR%" EQU "YES" (PAUSE)
Timeout /T 60
Mode con cols=30 lines=3
color 07
IF /I "%~x1" EQU ".MP3" (
mp3val "%~1" -f           >nul 2>&1
DEL /Q "%~1.bak"          >nul 2>&1
DEL /Q "%temp%\%~nx1.txt" >nul 2>&1
CALL :CONVERT "%~1" || (GOTO:EOF)
)
GOTO:EOF

:FILEEXIST
IF NOT EXIST "%WINDIR%\System32\%~1" (
color 0c
Echo ERROR
Echo Necesitas el programa %* para utilizar este script...
Pause&Exit
)
GOTO :EOF

:NOMUSIC
mode con lines=3 cols=49
Title Auto Music Converter... NO MUSIC
echo+
Colous writesec "[7] La carpeta no contiene archivos de audio."           & nircmd wait 500 & cls & echo+
Colous writesec "[7] La carpeta no contiene archivos de audio.  [8]3..."  & nircmd wait 500 & cls & echo+
Colous writesec "[7] La carpeta no contiene archivos de audio.  [8]2.."   & nircmd wait 500 & cls & echo+
Colous writesec "[7] La carpeta no contiene archivos de audio.  [8]1."    & nircmd wait 500 & cls & echo+
Colous writesec "[7] Bye.                                       [8]0"     & nircmd wait 500
EXIT

:END
IF DEFINED RECURSIVE (Echo %D% > "%CONVERTED_PATH%") ELSE (CD > "%CONVERTED_PATH%")
set Num2=%num%
Set /a Num2+=11
Title Auto Music Converter...
If exist "%LIST%" (
cls
color 2
echo+
If %Num2% GEQ 40 (
mode con cols=70 lines=44
for /f "tokens=*" %%a in ('Type "%CONVERTED_PATH%"') do (Title %num% archivos convertidos. "%%a")
FART.exe -q "%LIST%" \" --remove
REM "
sort "%LIST%" | MORE /E /C
) ELSE (
mode con cols=70 lines=%num2%
Echo+
Colous writesec "[7] Se han convertido [10]%num%[7] archivo(s)..."
Echo+
for /f "tokens=*" %%a in ('Type "%CONVERTED_PATH%"') do (Colous writesec "[8] %%a\")
Echo+
FART.exe -q "%LIST%" \" --remove
REM "
sort "%LIST%"
)
DEL /Q "%LIST%"           >nul 2>&1
DEL /Q "%CONVERTED_PATH%" >nul 2>&1
DEL /Q "%INDEX%"          >nul 2>&1
echo+
Colous writesec "[7] Presiona una tecla para salir del programa..."
IF /I NOT "%AUTOEND%" EQU "YES" (PAUSE & EXIT) ELSE (TIMEOUT /T 60)
) ELSE (
mode con lines=3 cols=65 | MORE
Colous writesec "[7] No se ha encontrado ningun audio superior a +%MAX_BITRATE% kbps."           & nircmd wait 500 & cls & echo+
Colous writesec "[7] No se ha encontrado ningun audio superior a +%MAX_BITRATE% kbps.  [8]3..."  & nircmd wait 500 & cls & echo+
Colous writesec "[7] No se ha encontrado ningun audio superior a +%MAX_BITRATE% kbps.  [8]2.."   & nircmd wait 500 & cls & echo+
Colous writesec "[7] No se ha encontrado ningun audio superior a +%MAX_BITRATE% kbps.  [8]1."    & nircmd wait 500 & cls & echo+
Colous writesec "[7] Bye.                                                    [8]0"     & nircmd wait 500
DEL /Q "%CONVERTED_PATH%" >nul 2>&1
DEL /Q "%INDEX%" >nul 2>&1
)

EXIT


Que lo disfruten!

Hola,

Los consejos que te proporcioné son para estabilizar un poco mejor el rendimiento de tu PC al visualizar videos debido al equipo que tienes... Creo que es lo único que puedes intentar, aparte de usar el programa CCleaner o parecidos, y administrar correctamente los servicios innecesarios de Windows...

Ah, y desinstálate el k-lite, yo después de mucho tiempo he llegado a la conclusión de que si usas un reproductor directshow solo necesitas instalar el "FFDSHOW tryout" y el "xvid" si quieres comprimir algún video con ese codec, pero el reproductor que tu usas ya lleva sus propios codecs y no va a usar los que instales con k-lite, es tontería tenerlo...

Saludos

Gracias por todas las aclaraciones aquí y por privado "el-maestro" !!

Otro tema resuelto, si quieren volverlo a cerrar... aquí ya está todo dicho (y avisado xD).

Un saludo

[click derecho sobre el video > mediainfo]

Hola,

Muchos datos, pero falta el más importante... las características del vídeo !!

¿En que formato están los videos (la extensión del archivo)? y ¿que codec usa la cam para grabar?

Instala el siguiente programa:
-> Mediainfo Lite 0.7.60 / Silent Install


y luego pincha "click derecho sobre el video > mediainfo" y nos copias esto:




Por el momento puedes probar a... :

1º - Elevar la prioridad de reproducción del MPC, en el administrador de tareas:



2º - Asegúrarte de estar usando la versión de 64 BIT del mediaplayerclassic.

3º - Olvidar la idea de un pack de codecs. Con el mediaplayerclassic no necesitas usar ningún pack...

4º - Cerrar los programas en segundo plano innecesarios que puedan ralentizar la reproducción del MPC (Reproducir un video es una de las tareas que más consume en un PC, si tienes muchos programas abiertos puedes notar esa lentitud debido a eso.)

5º - Abre el MPC-HC para optimizar las opciones de rendimiento:

Código [Seleccionar] Expandir

> Reproductor:
 [ ] Mostrar OSD
 [x] Mayor prioridad para el proceso

> Reproducción
 > Salida
   Video directshow > Enchanced video renderer
   Redimensión      > Bilinear
   Buffers de EVR   > 5

> Ajustes
 [x] Fast seek (on keyframe)
 [ ] Utilizar características de la barra de tareas de Windows 7

EDITO:
6º - Puedes probar si los videos puedes verlos correctamente con este MAGNIFICO reproductor:
-> UMPlayer 0.98 (64 Bit) / Silent Install


Saludos