Elimina el contenido del portapapeles:

Private Sub Delete_Clipboard()
     Clipboard.SetText(vbCr)
End Sub

---

Devuelve el color de un pixel en varios formatos:

CORREGIDO, si el valor era 0, el formato Hexadecimal devolvía un 0 de menos.

#Region " Get Pixel Color "
 
    ' [ Get Pixel Color Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Dim RGB As Color = Get_Pixel_Color(MousePosition.X, MousePosition.Y, ColorType.RGB)
    ' MsgBox(Get_Pixel_Color(100, 100, ColorType.RGB).ToString)
    ' MsgBox(Get_Pixel_Color(100, 100, ColorType.HEX))
    ' MsgBox(Get_Pixel_Color(100, 100, ColorType.HTML))
 
    <System.Runtime.InteropServices.DllImport("user32.dll")> Shared Function GetDC(hwnd As IntPtr) As IntPtr
    End Function
 
    <System.Runtime.InteropServices.DllImport("user32.dll")> Shared Function ReleaseDC(hwnd As IntPtr, hdc As IntPtr) As Int32
    End Function
 
    <System.Runtime.InteropServices.DllImport("gdi32.dll")> Shared Function GetPixel(hdc As IntPtr, nXPos As Integer, nYPos As Integer) As UInteger
    End Function
 
    Public Enum ColorType
        RGB
        HEX
        HTML
    End Enum
 
    Public Function Get_Pixel_Color(ByVal x As Int32, ByVal y As Int32, ByVal ColorType As ColorType)
 
        Dim hdc As IntPtr = GetDC(IntPtr.Zero)
        Dim pixel As UInteger = GetPixel(hdc, x, y)
        ReleaseDC(IntPtr.Zero, hdc)
 
        Dim RGB As Color = Color.FromArgb(CType((pixel And &HFF), Integer), CType((pixel And &HFF00), Integer) >> 8, CType((pixel And &HFF0000), Integer) >> 16)
        Dim R As Int16 = RGB.R, G As Int16 = RGB.G, B As Int16 = RGB.B
        Dim HEX_R As String, HEX_G As String, HEX_B As String
 
        Select Case ColorType
            Case ColorType.RGB : Return RGB
            Case ColorType.HEX
                If Hex(R) = Hex(0) Then HEX_R = "00" Else HEX_R = Hex(R)
                If Hex(G) = Hex(0) Then HEX_G = "00" Else HEX_G = Hex(G)
                If Hex(B) = Hex(0) Then HEX_B = "00" Else HEX_B = Hex(B)
                Return (HEX_R & HEX_G & HEX_B)
            Case ColorType.HTML : Return ColorTranslator.ToHtml(RGB)
            Case Else : Return Nothing
        End Select
 
    End Function
 
#End Region

---

Crear un archivo comprimido autoextraible (SFX) con la librería SevenZipSharp:

