segin

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)  
   cpd.lpData = @wmsg
   SendMessage(msgr, WM_COPYDATA, 0, @cpd)
End Sub