A
aipingren
Unregistered / Unconfirmed
GUEST, unregistred user!
我要的是外部有效的IP地址！不是内部网的那种！我上宽贷有两个IP一个是外部有效的IP还有个是非INTERNETIP地址
我想要那个有效的！
function lip :string;
type
tapinaddr=array[0..10] of pinaddr;
papinaddr=^tapinaddr;
var phe
hostent;
pptrapinaddr;
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;
这个函数在WIN98下是有外部IP！而在2000下显示的是内部IP！请问谁有别的方法在WIN98和WIN2000
下都是有效的IP地址啊！谢谢1
我想要那个有效的！
function lip :string;
type
tapinaddr=array[0..10] of pinaddr;
papinaddr=^tapinaddr;
var phe
hostent;pptr
apinaddr;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;
这个函数在WIN98下是有外部IP！而在2000下显示的是内部IP！请问谁有别的方法在WIN98和WIN2000
下都是有效的IP地址啊！谢谢1