[Ayuda] Mostrar lo que estoy escuchando en un Form

[sebah97]

Como dice el título, eh buscado, pero solamente dice para mostrar en el MSN lo que estoy haciendo yo, osea un ej:

Si Tengo el form1 habierto que en el msn diga "FOrmulario 1 Abierto" o algo asi xD.

Pero lo que quiero yo es en MI formulario mostrar lo que se está escuchando, x ejemplo con el Ares, winamp, etc

[xkiz ™]

perdon lei mal y postie cualkier cosa.
Seba borra esto si queres..

[Elemental Code]

busca info de las API Messenger

Tengo de casualidad la de ventana y la de enviar mensaje pero me juego la cabeza que hay codigo para todo.

Código (vb) [Seleccionar] Expandir

Public WithEvents msn As MessengerAPI.Messenger
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendNudge Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long



huy huy edito
me olvide de algo.
En referencias (proyecto --> Referencias) agrega la que dice "Messenger private type library" o algo asi.

Pero sieeempre preguntale a san google

[BlackZeroX]

.
Esta función es la que uso habitualmente!¡.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Type COPYDATASTRUCT
 dwData As Long
 cbData As Long
 lpData As Long
End Type

Private Const WM_COPYDATA = &H4A
Public Sub MSNMusic(ByRef r_sArtist As String, ByRef r_sAlbum As String, ByRef r_sTitle As String, Optional ByRef r_sWMContentID As String = vbNullString, Optional ByRef r_sFormat As String = "{0} - {1}", Optional ByRef r_bShow As Boolean = True)
  Dim udtData As COPYDATASTRUCT
  Dim sBuffer As String
  Dim hMSGRUI As Long
  sBuffer = "\0Music\0" & Abs(r_bShow) & "\0" & r_sFormat & "\0" & r_sArtist & "\0" & r_sTitle & "\0" & r_sAlbum & "\0" & r_sWMContentID & "\0" & vbNullChar
  udtData.dwData = &H547
  udtData.lpData = StrPtr(sBuffer)
  udtData.cbData = LenB(sBuffer)
  Do
      hMSGRUI = FindWindowEx(0&, hMSGRUI, "MsnMsgrUIManager", vbNullString)
      If (hMSGRUI > 0) Then
          Call SendMessage(hMSGRUI, WM_COPYDATA, 0, VarPtr(udtData))
      End If
  Loop Until (hMSGRUI = 0)
End Sub



Llamada con formato Pre

Código (vb) [Seleccionar] Expandir


   MSNMusic "Artista", "Album", "Titulo"


Llamada con formato Personalisado

Código (Vb) [Seleccionar] Expandir


   MSNMusic "Artista", "Album", "Titulo", , "{0} - {1} - {2}"


Dulces Lunas!¡.