取QQ聊天窗口句柄问题（急救）(50分)

P

pub66cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-24

• #1

本人每天只想着玩电脑，女朋友QQ红杏想出墙，不得已要取采有效措施防止她与别人聊QQ。
请各位富翁帮帮忙，挽救小弟这段已到边缘的感情。。。
var
hh:thandle;
begin
hh:=findwindow(nil,'与 取花大盗 聊天中');
if hh <> 0 then
begin
关闭窗口
end;
我用这种方式只能取到指定聊天昵称的窗体，但她在备注里改一下昵称，我这方法就失效了，我想以QQ个人签名里的QQ号码为判断标准，但是我捉不到QQ签名的句柄，请各富翁给个有效方法。。。

 

I

IT书生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-24

• #2

晕，用findwindow肯定不行的，有这工夫，去网上下载一个QQ记录工具就行了，也就是QQ木马，所有的记录都能看啊，嘿嘿。

 

P

pub66cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-24

• #3

我不是要查看记录，是禁止聊天，当找开指定QQ号码的聊天窗口后，自动关闭

 

P

pub66cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-24

• #4

...

 

R

ruelm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #5

等 大侠吧

 

S

smallhacker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #6

晕，你真笨，想禁止聊天把QQ删除不完了，或者检测有QQ进程就终止

 

C

cqwty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #7

直接禁止qq进程的运行就可以了,不要什么指定聊天的窗体,你这么做别人有方法破解的,只要写个程序把qq的聊天窗体变个名字就没事,哈哈.最好的办法,直接拦截4000到4005这段端口,因为这段端口是qq登陆用的,拦截了就登陆不了了.那就搞定了撒!

 

P

pub66cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #8

大家还不明白我的意思，如果禁止QQ进程，那就用不了QQ拉，我只是要禁止她和定指的QQ号码聊天，和别人可以正常聊天。我取聊天窗口句柄后，再历遍控件句柄，也取不到QQ签名的句柄。。真是郁闷。。该怎么搞？

 

C

cqwty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #9

晕死,看来你这个东西不是写来干什么,就是写来阻止某人和某人聊天了哦,这个不是根本办法啊,只是猜想,如果是感情上的,不妨都说出来,何必这样.如果别人换了qq号码,你有要换,如果别人改用别的,你有要想办法,不累?

 

L

linuxping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #10

hCurrForm:=GetForegroundWindow;
sCurrentUser:=GetCaptionFromHandle(hCurrForm); //该函数见下
sCurrentUserName:=Copy(sCurrentUser,Length('与 ')+1,Length(sCurrentUser)-length('与 聊天中'));

if sCurrentUserName='采花大盗' then sendmessage(hCurrForm,WM_close,0,0);



function TQQText.GetCaptionFromHandle(hWnd: THandle): string;
var
BufCaption:array[0..254]of AnsiChar;
begin
FillChar(BufCaption,255,0);
GetWindowText(hWnd,BufCaption,255);
Result:=StrPas(BufCaption);
end;

 

P

pub66cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-04

• #11

怎么样历篇QQ窗体的控件，得到QQ个人签名旁边的QQ号码为判断标准？