QQ自动发送+@好友功能+tencent://功能 - 疯狂delphi

QQ自动发送+@好友功能+tencent://功能

1.取出全部标题

D2007版本

procedure TForm1.Button1Click(Sender: TObject);

var

hCurrentWindow:HWnd;

szText: array[0..254] of char;

szClassName: array[0..254] of char;

begin

ListBox1.Items.Clear;

hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);

while hCurrentWindow <> 0 do

begin

GetClassName(hCurrentWindow, @szClassName, 255);

if (GetWindowText(hCurrentWindow, @szText, 255)>0) and

(String(szClassName)=\'TXGuiFoundation\') and

(String(szText)<>\'TXFloatingWnd\') and

(String(szText)<>\'TXMenuWindow\') then

ListBox1.Items.Add(StrPas(@szText));

hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);

end;

end;

DXE10.2版本

procedure TForm1.Button1Click(Sender: TObject);

var

hCurrentWindow:HWnd;

szText: array[0..254] of WideChar;

szClassName:array[0..254] of WideChar;

begin

ListBox1.Items.Clear;

hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);

while hCurrentWindow <> 0 do

begin

GetClassName(hCurrentWindow, @szClassName, SizeOf(szClassName));

if (GetWindowText(hCurrentWindow, @szText, SizeOf(szText))>0)

and (String(szClassName)=\'TXGuiFoundation\')

and (String(szText)<>\'TXFloatingWnd\') and

(String(szText)<>\'TXMenuWindow\')

then

ListBox1.Items.Add(StrPas(szText));

hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);

end;

end;

========================QQ tencent:// 功能=======================================

增加好友

tencent://AddContact/?fromId=45&fromSubId=1&subcmd=all&uin=1543636781&website=www.oicqzone.com

打开好友对话窗口

tencent://Message/?Uin=1543636781&websiteName=www.oicqzone.com&Menu=yes

tencent://Message/?Menu=YES&Uin=1543636781&websiteName=im.qq.com

tencent://message/?Menu=yes&uin=1543636781

tencent://message/?&uin=1543636781

tencent://message/?Menu=yes&uin=1543636781&fuin=513187410

临时会话

tencent://Message/?Uin=1543636781&websiteName=qzone.qq.com&Menu=yes

打开群窗口(http://qun.qq.com/join.html生成群打开代码)

http://shang.qq.com/wpa/qunwpa?idkey=c3a6393707f0ef5c2ec729b8100d2d8f927c8938a4423db86f64a3c02a7ab0b3

CMD打开命令

start tencent://Message/?Uin=1543636781

未验证通过的：

tencent://groupwpa/?subcmd=all&param=3b2024304edeb7e34e9e0774bf7c6ec54bac90336c6f2736f1dad41fd966783b

tencent://groupwpa/?subcmd=all&param=58592705