# include <windows.h>
# include <urlmon.h>
# pragma comment(lib,"URLMON.lib")
void main()
{
  URLDownloadToFile(NULL,"http://www.ip138.com/ip2city.asp","ip.txt",0,NULL);
  system("notepad ip.txt");
}

#include<urlmon.h>
#pragma comment (lib,"Urlmon.lib")

char buf[MAX_PATH] = {0};
char chTempIp[128];
char chIP[64];
URLDownloadToFile(0,"http://www.ip138.com/ip2city.asp","c:\\1.ini",0,NULL);

FILE *fp=fopen( "c:\\1.ini", "r" );

if ( fp != NULL ) 
{

fseek(fp, 0, SEEK_SET);
fread(buf,1,256,fp);
fclose(fp);
char* iIndex = strstr(buf,"[");

if (iIndex) 
 {
   sprintf( chTempIp,"%s",iIndex);
   int nBuflen = strlen(chTempIp);

for(int i =0; i<nBuflen; i++)
   {
 chIP[i] = chTempIp[i+1];

 if(chTempIp[i] == ']') 
 {
chIP[i-1] = '\0';
   DeleteFile("c:\\1.ini");
   continue;
 }
 
   }
}

}
MessageBox(chIP);

#include <afxinet.h>
void CLanChatDlg::GetNetIP()
{

SetDlgItemText(IDC_NET_IP,"正在獲取外網(wǎng)IP");
CString strsource;
CString Address;
CInternetSession mySession(NULL,0);
CHttpFile* myHttpFile=NULL;

Address="http://www.ip138.com/ip2city.asp";//ip138網(wǎng)頁

myHttpFile=(CHttpFile*)mySession.OpenURL(Address);//讀取網(wǎng)絡(luò)地址

while(myHttpFile->ReadString(strsource))
{ //循環(huán)讀取下載來的網(wǎng)頁文本
 // AddToLog(strsource);
 int begin=0;
 begin=strsource.Find("[",0);
 
 if(begin!=-1)//如果找到"["， 則找"]" 中括號內(nèi)的文本則是 你的外網(wǎng)ip
 { int end=strsource.Find("]");
 m_internetip=strsource.Mid(begin+1,end-begin-1);//提取外網(wǎng)ip

 SetDlgItemText(IDC_NET_IP,m_internetip);//在左下角顯示外網(wǎng)ip
 }
}