查看QQ在线状态原理？？？

[AzureFancy]

现在网上的各种查看QQ在线状态的软件好像都不能用了，不知谁有现在可以正常使用的这类软件，软件名字是什么？
有哪位高手知道这种软件的实现原理，请指教一下，谢谢！！！

[AzureFancy]

有没有哪位同志知道，请指点一下！

[AzureFancy]

在网上看到的几个都是用VB写的，好像都要一个在后台服务的网页。
有哪位能说一下原理，谢谢！

[bottom]

当我们把QQ
主窗体拖到桌面顶部后，放开鼠标，他就会自动
缩上去，鼠标移到他身上时又会重新出现！
请问谁有研究过教我一下吧？
我写了但没有用：
procedure TForm1.CMMouseEnter(var message: TMessage);
begin
{if top=-17 then
begin//2
Height:=65 ;
SetCapture(Handle);
end;//2 // 激活窗口
}
case Message.Msg of
CM_MOUSEENTER:begin
SetCapture(Handle);
if Self.Height <= 0 then
self.Height := 30;
self.Invalidate;
end;
end;


end;

procedure TForm1.CMMouseLeave(var Message: TMessage);
//var
// Pt: TPoint;
begin
{GetCursorPos(Pt);
if not PtInRect(Bounds(Left, Top, Width, Height), Pt)
then // 做此判断为过滤
begin//1
if top=-17 then
begin//2
Height:=1;
ReleaseCapture;
end;//2
end;//1
}
case Message.Msg of
CM_MOUSELEAVE: begin

if self.Height > 30 then
self.Height := 0;
self.Invalidate;
ReleaseCapture;
end;

end;


end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button= mbLeft then
begin
ReleaseCapture;
SendMessage(Handle , WM_NCLBUTTONDOWN, HTCAPTION, 0);

end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
top:=-17;
left:=300;
height:=30;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if top<0 then
top:=-100;
end;

[AzureFancy]

up

[AzureFancy]

大家帮忙UP一下，难道Delphi中没有高手了吗？是不是都跑VC中去了？

[2312]

up

[ayukowa]

uup

[WANGYISE]

可能就是简单的调用腾讯网站上的网页

[jenemery]

gz

[AzureFancy]

WANGYISE(蓝平):
老兄，麻烦你讲详细点，调用腾讯网站上的什么网页？举个例子把网址列出来，谢了！

[AzureFancy]

怎么没有人指点，是没有高手还是对这个问题不感兴趣！

[rocl]

关注

[AzureFancy]

up