如何获取当前计算机的IP地址和主机名？

[znull]

如题，给点源码，谢谢！

[yu_hl]

char name [255];
int res = gethostname(name, 255);
struct hostent * pHost = gethostbyname(name);
for( int i = 0; pHost!= NULL && pHost->h_addr_list[i]!= NULL; i++ )
{
CString str;
int j;
for( j = 0; j < pHost->h_length; j++ )
{
CString addr;
if( j > 0 )
str += ".";
addr.Format("%u", (unsigned int)((unsigned char*)pHost->h_addr_list[i])[j]);
str += addr;
}
AfxMessageBox(str);
}

[Kevin]

DWORD dwsize = 255;
char username[255];

if (::GetComputerName(&username[0], &dwsize))
{
hostent *pHost;
pHost=::gethostbyname(username);
LPCSTR psz;
psz=inet_ntoa (*(struct in_addr *)pHost->h_addr_list[0]);
AfxMessageBox("计算机名称：\n"+(CString)(username))
AfxMessageBox("IP地址："+(CString)(psz));
}

[Kevin]

DWORD dwsize = 255;
char username[255];
if (::GetComputerName(&username[0], &dwsize))
{
hostent *pHost;
pHost=::gethostbyname(username);
LPCSTR psz;
psz=inet_ntoa (*(struct in_addr *)pHost->h_addr_list[0]);
m_strinfor="计算机名称：\n"+(CString)(username)+"\r\n";
m_strinfor+="IP地址：";
m_strinfor+=psz;
UpdateData(FALSE);
}

[柏小洋]

绝对可行：
CString CGetdata::GetlocalIPAddress()
{
WORD wVersionRequested;
WSADATA wsaData;
CString Address;
char szHostname[128];
wVersionRequested=MAKEWORD(2,0);

if(WSAStartup(wVersionRequested,&wsaData)==0)
{
if(gethostname(szHostname,128)==0)
{
struct hostent *pHost;
int i;
pHost=gethostbyname(szHostname);
for(i=0;pHost!=NULL && pHost->h_addr_list[i]!=NULL;i++)
{
int j;
for(j=0;j<pHost->h_length;j++)
{
CString addr;
if(j>0)
Address+=".";
addr.Format("%u",(unsigned int)((unsigned char *)pHost->h_addr_list[i])[j]);
Address+=addr;
}
}
}
WSACleanup();
}
return Address;
}

[mylonestartear]

我试了一些，总报错：error LNK2001: unresolved external symbol _gethostbyname@4
why

[lvxn_sina]

哈哈~~~~~~~~~~

这是你没把.lib加入连接啊！
#pragma comment(lib, "wininet.lib")

[dyw]

Ws2_32.lib

[winhero]

应加入ws2_32.lib

[pp_ipr]

我有一份别人的源码，要不？

[frog_huang]

在project Settings 中 Link项里增加ws2_32.lib