提取外网IP

void CLanChatDlg::GetNetIP()
{
	AddToLog("◆正在获取外网IP,请稍候...");
	SetDlgItemText(IDC_NET_IP,"正在获取外网IP");
	CString strsource;
	CString Address;
	CInternetSession mySession(NULL,0);
	CHttpFile* myHttpFile=NULL;
	
	Address="http://www.ip138.com/ip2city.asp";//ip138网页
	
	myHttpFile=(CHttpFile*)mySession.OpenURL(Address);//读取网络地址

	while(myHttpFile->ReadString(strsource))
	{		//循环读取下载来的网页文本
		//	 AddToLog(strsource);
		int begin=0;
		begin=strsource.Find("[",0);
		
		if(begin!=-1)//如果找到"["， 则找"]"  中括号内的文本则是 你的外网ip
		{ int end=strsource.Find("]");
		m_internetip=strsource.Mid(begin+1,end-begin-1);//提取外网ip
		AddToLog("◆得到外网ip:"+m_internetip);
		SetDlgItemText(IDC_NET_IP,m_internetip);//在左下角显示外网ip
		}
	}
}