Obtener en WinAmp el título o la ruta del archivo de la canción actual.

PD: Son códigos de VB6 que convertí a .NET (no todo...) con algo de ayuda.

#Region " WinAmp Info"
 
' [ WinAmp Info ]
'
' // By Elektro H@cker
'
' Examples:
' MsgBox(WinAmp.Get_Title)    ' Result: Artist - Title
' MsgBox(WinAmp.Get_FileName) ' Result: C:\Title.ext
 
Public Class WinAmp
 
    Private Const WinampClassName As String = "Winamp v1.x"
 
    Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Auto Function GetWindowText Lib "user32" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Integer) As Integer
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, ByRef lpdwProcessId As Long) As Long
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Byte, ByVal nSize As Long, ByRef lpNumberOfBytesRead As Long) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
    Public Shared Function Get_Title() As String
 
        Dim hwnd As IntPtr = FindWindow(WinampClassName, vbNullString)
 
        Dim lpText As String = String.Empty
        Dim strTitle As String = String.Empty
 
        Dim intLength As Integer = 0
        Dim intName As Integer = 0
        Dim intLeft As Integer = 0
        Dim intRight As Integer = 0
        Dim intDot As Integer = 0
 
        If hwnd.Equals(IntPtr.Zero) Then Return "WinAmp is not running"
 
        lpText = New String(Chr(0), 100)
        intLength = GetWindowText(hwnd, lpText, lpText.Length)
 
        If (intLength <= 0) _
        OrElse (intLength > lpText.Length) _
        Then Return "Unknown"
 
        strTitle = lpText.Substring(0, intLength)
        intName = strTitle.IndexOf(" - Winamp")
        intLeft = strTitle.IndexOf("[")
        intRight = strTitle.IndexOf("]")
 
        If (intName >= 0) _
        AndAlso (intLeft >= 0) _
        AndAlso (intName < intLeft) _
        AndAlso (intRight >= 0) _
        AndAlso (intLeft + 1 < intRight) _
        Then Return strTitle.Substring(intLeft + 1, intRight - intLeft - 1)
 
        If (strTitle.EndsWith(" - Winamp")) _
        AndAlso (strTitle.Length > " - Winamp".Length) _
        Then strTitle = strTitle.Substring(0, strTitle.Length - " - Winamp".Length)
 
        intDot = strTitle.IndexOf(".")
 
        If (intDot > 0) _
        AndAlso (IsNumeric(strTitle.Substring(0, intDot))) _
        Then strTitle = strTitle.Remove(0, intDot + 1)
 
        Return strTitle.Trim
 
    End Function
 
    Public Shared Function Get_FileName() As String
 
        Dim lp As Long, lpWinamp As Long, iIndex As Long, PID As Long, bRet As Long, dwRead As Long
        Dim Buffer(260) As Byte
 
        Dim hWndWinamp As IntPtr = FindWindow(WinampClassName, vbNullString)
        If hWndWinamp = 0 Then Return Nothing
 
        iIndex = SendMessage(hWndWinamp, &H400, 0, 125)
 
        lp = SendMessage(hWndWinamp, &H400, iIndex, 211)
        If lp = 0 Then Return Nothing
 
        Call GetWindowThreadProcessId(hWndWinamp, PID)
 
        lpWinamp = OpenProcess(&H10, 0, PID)
        If lpWinamp = 0 Then Return Nothing
 
        bRet = ReadProcessMemory(lpWinamp, lp, Buffer(0), 260, dwRead)
 
        Call CloseHandle(lpWinamp)
 
        Return System.Text.UnicodeEncoding.Default.GetString(Buffer)
 
    End Function
 
End Class
 
#End Region

Pues prueba a poner un breakpoint o un msgbox para comprobar el valor "deel" antes de modificar el width... por cierto en el code modificas dos veces el width...

saludos

Eso ya lo leí, te pregunto si salta alguna excepción, ya que en esa línea no "cargas" los controles, solo modificas su tamaño, por eos me parece extraño que afirmes que el error está en esa linea.

saludos!

Lo siento, ya me entendiste, pero... ¿Cual era la palabra correcta pues? xD

Un saludo!

Detalles del error, etc?

saludos

Espero que por "gente bien intencionada" no tengamos que pensar en políticos, porque en ese caso. . . . . .



Solución rápida para la crisis:

1. Eliminar de cuajo la moneda de cambio (Por consiguiente esto destruiría monopolios, bancos, trafico de droga y de personas, en fín todo lo que se mueve con y por el dinero).
2. Vivir la vida en paz y armonía, sin crisis.



