Dudo que alguien con 800 mensajes sea así de lammer, para acabar baneado por una tontería, de todas formas yo lo he probado en un win8 virtual por si las moscas 

@OmarHack
En windows 8 x64 se instala, el lynx funciona, los comandos del beta mastershell no lo se, porque no los he encontrado.

PD: si pones "cmd" en el mastershell se ejecuta la cmd y finaliza el mastershell, quizás quieras evitarlo.

saludos

He extendido y mejorado la función para buscar texto en la colección de Items de un listview:

PD: la versión antigua la pueden encontrar aquí: http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html;msg1865639#msg1865639

#Region " [ListView] Find ListView Text "

    ' [ListView] Find ListView Text Function
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Find_ListView_Text(ListView1, "Test"))
    ' MsgBox(Find_ListView_Text(ListView1, "Test", 2, True, True))
    ' If Find_ListView_Text(ListView1, "Test") Then...

    Private Function Find_ListView_Text(ByVal ListView As ListView, _
                                        ByVal SearchString As String, _
                                        Optional ByVal ColumnIndex As Int32 = Nothing, _
                                        Optional ByVal MatchFullText As Boolean = True, _
                                        Optional ByVal IgnoreCase As Boolean = True) As Boolean

        Dim ListViewColumnIndex As Int32 = ListView.Columns.Count - 1

        Select Case ColumnIndex

            Case Is < 0, Is > ListViewColumnIndex ' ColumnIndex is out of range

                Throw New Exception("ColumnIndex is out of range. " & vbNewLine & _
                                    "ColumnIndex Argument: " & ColumnIndex & vbNewLine & _
                                    "ColumnIndex ListView: " & ListViewColumnIndex)

            Case Nothing ' ColumnIndex is nothing

                If MatchFullText AndAlso IgnoreCase Then ' Match full text, All columns, IgnoreCase
                    For Each Item As ListViewItem In ListView.Items
                        For X As Int32 = 0 To ListViewColumnIndex
                            If Item.SubItems(X).Text.ToLower = SearchString.ToLower Then Return True
                        Next
                    Next
                ElseIf MatchFullText AndAlso Not IgnoreCase Then ' Match full text, All columns, CaseSensitive
                    For Each Item As ListViewItem In ListView.Items
                        For X As Int32 = 0 To ListViewColumnIndex
                            If Item.SubItems(X).Text = SearchString Then Return True
                        Next
                    Next
                ElseIf Not MatchFullText AndAlso IgnoreCase Then ' Match part of text, All columns, IgnoreCase
                    If ListView1.FindItemWithText(SearchString) IsNot Nothing Then _
                         Return True _
                    Else Return False
                ElseIf Not MatchFullText AndAlso Not IgnoreCase Then ' Match part of text, All columns, CaseSensitive
                    For Each Item As ListViewItem In ListView.Items
                        For X As Int32 = 0 To ListViewColumnIndex
                            If Item.SubItems(X).Text.Contains(SearchString) Then Return True
                        Next
                    Next
                End If

            Case Else ' ColumnIndex is other else

                If MatchFullText AndAlso IgnoreCase Then ' Match full text, ColumnIndex, IgnoreCase
                    For Each Item As ListViewItem In ListView.Items
                        If Item.SubItems(ColumnIndex).Text.ToLower = SearchString.ToLower Then Return True
                    Next
                ElseIf MatchFullText AndAlso Not IgnoreCase Then  ' Match full text, ColumnIndex, CaseSensitive
                    For Each Item As ListViewItem In ListView.Items
                        If Item.SubItems(ColumnIndex).Text = SearchString Then Return True
                    Next
                ElseIf Not MatchFullText AndAlso IgnoreCase Then ' Match part of text, ColumnIndex, IgnoreCase
                    For Each Item As ListViewItem In ListView.Items
                        If Item.SubItems(ColumnIndex).Text.ToLower.Contains(SearchString.ToLower) Then Return True
                    Next
                ElseIf Not MatchFullText AndAlso Not IgnoreCase Then ' Match part of text, ColumnIndex, CaseSensitive
                    For Each Item As ListViewItem In ListView.Items
                        If Item.SubItems(ColumnIndex).Text.Contains(SearchString) Then Return True
                    Next
                End If

        End Select

        Return False

    End Function

#End Region


EDITO:

Vuelto a mejorar:

(El anterior no medía la cantidad de subitems de cada item, por ejemplo en un listview con 3 columnas, un item con dos subitems y otro item con 3 subitems entonces daba error porque el primer item no tenia un tercer subitem)

