I've tried this code in VS 2003 and 2005, and VB 2008. It doesn't work in any of them.

Source: http://forums.fanatic.net.nz/lofiversion/index.php/t11311.html

code:

---

Imports System.Runtime.InteropServices

Module mdlMain
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd As Integer, _
        ByVal hWndChild As Integer, ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Integer, ByVal wMsg As Integer, _
        ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Private Const WM_COPYDATA As Short = &H4AS

    Private Structure COPYDATASTRUCT
        Dim dwData As Long
        Dim cbData As Long
        Dim lpData As Long
    End Structure

    Public Function VarPtr(ByVal o As Object) As Integer
        Dim GC As System.Runtime.InteropServices.GCHandle = System.Runtime.InteropServices.GCHandle.Alloc(o, System.Runtime.InteropServices.GCHandleType.Pinned)
        Dim ret As Integer = GC.AddrOfPinnedObject.ToInt32

        GC.Free()
        Return ret
    End Function

    Public Sub SetMSNNowPlaying(ByVal sTitle As String, ByVal sArtist As String)
        Dim sOutput As String = "\0Music\01\0" + sTitle + " - " + sArtist + "\0\0\0\0\0" + vbNullChar
        Dim udtData As COPYDATASTRUCT
        Dim iMessengerHWnd As Long = 0

        udtData.dwData = &H547S
        udtData.lpData = VarPtr(sOutput)
        udtData.cbData = Len(sOutput) * 2

        Do
            iMessengerHWnd = FindWindowEx(0, iMessengerHWnd, "MsnMsgrUIManager", vbNullString)
            If iMessengerHWnd > 0 Then
                SendMessage(iMessengerHWnd, WM_COPYDATA, 0, VarPtr(udtData))
            End If
        Loop Until iMessengerHWnd = 0
    End Sub
End Module

---

On the same forum i see the answer (first i try to convert my own code but then i found it.. so i adapt to make it work)

code:

---

Public Class Form1

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Private Structure COPYDATASTRUCT
        Dim dwData As Integer
        Dim cbData As Integer
        Dim lpData As Integer
    End Structure

    Private Const WM_COPYDATA As Short = &H4AS

    Public Function VarPtr(ByVal o As Object) As Integer
        Dim GC As System.Runtime.InteropServices.GCHandle = System.Runtime.InteropServices.GCHandle.Alloc(o, System.Runtime.InteropServices.GCHandleType.Pinned)
        Dim ret As Integer = GC.AddrOfPinnedObject.ToInt32

        GC.Free()
        Return ret
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PonerMusica(TextBox1.Text)
    End Sub

    Public Sub PonerMusica(ByVal Texto)
        'Public Sub PonerMusica(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}", Optional ByRef r_bShow As Boolean = True)
        Dim udtData As COPYDATASTRUCT
        Dim sBuffer As String
        Dim hMSGRUI As Integer

        'sBuffer = "\0Music\0" & 1 & "\0" & "{0}" & "\0" & Texto & "\0" & "" & "\0" & "" & "\0" & vbNullString & "\0" & vbNullChar
        sBuffer = "\0Music\0" & System.Math.Abs(CInt(True)) & "\0" & "{1} - {0}" & "\0" & Texto & "\0" & "" & "\0" & "" & "\0" & vbNullString & "\0" & vbNullChar

        udtData.dwData = &H547
        udtData.lpData = VarPtr(sBuffer)
        udtData.cbData = Len(sBuffer) * 2

        Do
            ' Buscamos la seccion del Msn donde se pone la musica

            hMSGRUI = FindWindowEx(0, hMSGRUI, "MsnMsgrUIManager", vbNullString)

            ' La encontramos ?
            If (hMSGRUI > 0) Then
                ' Esta es la linea que envia el Texto
                Call SendMessage(hMSGRUI, WM_COPYDATA, 0, VarPtr(udtData))
            End If
        Loop Until (hMSGRUI = 0)
    End Sub
End Class

---

dt's now playing script is dodgy.

try this:

"WMP\0Music\01\0{0} - {1}\0Song Name\0Artist Name\0Album Name\0{00000000-0000-0000-0000-000000000000}\0"

Sun: That's the exact same functions, etc, that I had, except it's got the variable names and comments in Spanish.

ShawnZ: Thanks for that... but it doesn't do anything either.

What's the name of the program you can use to monitor if a message is being sent to a process?

The code i give you works on VB 2005, i test it with Msn 8.5

The code you put here is for VB6 (VarPtr and LenB not exist on VB 2005)

What error you get ? You copy/paste mine or just see that is "the same" ?

There is no error. It's just that nothing happens. And the code in my post is the exact same as yours, with different variable names - it uses Import for example, which is not available in VB6.

The post you linked was the exact same one I quoted, just mines was LoFi. There are two VB codes on that page, one is for VB6, the one I quoted .NET.

If after check the code still not working, maybe is because you have not enabled the option "Show what im listen to" on Msn

As i say, works fine here.. copy & paste all please

quote:

---

Originally posted by SuNcO
If after check the code still not working, maybe is because you have not enabled the option "Show what im listen to" on Msn

As i say, works fine here.. copy & paste all please

---