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
}
}
}
提取外网IP
最新推荐文章于 2021-02-16 11:22:26 发布