大侠帮我，如何编程得到上网动态IP(300分)

我本机上网是通过ADSL+VPN,怎样编程知道上网的动态IP,大富翁以前相关问题
答案在本机测试均不能实现得到上网IP，都是本机静态IP。望大侠帮我，用
Delphi,或CGI或其它语言的例子都可以,谢谢！

灌水：
用Delphi程序获取拨号连接的动态IP地址
2000-09-03· 王发军·青竹软件
--------------------------------------------------------------------------------
　　在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL，我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态IP地址了。在Delphi帮助文件中，有相关RAS函数的详细说明。
一、先解释一些要用到的数据常量和数据结构。
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;
TRASPPPIP = record//活动的拨号连接的动态IP地址信息
dwSize : DWORD;//该结构所占内存的大小(Bytes),
一般设置为SizeOf(TRASPPPIP)
dwError : DWORD;//错误类型标识符
szIpAddress : array[ 0..RAS_MaxIpAddress ] of char;
//活动的拨号连接的IP地址
end;
二、接着要解释要用到的两个RAS函数。
//获取所有活动的拨号连接的信息（连接句柄和设置信息）
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';
　　这两个函数的返回值为０时表示执行成功，非０表示错误代码。
三、下面要讨论如何用上面的两个RAS函数获取拨号连接的动态IP地址
　　首先，要用函数RasEnumConnections列出已建立的活动拨号连接的信息，其中包括连接名称、连接句柄、连接设备类型和设备名称；然后根据连接句柄用函数RasGetProjectionInfo获取连接对应的一个TRASPPPIP结构，其中包括一个成员属性szIpAddress即为动态IP地址。具体请参见以下程序片段和注释信息。
procedure TForm1.Button1Click(Sender: TObject);
const
MaxConnections = 10;//假设最多有10个活动的拨号连接
var
connections : array[0..MaxConnections-1] of RASCONN;
//拨号连接数组
longSize : dword;
intAvailabelConnections : dword;
//活动的拨号连接的实际数目
intIndex : integer;
strTemp : string;
dwResult : DWORD;
dwSize : DWORD;
RASpppIP : TRASPPPIP;
//活动的拨号连接的动态IP地址信息
begin
connections[ 0 ].dwSize := sizeof(RASCONN);
longSize := MaxConnections * connections[ 0 ].dwSize;
//接收活动连接的缓冲区大小
intAvailabelConnections := 0;
//获取所有活动的拨号连接的信息（连接句柄和设置信息）
dwResult := RasEnumConnections( connections[ 0 ],
longSize,intAvailabelConnections );
if 0 < > dwResult then
memo1.lines.add( '错误:' + inttostr( dwResult ) )
else
begin
memo1.lines.add( '现有的活动连接有' +
IntToStr( intAvailabelConnections ) + '个');
//显示所有活动的拨号连接的信息（设置信息和动态IP地址）
for intIndex := 0 to intAvailabelConnections - 1 do
begin
//显示一个活动的拨号连接的设置信息
strTemp := '连接名称：'
+ StrPAS( connections[ intIndex ].szEntryName )
+ '，设备类型：'
+ StrPAS( connections[ intIndex ].szDeviceType )
+ '，设备名称：'
+ StrPAS( connections[ intIndex ].szDeviceName );
memo1.lines.add( strTemp );
//显示一个活动的拨号连接的动态IP地址
dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := dwSize;
dwResult := RASGetProjectionInfo
( connections[ intIndex ].hRasConn,
RASP_PppIp,RasPPPIP,dwSize);//获取动态IP地址
if 0 < > dwResult then
memo1.lines.add(
'错误:' + inttostr( dwResult ))
else
memo1.lines.add(
'动态地址:' + StrPas(RASpppIP.szIPAddress));
end;
end;
end;
以上程序在PWIN98+Delphi3.0下调试通过。

谢谢。此方法我试过，没用，得到的还是我主机的局域网IP，望多关注。

