segin

Type CopyData
    dwData As Integer
    cbData As Integer
    lpData As Any Ptr
End Type

Sub ClearWMP()
   Dim cpd As CopyData
   Dim wmsg As WString * 500
   Dim msgr As HWND
   msgr = FindWindow("MsnMsgrUIManager", 0)
   If msgr = 0 Then
      Printf(!"Cannot find messenger for announce!\n")
      Return
   EndIf
   wmsg = "\0Music\00\0PsyMP3: {1} - {0}\0Title\0Artist\0Album\0WMContentID\0"
   cpd.dwData = 1351
   cpd.cbData = (Len(wmsg) * 2) + 2  
   cpd.lpData = @wmsg
   SendMessage(msgr, WM_COPYDATA, 0, @cpd)
End Sub