#Region " [ListView] Find ListView Text "
 
    ' [ListView] Find ListView Text Function
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Find_ListView_Text(ListView1, "Test"))
    ' MsgBox(Find_ListView_Text(ListView1, "Test", 2, True, True))
    ' If Find_ListView_Text(ListView1, "Test") Then...
 
    Private Function Find_ListView_Text(ByVal ListView As ListView, _
                                        ByVal SearchString As String, _
                                        Optional ByVal ColumnIndex As Int32 = Nothing, _
                                        Optional ByVal MatchFullText As Boolean = True, _
                                        Optional ByVal IgnoreCase As Boolean = True) As Boolean
 
        Select Case ColumnIndex
 
            Case Is < 0, Is > ListView.Columns.Count - 1 ' ColumnIndex is out of range
 
                Throw New Exception("ColumnIndex is out of range. " & vbNewLine & _
                                    "ColumnIndex Argument: " & ColumnIndex & vbNewLine & _
                                    "ColumnIndex ListView: " & ListView.Columns.Count - 1)
 
            Case Nothing ' ColumnIndex is nothing
 
                If MatchFullText Then ' Match full text in all columns
 
                    For Each Item As ListViewItem In ListView.Items
                        For X As Int32 = 0 To Item.SubItems.Count - 1
                            If String.Compare(Item.SubItems(X).Text, SearchString, IgnoreCase) = 0 Then
                                Return True
                            End If
                        Next
                    Next
 
                ElseIf Not MatchFullText Then ' Match part of text in all columns
 
                    Select Case IgnoreCase
                        Case True ' IgnoreCase
                            If ListView1.FindItemWithText(SearchString) IsNot Nothing Then
                                Return True
                            End If
                        Case False ' CaseSensitive
                            For Each Item As ListViewItem In ListView.Items
                                For X As Int32 = 0 To Item.SubItems.Count - 1
                                    If Item.SubItems(X).Text.Contains(SearchString) Then Return True
                                Next
                            Next
                    End Select
 
                End If
 
            Case Else ' ColumnIndex is other else
 
                If MatchFullText Then ' Match full text in ColumnIndex
 
                    For Each Item As ListViewItem In ListView.Items
                        If String.Compare(Item.SubItems(ColumnIndex).Text, SearchString, IgnoreCase) = 0 Then
                            Return True
                        End If
                    Next
 
                ElseIf Not MatchFullText Then ' Match part of text in ColumnIndex
 
                    For Each Item As ListViewItem In ListView.Items
                        Select Case IgnoreCase
                            Case True ' IgnoreCase
                                If Item.SubItems(ColumnIndex).Text.ToLower.Contains(SearchString.ToLower) Then
                                    Return True
                                End If
                            Case False ' CaseSensitive
                                If Item.SubItems(ColumnIndex).Text.Contains(SearchString) Then
                                    Return True
                                End If
                        End Select
                    Next
 
                End If
 
        End Select
 
        Return False ' Any matches
 
    End Function
 
#End Region

No entendí eso, ¿Cual es el problema?

Un textbox es un textbox, no es un control para mostrar imágenes, quiero decir que no te preocupes, la forma de hacerlo es como lo estás haciendo, usando un picturebox. o creando un usercontrol de un TextBox para poner tu imagen xD, pero eso mejor no lo intentes (todavía) es dificil.

EDITO: Bueno, o puedes dibujar un gráfico usando GDI

Saludos

Ya no lo necesito, pero gracias!

Ninguno de lo que me has mostrado me convence, creo que seguiré usando los de WinAmp, se adaptan bien a los cambios:


Saludos

...Al final he extraido los iconos del exe del reproductor WinAmp, y no están muy mal:



Aunque no me gustan mucho, sigo esperando a ver si alguien se anima a compartir...

Saludos.

Acabo de descubrir que para enviar un "scroll up/scroll down" se hace con la función SendInput: http://msdn.microsoft.com/en-us/library/windows/desktop/ms646310%28v=vs.85%29.aspx

Public Class Form1
 
    Public Structure Point
        Public X As Integer
        Public Y As Integer
    End Structure
 
    Public Structure Msllhookstruct
        Public Location As Point
        Public MouseData As Integer
        Public Flags As Integer
        Public Time As Integer
        Public ExtraInfo As Integer
    End Structure
 
    Private Delegate Function HookProc(nCode As Integer, wParam As Integer, ByRef lParam As Msllhookstruct) As Integer
 
 
    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function SetWindowsHookEx(ByVal hookType As Integer, ByVal lpfn As HookProc, ByVal hMod As IntPtr, ByVal dwThreadId As UInteger) As IntPtr
    End Function
 
    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As Msllhookstruct) As IntPtr
    End Function
 
    Public Hook As IntPtr
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Hook = SetWindowsHookEx(14, AddressOf Proc, Process.GetCurrentProcess().MainModule.BaseAddress.ToInt32(), 0)
    End Sub
 
    Private Function Proc(nCode As Integer, wParam As Integer, ByRef lParam As Msllhookstruct) As IntPtr
        If wParam = 522 Then
            Dim Delta = CShort(lParam.MouseData >> 16)
 
            If Delta > 0 Then
                ' Up
                MsgBox("Up")
            ElseIf Delta < 0 Then
                ' Down
                MsgBox("Down")
            End If
        End If
 
        Return CallNextHookEx(Hook, nCode, wParam, lParam)
    End Function
 
End Class

Necesito los típicos botones de Play, Pause, Stop, Previous y Next, preferíblemente de estilo mínimal.

El problema de buscar estos iconos en google images es que te pueden salir resultados muy variados, por ejemplo un icono azul y otro rosa... ya me entienden.

