局域网客户端怎样写代码取得代理服务器上网的动态IP? (100分)

  • 主题发起人 主题发起人 wufen
  • 开始时间 开始时间
W

wufen

Unregistered / Unconfirmed
GUEST, unregistred user!
公司局域网用sygate共享服务器上的ADSL上Internet，在客户端
怎样取到服务器上Internet的Ip地址。
 
直接询问网络管理员，看他给服务器设置了什么地址？或者自己去服务器上看不就得了。
 
你到天网站点上，看你的机器是不是有网络相关的问题，哪个上面显示的IP就是服务器的
INTERNET IP！
 
我要通过写程序取得。因为上网ip地址是变的。
 
你取的服务器的名字后，用
GetHostByName()取的一个表，里面应该有这个服务器的IP！
 
张无忌:谢谢你，帮看看下面的代码。
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('ridant');
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^ <> nil do
begin
Result := inet_ntoa(pptr^^);
Inc(I);
end;
WSACleanup;
end;
这段代码只能取到服务器本机的IP地址，而且只有这个地址，不是一个表。
 
function LocalIP:boolean;
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 :=false;
//GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName('ridant');
if phe = nil then exit;

pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^ <> nil do
begin
Memo1.lines.add(strpas(inet_ntoa(pptr^)));
Inc(I);
end;
WSACleanup;
end;
 
张无忌:谢谢你。
function getIPs: TStrings;
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:=TStringList.Create;
Result.Clear;
GetHostName(Buffer,SizeOf(Buffer));
buffer:='ridant';
phe := GetHostByName(buffer);
if phe = nil then
begin
Exit;
end;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^ <> nil do
begin
Result.Add(inet_ntoa(pptr^^));
Inc(I);
end;
WSACleanup;
end;




procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines:=GetIps;
end;

end.
这段代码在客户端机器上运行只能得到服务的的本地ip(1个)。
在服务器上运行，能得到3个，一个是接ADSL网卡的ip，一个是接内部局域网的ip，
另外一个就是ADSL拔号上网的ip。
你能告诉怎样在客户端也能得服务器上的3个ip地址吗？
 
我再想象，应该有办法的
你用tracert 一个网外的IP，可能就有可以知道服务器的IP了，
 
用VirtualRoute之类的软件很容易查到的。HACKER都可以用它。
 
张无忌:谢谢你
我用tracert 网外和网内的IP都得不到我要的IP。
我知道你肯定能想出办法的。
 
请大家帮我想想办法
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

P
通过代理服务器共享上网的局域网内如何取得此代理服务器外部IP （即Internet 上的 IP）？ (100分)
2
回复
23
查看
441
阳光游子
阳
L
求购数据库服务器、中间服务器、客户端程序代码 (50分)
回复
1
查看
164
lingru
L
Z
怎样编写服务器端/客户端程序？(150分)
回复
7
查看
164
zhjie
Z
L
如何在客户机上得到代理服务器的IP?(50分)
回复
5
查看
158
lncd
L
G
服务器端怎么能获知客户端的意外断开呢？？？急！！(30分)
回复
7
查看
306
gsl4361
G
后退
顶部