一个简单问题:单机上网如何获得接入的ISP的IP地址?局部网上网呢?(要原代码)(50分)

  • 主题发起人 主题发起人 jingtao
  • 开始时间 开始时间
很难吗?很多地方有啊!不过。。。我忘了。。。。。
 
你如果没有isp的地址,那你是如何上网的?(dns也没有)
所以只有知道isp方面提供的地址(如dns,proxy,网关等等),才能上网.
既然已经能上网了,那坑定已经知道了呀,还问啥呢?
 
jingtao:

你是说用程序取的么?
 
>>顾国飞
用程序取啊
》zyy04
是啊,有办法吗?
 
DNS的:
hkey_local_machine/system/CurrenControlSet/Services/Vxd/MSTCP
NameServer="x.x.x.x;x.x.x.x"

你可以对注册标操作取得!好像还有一个api的,我不太记得了!
哪位大虾找一下?
 
(将问题提前)
 
恩,我也想问一下类式问题,拨号后ISP如何附给你Dns,Getway等,如果知道了的话,
估计这问题也解决了。
 
拨号协议是什么???
ppp????
哪里找的到??
rfc可能有吧!
 
function LocalIP : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;

begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^ <> nil do begin
result:=StrPas(inet_ntoa(pptr^^));
Inc(I);
end;
WSACleanup;
end;

 
>>iie
那是取自己的静态IP啊,我早就有了,我还有取动态的函数呢.:)不过还是谢谢您.
 
其实这个函数已经可以取到动态IP了,不知道你要取什么?DNS?不会吧:)
 
取不到吧,好像要用RAS函数啊:)
 
附加功能 将问题提前
 
多人接受答案了。
 
后退
顶部