我觉得最简单的方法是连接外面，然后分析返回的信息，就是主机的IP了。

只要把你的程序在取ip前，连接到internet即可。

关注

我提供个思路，不知道行不行。
就是加上一个NMMsg控件，然后看localIP属性对不对

适配器地址（即网卡地址）是网卡的1个表示符，在服务器分配IP地址时常常根据适配器地址来绑定IP地址，客户端的机器从而获得租用权。
要获得适配器地址，需要用netapi32.dll中的Netbios函数和Windows API函数。而要取得本机的IP地址和计算机名，可用API函数，也可利用WinSock控件。至于具体的例子在：我用VB的编过

这个我以前作过，不过现在没有源程序了。你去查MSDN，有一个函数可以得到你的所有的
网卡信息（比如用猫上网时会虚拟一块网卡）。如此一来，你想得到什么地址都没问题。

//获取本机IP地址
//InternetIP：=True 上网的地址；
//InternetIP：=False 局域网的地址；
Function GetLocalIp(InternetIP:boolean):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;
IP: String;
begin
Screen.Cursor := crHourGlass;
try
WSAStartup($101, GInitData);
IP:='0.0.0.0';
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then
begin
ShowMessage(IP);
Result:=IP;
Exit;
end;
pPtr := PaPInAddr(phe^.h_addr_list);
if InternetIP then
begin
I := 0;
while pPtr^ <> nil do
begin
IP := inet_ntoa(pptr^^);
Inc(I);
end;
end
else
IP := inet_ntoa(pptr^[0]^);
WSACleanup;
Result:=IP;//如果上网则为上网ip否则是网卡ip
finally
Screen.Cursor := crDefault;
end;
end;

地

zhanggm：你的方法好像只能获得本地Ip地址哦

谢谢各位大侠，我试过上面提供的只能得到局域网IP，不能实现得到上网动态IP，
望大侠门多多关注。

up

关注

动态IP？难道想做黑客？

同意shawn-yau说法，关注中。。。

呵呵，今天刚考完一门期末试，心情轻松了不少，考虑了一下这个问题，决定告诉大家一个
很搞笑的方法，但绝对可用。^_^
大家都知道，现在很多论坛都是用著名的动网论坛搭建的，这种论坛有什么特征呢？呵呵，
在登陆页面底部是不是有句“你的IP是：...”的东东啊，说到这里，很多人应该明白我想
怎么样了吧，下面是BCB6的详细代码，在DELPHI中思路一样：
1。新建一个工程；
2。放入一个TEdit，一个TButton、一个TNMHTTP；
3。Button的处理代码如下:
String strBody, strIP, strAddr;
String strbegin
= "您的 IP 是：";
String strEnd = "操作系统";
int nbegin
, nend;

strAddr = "http://bbs.sogua.com";
NMHTTP1->Get(strAddr);
strBody = NMHTTP1->Body;
nbegin
= strBody.Pos(strbegin
) + strbegin
.Length();
nEnd = strBody.Pos(strEnd) - 36;
for(int i=nbegin
;
i<nend;
i++)
strIP = strIP + strBody;
Edit1->Text = Trim(strIP);

DELPHI代码：
...
var
strBody, strIP, strAddr: String;
strbegin
, strEnd: String;
nbegin
, nEnd, i: Integer;
begin
Button1.Enabled := false;
strAddr := 'http://bbs.sogua.com';
strbegin
:= '您的 IP 是：';
strEnd := '操作系统';

NMHTTP1.Get(strAddr);
strBody := NMHTTP1.Body;
nbegin
:= Pos(strbegin
, strBody) + Length(strbegin
);
nEnd = Pos(strEnd, strBody) - 36;
for i:=nbegin
to nEnd do
begin
strIP := strBody;
end;
Edit1.Text := strIP;
Button1.Enabled := true;
...
这个思路自己用用还行，正式的方法应该是抛出一个包，分析返回信息...

在局域网中只有代理服务器的公网IP。