怎样知道别人已经拔号上网(100分)

鸡

鸡蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #1

　　我们几台机组建了一个宿舍网，大家拉一条专线上网，现在我想用DELPHI编程，当其中
一个用户拔号上网了，如果其它用户想拔号，就提示信息“XXX用户正在拔号上网...”.但
不知怎样才能在局域网内判别其它用户是否已联接上网呢，怎样将信息发给其它用户呢?

 

C

cozo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #2

procedure TForm1.Timer1Timer(Sender: TObject);
var b: array[0..4] of Byte;
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('System/CurrentControlSet/Services/RemoteAccess',False);
ReadBinaryData('Remote Connection',b,4);
finally
Free;
end;
if b[0]=1 then Caption:='OnLine' else Caption:='OffLine';
end;

 

C

cozo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #3

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);

function GetOnlineStatus : Boolean;
var ConTypes : Integer;
begin
ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if (InternetGetConnectedState(@ConTypes, 0) = False)
then Result := False
else Result := True;
end;

begin
if GetOnlineStatus then
ShowMessage(' Connected')
else ShowMessage(' not Connected');
end;

 

鸡

鸡蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #4

提示INTERNET_CONNECTION_MODEM、 INTERNET_CONNECTION_LAN、 INTERNET_CONNECTION_PROXY
不能识别。
第一种方法我自己拔号上网都不能正确判断，不过我是在WINXP下运行的，有问题吗。
我想能知道局域网内是哪个用户拔号上网了，并将其用户名显示出来,可以吗?cozo

 

C

cozo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #5

你有没有uses WinInet？
我想既然是局域网，你应该知道的他们的IP吧。动态设置代理，然后去Ping一个网站。也许可以。

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #6

局域网如何拨号上网？？？是不是服务器？
那就简单的多，直接看能不能上网就知道他上网了没？

 

鸡

鸡蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #7

我们的局域网由5台机组成，它们分布在各层楼间，其中任何一台都可以拔号上网，作服
务器使用，其它的机子就可以共享上网，有时候想知道是哪个用户拔号上网了，而它却不
共享，使其它用户不能上网，问题就是这样

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #8

你做个多线程的PING程序不就OK了

 

鸡

鸡蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-04

• #9

多人接受答案了。