¿Solución que no joda a las personas que matarían por un poco de dinero para dominar el mundo?:

1. Ninguna.

Saludos!

Ese archivo está limpio según el análisis de Anubis, solo toca archivos del .NET Framework los cuales son necesarios para correr la aplicación porque está desarrollada en .NET.

¿Pero lo que has subido y analizado es el crack, o es el archivo que parchea el crack?, lo digo porque ese archivo es un exe de un servicio, no un crack/patch :-/.

¿Lo que te marca como sospechoso el antivirus es el crack, o ese exe del servicio? xD, bueno, en caso de ser lo segundo ...está limpio.

Saludos!

Sin duda alguna opino que tu siguiente paso debe ser VB.NET, de esta forma aprenderás un lenguaje mucho más "potente" y el cual te será más sencillo de aprender porque la sintaxis de VB.NET deriva de VB.

Pero si no te importa el hecho de tener que aprender un lenguaje en si mismo desde cero pues... te diría también que VB.NET! xD ...o C#, o Java, aunque no soy quien para opinar mucho sobre estos dos últimos lenguajes.

Saludos!

@Binary_Death
Tienes razón, pero yo no entraré mucho a comentar sobre el Universo en si mismo, porque si me pongo a hablar de eso... creo que empalmaría toda la noche aquí sentado xD.

(A partir de aquí no es necesario que sigas leyendo, porque no va especiálmente dirigido a tí)

Estoy más preparado para asumir que quizás y sólamente quizás todos nosotros seamos simple matería a una escala gigantesca, la simple matería de energía que se forma y se libera por ejemplo colisionando en un choque de fotones como los millones de estos fotones que colapsan en el Gran Colisionador de Hadrones (LHC) cada día, ¿Quien sabe?.

Creemos saber cual es nuestra escala a nivel Universal, pero no a un nivel Extra-Universal (Si existiera algo más hallá del universo),
Nosotros nos creemos consideráblemente grandes, los humanos tendemos a dar por hecho las cosas, y a errar, pero lo cierto es que quizás el Universo podría caber en una canica, sabemos cuan grande es el Universo VISTO DESDE NUESTROS OJOS, pero no sabemos como de grande es el Universo y por consecuencia como lo somos nosotros vistos "por un niño" desde fuera del Universo, quizás podriamos ser simple energía de una partícula tán pequeña como un fotón, "bacterias" diminutas por así llamarlo, y quizás todavia "nadie" sabe que existimos por lo pequeños que somos reálmente.

(Esa es mi teoría favorita)

O quizás reálmente si que somos píxeles como comentaste en plan chorra, podríamos ser los píxeles creados por una simulación informática avanzada a una escala tán gigantesca que ni con el mejor de los microscopios podemos llegar a ver las cosas en su forma pixelada (todavía), quizás sólamente somos una especie de imágen de un par de millones de mbps, quizás somos Sims!.

...La de veces que habré soñado tener una charla de estas con Hawkings .

---

Que cada uno crea lo que quiera, pero es mucho mejor agarrarse a una persona amada en momentos de debilidad (como una novia, una esposa, o una madre), que a un Dios inutil que en el supuesto caso de existir es un egoista por no dar ninguna señal de vida en milenios,
Igual que es mucho mejor pedir perdón y asumir las consecuencias a quien creas haberle hecho daño, que no hacerlo y "asumir" que existe un lugar llamado Infierno en el que sufrirás toda la eternidad después de morir ...ja!

...¿Sabian que los Chinos ""tienen"" 7 o 20 infiernos?, como hay tanta población China imagino que hay overbooking de almas. (Me provoca risa como adaptan la religion a cada cultura...)

Ya me callo, de verdad, no sea que se piense en cerrar este post por mi culpa!

...Pero no puedo evitarlo, porque odio las mentiras que nos han intentado inculcar, y yo "rezo" para que en algún momento de nuestra existencia, y aunque yo no pueda presenciar ese momento, la humanidad abra los ojos y se de cuenta de esta gran mentira de la lucha entre Dios y el Diablo y que se desmienta por fín su existencia, y así, ese día, ese día será el nuevo comienzo de una nueva era donde la Tierra (o donde coñ* viva la gente dentro de unos siglos xD) será un lugar mejor para vivir, con los mismos temores e ilusiones que hemos tenido siempre, pero sin más temores e ilusiones adicionales e innecesarias como lo son Dios y el Diablo, el Cielo y el Infierno, los curas ...y la Iglesia.

Un saludo!