Windows Live Messanger - Was ich gerade höre

[Kai]

Code: Alles auswählen

Procedure ChangeMSNStatus(Enable, Category$, Message$)
  ; Ändert den Windows Live Messanger Statustext
  ; Enable      0, 1
  ; Category$   Music, Games, Office
  ; Message$    Nachricht
  Protected C.COPYDATASTRUCT
  Protected Buffer.s
  Protected *Buffer
  
  Buffer = "\0" + Category$ + "\0" + Str(Enable) + "\0{0}\0" + Message$ + "\0\0\0\0"
  *Buffer = AllocateMemory(StringByteLength(Buffer, #PB_Unicode))
  PokeS(*Buffer, Buffer, Len(Buffer), #PB_Unicode)
  
  C\dwData = 1351
  C\lpData = *Buffer
  C\cbData = MemorySize(*Buffer) + 2
  
  Handle = FindWindowEx_(0, Handle, "MsnMsgrUIManager", 0)
  If Handle
    SendMessage_(Handle, #WM_COPYDATA, 0, @C)
  EndIf
  
  FreeMemory(*Buffer)
EndProcedure

ChangeMSNStatus(1, "Music", "Artist - Track")

Abgeleitet vom anderen Thread hier nun ein lauffähiges Beispiel.