改变MSN个人状态信息

来源：互联网发布：裁决之镰代打软件编辑：程序博客网时间：2024/04/25 16:25

改变MSN个人信息,如Windows Media Play(千千静听)播放音乐时,将会显示正在播放的内容一样.网上有C#的代码,但是Windows Live Messenger好像不能用.于是写了一个消息拦截的工具,将Messenger的WM_COPYDATA截下来,并分析...却也没发现跟之前的版本有什么不一样的地方,郁闷.

procedure TFrm_Main.Execute_MSN7580;
var
hDestWnd: HWND;
Buffer: Array[0..255] of Char;
TempString: WideString;
CDS: COPYDATASTRUCT;
begin
hDestWnd := FindWindow('MsnMsgrUIManager',NIL);
if hDestWnd = 0 then Exit;

TempString := '/0'+ComboBox_Kind.Text+'/00/0/0/0/0/0/0'+Chr(0);
FillChar(Buffer,SizeOf(Buffer),0);
StringToWideChar(TempString,@Buffer[0],255);

CDS.dwData := $0547;
CDS.cbData := Length(TempString)*2;
CDS.lpData := @Buffer[0];
SendMessage(hDestWnd,WM_COPYDATA,0,Integer(@CDS));

TempString := '/0'+ComboBox_Kind.Text+'/01/0{0}/0'+Memo.Lines[FCurrentIndex]+'/0/0'+#$0;
FillChar(Buffer,SizeOf(Buffer),0);
StringToWideChar(TempString,@Buffer[0],255);

Inc(FCurrentIndex);
if FCurrentIndex >= Memo.Lines.Count then FCurrentIndex := 0;

CDS.dwData := $0547;
CDS.cbData := Length(TempString)*2;
CDS.lpData := @Buffer[0];

SendMessage(hDestWnd,WM_COPYDATA,0,Integer(@CDS));
end;