如何知道对方的机子已经上网

[zxcfs]

[tingweb]

if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
showmessage('在线!')
else showmessage('不在线!');

[HF]

不会吧！
GetSystemMetrics是返回与windows环境有关的信息
设置SM_NETWORK表示是否安装了网络？
这好象也只是表示局域网而已！
我好象记得Win api中的网络函数不是走tcp/ip的！
再说GetSystemMetrics(SM_NETWORK) 也只表示安装于否，与是否在线无关啊！
一点浅见，呵呵！

[meijg]

什么意思，能说的详细的点吗

[zxcfs]

我想做一个类似网上聊天一样的程序,但与网上聊天不同.成员只要一上网就可以得到一张上网人员名单,从而选择与谁联络.因为不对外开放,所以就没有必要注册,我的思路为每个客户端安装一个客户端软件,作为一个监控程序,只要客户一上网,监控程序便发送一个消息给服务程序以确定此客户已上网.但监控程序程序怎样确定客户进行了拨号连接.我这里的上网是指internet连接.求各位指点一下.

[Un1]

客户端向服务器写个注册信息什么的。

[zxcfs]

我需要知道怎样确定客户进行了拨号连接?

[HF]

服务器的地址（IP）是不是固定的？
如是固定，写个ping如何？以ping来确定线路的连接！
还有要不你的客户端来控制用户的拨号连接，
有这样的例子或控件的（分win95和isdn，其他的可能还有吧）

不知道若服务器也是不固定的，该如何？发广播包？这样不知道是不是有点夸张了！

[zxcfs]

我的ip是自己设定的,假如我拨号上网,那我的ip地址会不会变化
不需要客户端来控制用户的拨号连接，
那儿能找到这样的例子?
如果你有请email个, Email地址:[e-mail]
定加分

[rolt]

关注

[HF]

你的机器是拨号上的话，我想ip肯定变，是Dns动态分配给你的！
这样的话，用ping就行不通了！
用udp吧，oicq spy也是用udp数据包转发的！
例子可以给你寄上，就是在家里，你要等等啦！呵呵！也许其他大侠还有
别的解决办法！

[zxcfs]

我找到确定线路的连接及获得动态IP信息的方法
//获取所有活动的拨号连接的信息（连接句柄和设置信息）
function RasEnumConnections( var lprasconn : RASCONN ;//接收活动连接的缓冲区的指针
var lpcb: DWORD;//缓冲区大小
var lpcConnections : DWORD//实际的活动连接数
) : DWORD; stdcall;
function RasEnumConnections;external 'Rasapi32.dll'
name 'RasEnumConnectionsA'; //获取指定活动的拨号连接的动态IP信息
function RasGetProjectionInfo(
hrasconn : HRasConn;//指定活动连接的句柄
rasprojection : DWORD;//RAS连接类型
var lpprojection : TRASPPPIP;//接收动态IP信息的缓冲区
var lpcb : DWord//接收缓冲区的大小
) : DWORD;stdcall;
function RasGetProjectionInfo;external
'Rasapi32.dll' name 'RasGetProjectionInfoA';
//　　这两个函数的返回值为０时表示执行成功，非０表示错误代码。
但两个具有动态ip地址的机子怎样通信呢?求大侠们出个注意.
hf提议用udp，udp也需要知道对方的ip地址的.