穿透路由器.控制内网机器的问题.在线等...

kingzhang 2008-03-21 03:35:11

A:192.168.0.17(局域网IP)
B:221.8.23.121(猫拨号IP,路由器IP)
C:外网.61.139.11.22(假设为固定)
当B的IP发生变化时.现在想让A发送给C一个信息.通知B的IP...请问应该怎么做..

...全文

346 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

marka953 2008-05-19

打赏
举报

支持搂主，收藏

xingyongjian 2008-05-14

打赏
举报

赋予A,B新名字.
A,B分别使用新名字检索C中的数据,
A,B不停的检测C中的数据是否发生改变.

yuyuhaso 2008-04-09

打赏
举报

如果你是想访问内网的机器你可以试试：http://www.convnet.net
如果你是想获取IP那么你可以试试动态域名：http://www.vicp.net

喝口水 2008-04-09

打赏
举报

dreamonce 2008-03-31

打赏
举报

const
RAS_MaxDeviceType = 16;//设备类型名称长度
RAS_MaxEntryName = 256;//连接名称最大长度
RAS_MaxDeviceName = 128;//设备名称最大长度
RAS_MaxIpAddress = 15;//IP地址的最大长度
RASP_PppIp = $8021;//拨号连接的协议类型，该数值表示PPP连接

type
HRASCONN = DWORD;//拨号连接句柄的类型
RASCONN = record//活动的拨号连接的句柄和设置信息
dwSize: DWORD;//该结构所占内存的大小(Bytes),一般设置为SizeOf(RASCONN)
hrasconn: HRASCONN;//活动连接的句柄
szEntryName: array[0..RAS_MaxEntryName] of char;//活动连接的名称
szDeviceType: array[0..RAS_MaxDeviceType] of char;//活动连接的所用的设备类型
szDeviceName: array[0..RAS_MaxDeviceName] of char;//活动连接的所用的设备名称
end;

Type
TRASPPPIP = record//活动的拨号连接的动态IP地址信息
dwSize: DWORD;//该结构所占内存的大小(Bytes),一般设置为SizeOf(TRASPPPIP)
dwError : DWORD;//错误类型标识符
szIpAddress: array[ 0..RAS_MaxIpAddress ] of char;//活动的拨号连接的IP地址
end;

function IsDialedOn: Boolean;
const
MaxConnections = 10;//假设最多有10个活动的拨号连接
var
connections : array[0..MaxConnections - 1] of RASCONN;//拨号连接数组
longSize, intAvailabelConnections, dwResult: DWORD;
RASpppIP : TRASPPPIP;
begin
connections[0].dwSize := sizeof(RASCONN);
longSize := MaxConnections * connections[0].dwSize; //接收活动连接的缓冲区大小
intAvailabelConnections := 0; //获取所有活动的拨号连接的信息（连接句柄和设置信息）
dwResult := RasEnumConnections(connections[0], longSize, intAvailabelConnections);
if 0 <> dwResult then
Result := False
else
if intAvailabelConnections > 0 then
begin
RASpppIP.dwSize := SizeOf(RASpppIP);
dwResult := RASGetProjectionInfo(connections[0].hRasConn, RASP_PppIp, RasPPPIP, RASpppIP.dwSize);
if dwResult <> 0 then
Result := False
else begin
strIp := RASpppIP.szIPAddress;
Result := True;
end;
end
else
Result := False;
end;