Sé como encontrar este tipo de recursos de manera más eficaz... pero antes de ponerme a revisar las infinitas páginas de DeviantArt y otros sitios pues... me gustaría saber si alguien ha hecho algún proyecto relacionado a reproductores de video/audio y si quiere compartir el pack de iconos que usó en su reproductor...
 
Gracias.

Por si no lo entienden, aquí irian los iconos de los botonoes:



Saludos.

EDITO:

Pfff... La verdad es que todos los sets de iconos que encuentro son de pago... y en deviantart y findicons no encuentro nada parecido.

Busco algo más o menos como esto:

Una Class para controlar WinAmp: http://pastebin.com/4yC91AnD
También está disponible compilada en un dll: http://sourceforge.net/projects/wacc/

PD: Funciona en las versiones 5.X

Ejemplos de uso (Aparte de los oficiales):

#Region " Examples "
 
' // By Elektro H@cker
'
' INSTRUCTIONS:
'
' 1. Add a reference for "WACC.DLL"
 
Public Class Form1
 
    Dim Winamp As WACC.clsWACC = New WACC.clsWACC
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        ' // Bind the WinAmp process to the variable object
        Winamp.Bind()
 
        ' // Get WinAmp process PID
        ' Winamp.ProcessID()
 
        ' // Close WinAmp
        ' Winamp.CloseWinamp()
 
        ' // Restart WinAmp
        ' Winamp.RestartWinamp()
 
        ' // Open new instance of WinAmp
        ' Winamp.OpenNewInstance()
 
        ' // Play playback
        ' Winamp.Playback.Play()
 
        ' // Pause playback
        ' Winamp.Playback.PauseUnpause()
 
        ' // Stop playback
        ' Winamp.Playback.Stop()
 
        ' // Junp to previous track
        ' Winamp.Playlist.JumpToPreviousTrack()
 
        ' // Junp to next track
        ' Winamp.Playlist.JumpToNextTrack()
 
        ' // Rewind 5 seconds of the current song
        ' Winamp.Playback.Rewind5s()
 
        ' // Forward 5 seconds of the current song
        ' Winamp.Playback.Forward5s()
 
        ' // Get Track Length
        ' Winamp.Playback.GetTrackLength * 1000 '(ms)
 
        ' // Set Track Position
        ' Winamp.Playback.TrackPosition = 60000 ' (ms)
 
        ' // Get WinAmp state
        ' MsgBox(Winamp.Playback.PlaybackState().ToString)
        ' If Winamp.Playback.PlaybackState = clsWACC.cPlayback.Playback_State.Playing Then : End If
 
        ' // Set volume
        ' Winamp.AudioControls.Volume = Math.Round(50 / (100 / 255))
 
        ' // Volume up
        ' Winamp.AudioControls.VolumeUp()
 
        ' // Volume down
        ' Winamp.AudioControls.VolumeDown()
 
        ' // Get current track BitRate
        ' MsgBox(Winamp.Playback.Bitrate.ToString & " kbps")
 
        ' // Get current track SampleRate
        ' MsgBox(Winamp.Playback.SampleRate.ToString & " kHz")
 
        ' // Get current track channels
        ' MsgBox(Winamp.Playback.Channels.ToString & " channels")
 
        ' // Clear playlist
        ' Winamp.Playlist.Clear()
 
        ' // Remove missing files in playlist
        ' Winamp.Playlist.RemoveMissingFiles()
 
        ' // Enable/Disable Shuffle
        ' Winamp.Playback.ShuffleEnabled = True
 
        ' // Enable/Disable Repeat
        ' Winamp.Playback.RepeatEnabled = True
 
        ' // Set WinAmp OnTop
        ' Winamp.Options.AlwaysOnTop = True
 
    End Sub
 
End Class
 
#End Region

Un AppActivate más sencillo de usar que el default, se puede usar especificando el nombre del proceso.

PD: Sirve para activar (darle Focus) a un proceso externo.

    #Region " App Activate "
 
    ' [ App Activate ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' App_Activate("cmd")
    ' App_Activate("cmd.exe")
    ' If App_Activate("cmd") Then...
 
    Private Function App_Activate(ByVal ProcessName As String) As Boolean
        If ProcessName.ToLower.EndsWith(".exe") Then ProcessName = ProcessName.Substring(0, ProcessName.Length - 4)
        Dim ProcessArray = Process.GetProcessesByName(ProcessName)
        If ProcessArray.Length = 0 Then
            Return False
        Else
            AppActivate(ProcessArray(0).Id)
            Return True
            End If
    End Function
 
    #End Region

Estamos en .NET, no en scripting ...¿No?.

No es mi trabajo decirte esto pero podrías mandar un privado a uno de los moderadores de esta sección para que te resuelva ese tipo de preguntas, en lugar de volver a spamear este post con preguntas que tienen respuestas obvias... poder puedes postearlo si compensas posteando la parte de .NET, creo que NovLucker pensará igual, somos comprensivos (nos da un poco igual que lo hagas xD), ahora, muy correcto no es hacer eso ...tu mismo.

Saludos...