#Region " SevenZipSharp Compress SFX "
 
    ' [ SevenZipSharp Compress SFX Function ]
    '
    ' // By Elektro H@cker
    '
    ' Instructions :
    ' 1. Add a reference to "SevenZipSharp.dll".
    ' 2. Add the "7z.dll" or "7z64.dll" files to the project.
    ' 3. Add the "7z.sfx" and "7zCon.sfx" files to the project.
    ' 4. Use the code below.
    '
    ' Examples :
    ' SevenZipSharp_Compress_SFX("C:\File.txt")                           ' File will be compressed in the same dir.
    ' SevenZipSharp_Compress_SFX("C:\File.txt", "C:\Compressed\File.exe") ' File will be compressed in "C:\Compressed\".
    ' SevenZipSharp_Compress_SFX("C:\Folder\", , , , , , , "Password")    ' Folder will be compressed with the given password.
    ' SevenZipSharp_Compress_SFX("C:\File.txt", , SevenZipSharp_SFX_Module.Console, CompressionLevel.Fast)
 
    ' Imports SevenZip
    ' Dim dll As String = "7z.dll"
 
    Public Enum SevenZipSharp_SFX_Module
        Normal
        Console
    End Enum
 
    Private Function SevenZipSharp_Compress_SFX(ByVal Input_DirOrFile As String, _
                                       Optional ByVal OutputFileName As String = Nothing, _
                                       Optional ByVal SFX_Module As SevenZipSharp_SFX_Module = SevenZipSharp_SFX_Module.Normal, _
                                       Optional ByVal CompressionLevel As CompressionLevel = CompressionLevel.Normal, _
                                       Optional ByVal Password As String = Nothing) As Boolean
        ' Create the .7z file
        Try
            ' Set library path
            SevenZipCompressor.SetLibraryPath(dll)
 
            ' Create compressor
            Dim Compressor As SevenZipCompressor = New SevenZipCompressor()
 
            ' Set compression parameters
            Compressor.CompressionLevel = CompressionLevel ' Archiving compression level.
            Compressor.CompressionMethod = CompressionMethod.Lzma ' Compression Method 
            Compressor.ArchiveFormat = OutArchiveFormat.SevenZip ' Compression file format
            Compressor.CompressionMode = CompressionMode.Create ' Append files to compressed file or overwrite the compressed file.
            Compressor.DirectoryStructure = True ' Preserve the directory structure.
            Compressor.IncludeEmptyDirectories = True ' Include empty directories to archives.
            Compressor.ScanOnlyWritable = False ' Compress files only open for writing.
            Compressor.EncryptHeaders = False ' Encrypt 7-Zip archive headers
            Compressor.TempFolderPath = System.IO.Path.GetTempPath() ' Temporary folder path
            Compressor.FastCompression = False ' Compress as fast as possible, without calling events.
            Compressor.PreserveDirectoryRoot = True ' Preserve the directory root for CompressDirectory.
            Compressor.ZipEncryptionMethod = ZipEncryptionMethod.ZipCrypto ' Encryption method for zip archives.
            Compressor.DefaultItemName = "File.7z" ' Item name used when an item to be compressed has no name, for example, when you compress a MemoryStream instance
 
            ' Add Progress Handler
            ' AddHandler Compressor.Compressing, AddressOf SevenZipSharp_Compress_Progress
 
            ' Removes the end slash ("\") if given for a directory
            If Input_DirOrFile.EndsWith("\") Then Input_DirOrFile = Input_DirOrFile.Substring(0, Input_DirOrFile.Length - 1)
 
            ' Generate the OutputFileName if any is given.
            If OutputFileName Is Nothing Then
                OutputFileName = (My.Computer.FileSystem.GetFileInfo(Input_DirOrFile).DirectoryName & "\" & (Input_DirOrFile.Split("\").Last) & ".tmp").Replace("\\", "\")
            Else
                OutputFileName = OutputFileName & ".tmp"
            End If
 
            ' Check if given argument is Dir or File ...then start the compression
            If IO.Directory.Exists(Input_DirOrFile) Then ' Is a Dir
                If Not Password Is Nothing Then
                    Compressor.CompressDirectory(Input_DirOrFile, OutputFileName, True, Password)
                Else
                    Compressor.CompressDirectory(Input_DirOrFile, OutputFileName, True)
                End If
            ElseIf IO.File.Exists(Input_DirOrFile) Then ' Is a File
                If Not Password Is Nothing Then
                    Compressor.CompressFilesEncrypted(OutputFileName, Password, Input_DirOrFile)
                Else
                    Compressor.CompressFiles(OutputFileName, Input_DirOrFile)
                End If
            End If
 
            ' Create the SFX file
            ' Create the SFX compressor
            Dim compressorSFX As SevenZipSfx = New SevenZipSfx(SfxModule.Default)
            ' Set SFX Module path
            If SFX_Module = SevenZipSharp_SFX_Module.Normal Then
                compressorSFX.ModuleFileName = ".\7z.sfx"
            ElseIf SFX_Module = SevenZipSharp_SFX_Module.Console Then
                compressorSFX.ModuleFileName = ".\7zCon.sfx"
            End If
            ' Start the compression
            ' Generate the OutputFileName if any is given.
            Dim SFXOutputFileName As String
            If OutputFileName.ToLower.EndsWith(".exe.tmp") Then
                SFXOutputFileName = OutputFileName.Substring(0, OutputFileName.Length - 4)
            Else
                SFXOutputFileName = OutputFileName.Substring(0, OutputFileName.Length - 4) & ".exe"
            End If
 
            compressorSFX.MakeSfx(OutputFileName, SFXOutputFileName)
            ' Delete the 7z tmp file
            Try : IO.File.Delete(OutputFileName) : Catch : End Try
 
        Catch ex As Exception
            'Return False ' File not compressed
            Throw New Exception(ex.Message)
        End Try
 
        Return True ' File compressed
 
    End Function
 
    ' Public Sub SevenZipSharp_Compress_SFX_Progress(ByVal sender As Object, ByVal e As ProgressEventArgs)
    '     MsgBox("Percent compressed: " & e.PercentDone)
    ' End Sub
 
#End Region

@Heisenberg_w0rms
Normal que no encuentre el archivo, estás añadiendo los argumentos al nombre de la ruta, los argumentos de la aplicación van separados, a la derecha, no los juntes.

Process.start(Proceso.exe, Argumentos);

Process.start(@dirconversor + "ebook-convert.exe", "prueba.pdf prueba.txt");

http://msdn.microsoft.com/en-us/library/system.diagnostics.process.start%28v=vs.71%29.aspx

Saludos

OMG que desastre de WindowsUpdate xD

A pesar de las indicaciones que te da Songoku y de las indicaciones de tu último comentario... nada de eso te va a servir.

Si dices que el archivo "wucltux.dll.mui" y la dll no se pudieron arreglar y por consiguiente se han eliminado o ha quedado corruptas entonces el error está más que claro, se te han jodido las tablas de idioma.

Este es un recurso de la DLL, que aparece en tu primera imagen:
No puede encontrarla en el archivo MUI.

La solución debería ser tán sencilla como reemplazar los archivos "rotos" por unos funcionales,
¿Y como se hace eso?, pues fácil, te descargas el VirtualBox, instalas TU MISMA VERSION DE WINDOWS, y desde allí te copias los archivos funcionales y los pasas a tu Windows:

wucltux.dll en "C:\windows\system32"
y wucltux.dll.mui en "C:\Windows\system32\Es-es"

Aquí te dejo los de la versión Windows 7 x86 y en inglés, las he sacado de mi VirtualBox, si no te funciona te deberás descargar el Win7 español porque necesitarás el MUI español.
http://www.mediafire.com/?j057kvir3atb58i
El archivo wucltux.dll.mui en "C:\Windows\system32\En-us"

Saludos.

Hombre... "un buen a 1000" no existe teniendo en cuenta la resolución del video 1080p jamás te quedará decente a menos que séa para visualizar el video en dispositivos portátiles, primero que nada hay que tener en cuenta que el bitrate no es el único parámetro que influye en la calidad final del rip, pero volver a codificar un vídeo de 10.000/5.000 a 1.000 de bitrate va a ser una completa catástrofe, va a quedar muy muy pixelado, va a quedar muy mal en general.

Lo segundo que hay que tener en cuenta es que siempre deberías usar uno de los presets por defecto de los programadores de X264 (presets: slow, slower o veryslow), el modo placebo es una locura y no se nota casi la diferencia entre el modo "veryslow" y "placebo", y el modo "placebo" tarda casi un día entero incluso en mi PC, que es de 8 núcleos. Y si en el programa que usas no están disponibles los presets por defecto del X264 diréctamento te aconsejo que busques otro software que disponga de ellos.

Y lo tercero que hay que tener en cuenta es que hay que saber como han codificado el vídeo original, con el programa mediainfo Lite puedes ver la información del vídeo, para ver el bitrate original, y si han usado algún preset por defecto del X264, etc...

Yo te diría que si no se trata de un video de animación lo re-convirtieras entre 2500-4000 de bitrate, pero como mínimo 2500-3000, cortándole los bordes si el video tuviera, pero sin redimensionar el tamaño original del vídeo (siempre que el aspect ratio original séa correcto, Ejemplo: 1920x1080p), y usando uno de los presets que dije (slower o veryslow) dependiendo del tiempo del que dispongas y si te importa sacrificar un poco de calidad para ganar tiempo... eso ya es según tu gusto, pero aparte del bitrate eso es lo que más va a influir aparte de la resolución, así que yo te diría que por mucho que tardase en reconvertirse en tu PC uses el preset "slower" o "veryslow", a mi me tarda un par de horas un vídeo de 60 min el slower, y unas 4-5 horas el "veryslow".

Imagino que la pista de audio del video podría estar en formato DTS o AC3, así que quizás te convendría re-convertirla a MP3 de 128 kbps CBR para ahorrar mucho, mucho peso, y prácticamente con muy poca pérdida de calidad, el formato AAC se usa mucho pero es una *****, yo no te lo recomiendo porque es un formato privado y no se ha exprimido su potencial todavía como el MP3, y a la hora de querer reconvertir la pista AAC a otro formato primero hay que esperar que el programa soporte dicho formato privado, y segundo te puede dar problemas de sincronización u otras cosas.

Saludos.

 

DESCRIPCIÓN:

Color.NET es una mini aplicación sencilla y de fácil manejo para copiar el valor de un color de un pixel en formato RGB o HEX o HTML.

Se puede copiar el valor seleccionado usando CONTROL+C.

Se puede abrir un magnificador de imagen con zoom adaptable.

Se puede abrir un mezclador de colores.

Y tiene una opción para ahorrar esos segundos de más copiando el valor usando la sintaxis de VB.NET, al usar CONTROL+C.

PD: He tomado como referencia la aplicación "Pixie".


IMÁGENES:

   




DEMOSTRACIÓN:




SOURCE:

http://www.mediafire.com/download/7qu4rpnhrruby6g/Color.NET.rar
Incluye el source, versión protable y versión instalable.

Hola.

Has leido lo que pone en el enlace que has puesto del MSDN, verdad?

usa la propiedad para obtener el código de error, y encuentra la cause del error aquí: http://msdn.microsoft.com/en-us/library/cc231199.aspx

Espero que sirva de algo.

Saludos!

Si lo que necesitas es que al reproducir una película (u otro video) el nivel de volumen se ajuste automáticamente no tienes que editar nada, puedes instalar el FFDShow que lleva un nivelador de volumen, aunque para eso tienes que configurar para reproducir los vídeos usando FFDSHOW en tu reproductor.

O si ves las películas en la TV también puedes regularlo en las opciones de la TV (Si no es una ***** de TV).

Aunque todo lo que acabo de comentar es para disminuir el volumen en los efectos especiales (explosiones, cuando gritan, cuando hay musica, etc) y aumentar el volumen cuando "hay voces",
pero eso de querer disminuir el volumen cuando hablan jamás lo habia oido, quieres todo lo contrario jeje...

---

Seleccionas el rango de audio, y pinchas en "proceso > Volumen".

Esa es la opción sencilla, ahora, que si quieres hacerlo reálmente bien te debes instalar el Sony Noise Reduction Plugin y te saldrán unas opciones especiales "reducción de ruido, restaurar audio, etc...", ahora, fácil no es, debes buscar el algoritmo adecuado según los tonos agudos/graves de la pista de audio, vas a tener que hacer muchos intentos para dejarlo "perfecto", y lo mejor ni así lo consigues dejar a tu gusto.

la class no está obsoleta, solo que no debes crear una nueva instancia del objeto.
http://msdn.microsoft.com/en-us/library/system.net.httpwebrequest%28v=vs.110%29.aspx

Ahí puedes ver la información que quieres saber.

Mal:

Bien:

Espero que sirva de ayuda,
Saludos.

Podrías, pero no es del todo necesario...


saludos

Elimina el contenido del portapapeles

  Private Sub Delete_Clipboard()
         Clipboard.SetText(vbCr)
   End Sub

---

Añade un texto de ayuda (una "pista") a un control.

Ya posteé la manera de hacer esto usando API pero prefiero esta forma para tener control sobre el "forecolor" del teXto.

#Region " Set Control Hint "
 
    ' //By Elektro H@cker
 
    Dim TextBox_Hint As String = "Type your RegEx here..."
 
    ' TextBox1 [Enter/Leave]
    Private Sub TextBox1_Hint(sender As Object, e As EventArgs) Handles _
    TextBox1.Enter, _
    TextBox1.Leave
 
        If sender.Text = TextBox_Hint Then : sender.text = ""
        ElseIf sender.Text = "" Then : sender.text = TextBox_Hint
        End If
 
    End Sub
 
#End Region