关闭指定QQ号进程(100分)

R

rong007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-29

• #1

想实现一个一台机只有指定号码才能上QQ
如果一台机上,已登录了一下授权的QQ号码,在然后再登录一个没有授权的,请问怎么样才能关闭这个QQ的进程呢(不关闭已授权的QQ进程)?

我用截取网络包来获取本机正在使用的QQ号

 

R

rong007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-30

• #2

没有朋友会吗????????????????

 

M

madic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-30

• #3

做一个监控进程的，用findwindow检查一下窗体标题的号码，把不是授权的关了就可以了

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-30

• #4

是的，每隔几秒检测一下，看号码是不是要登录的，不是，就关闭

 

R

rong007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-30

• #5

问题是怎么样把未受权的QQ号关了
找了一些资料在线程里找QQ号码的,但delphi的都不能用,呵呵

 

M

madic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-01

• #6

......你用findwindows查到句柄了.
sendmessage(他的Handle,WM_CLOSE,0,0);你试试，应该可能..

 

M

madic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-01

• #7

可以了记得结贴！

 

M

madic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-01

• #8

看来用findwindows不可以...他的那个不是标题..

 

L

luoyanqing119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-01

• #9

findwindows号码取不了，用窗体绑架技术应该可以。
在窗体的private中定义
hwndOldParent:HWND;
hwndNotePad:HWND;
将窗口的FormStyle设为fsMDIForm
procedure TForm1.Button1Click(Sender: TObject);
begin
hwndNotePad:=FindWindow(PChar('应用程序名称，如Notepad'),0);
hwndOldParent:=GetParent(hwndNotePad);
Windows.SetParent(hwndNotePad,handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Windows.SetParent(hwndNotePad,hwndOldParent

 

R

rong007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-07

• #10

多人接受答案了。