如何用程序实现得到拔号上网的动态IP？300分!!!

Question

已开了三个窗口，共300分子。!

Answer 1

[email protected]
现在发吧，我急用。好使就结了

Answer 2

http://expert.csdn.net/Expert/topic/1373/1373059.xml?temp=.370968

Answer 3

IP助手小孩子函数GetAdaptersInfo(), 获取本机每一个网接接口的信息，包括IP地址，　再根据接口的类型（以太网、FDDI、点到点等）确定拨号所得的IP地址。你搜索一下吧，我在这贴过demo的。

Answer 4

CString GetLocalIp()
{
struct hostent *phost;
char ip[20];
char hostname[50]; gethostname(hostname,50);
phost=gethostbyname(hostname); char **names;
names=phost->h_aliases;
char **iplist;
iplist=phost->h_addr_list; while(* iplist)
{
strcpy(ip,inet_ntoa(*(struct in_addr *)*iplist));
iplist++;
} CString LocalIp=ip;
return LocalIp;
}

Answer 5

csdmzw你这个能得到拔号的广网IP吗？好像是得到局网的IP吧!

Answer 6

LinHanLao(凌寒) ：也不知道你试过没有？
还是没有满意的答案

Answer 7

这个正好我以前做过。// 取得本机IP地址
         CString ip;
WORD wVersionRequested;
WSADATA wsaData;
PHOSTENT hostinfo;
wVersionRequested = MAKEWORD( 2, 0 );
if ( WSAStartup( wVersionRequested, &wsaData ) == 0 )
{
if( gethostname ( name, sizeof(name)) == 0)
{
if((hostinfo = gethostbyname(name)) != NULL)
{
ip = inet_ntoa (*(struct in_addr *)*hostinfo->h_addr_list);
}
}
WSACleanup( );
} 
AfxMessageBox(ip);

Answer 8

可以遍历所有IP吧，强烈建议你查查msdn，定有收获。那玩艺太好了！！！

Answer 9

我看这段代码怎么这么眼熟？!对，我最开始就是这么做的。但得到的好像本地局网的内部IP。但我要的是拔号上网的动态IP？？？
还有高人吗？

Answer 10

没看看我写的？？？GetAdaptersInfo() 可以解决！！！

Answer 11

----------------------------------------------------------------
原贴内容：
你这个能得到拔号的广网IP吗？好像是得到局网的IP吧!我原来看过msdn，好像能得到一个ip列表，可以得到本机上的所有IP,
我是用cb做的，刚才又翻了一下，果然是由得到主机名然后转化为IP,
我查了一下资料，系统目录下网络管理程序库RasApi32.DLL和RasApi16.DLL，
可以得到动态IP,你看一下吧 ！
资料：borland delphi---- 　　在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;

Answer 12

谢谢，老兄最好还是用VC吧，我的程序已经用了太多的夜不闭户语言了，再用个delphi就太乱了。我想VC中也可以用到RAS，我其实也是用的RAS，但就是不好使。
to Gargamel(格格巫) .你能不能给详细点!

Answer 13

谢谢，老兄最好还是用VC吧，我的程序已经用了太多的夜不闭户语言了，再用个delphi就太乱了。我想VC中也可以用到RAS，我其实也是用的RAS，但就是不好使。
to Gargamel(格格巫) .你能不能给详细点!

Answer 14

http://sanjianxia.myrice.com/vc/vc95.htm

Answer 15

我用了個笨辦法,用原始套接字,用ICMP隨便向一個網址發回應請求查詢,然後再拆解返回的IP包頭,就可以得到自已的公網IP了,哈哈哈哈,很笨的方法,而且我在局域網下通過代理上網的時候,收到的IP包里的那個自已的IP是我在局域網下的IP,煩人!