那位带我进入网络程序的大门?

oid CClientDlg::OnSend() 
{
// TODO: Add your control notification handler code here
SOCKET client;
WSADATA wd;
WSAStartup(MAKEWORD(2,2),&wd);
client=socket(AF_INET,SOCK_STREAM,0);
if(client==INVALID_SOCKET)
{
MessageBox("Invalid socket!");
closesocket(client);
WSACleanup();
return;
}
sockaddr_in addr;
addr.sin_family=AF_INET;
addr.sin_port=htons(800);
addr.sin_addr.s_addr=inet_addr("127.0.0.1");
if(connect(client,(sockaddr*)&addr,sizeof(addr))==SOCKET_ERROR)
{
MessageBox("connect fail");
closesocket(client);
WSACleanup();
return ;
}
UpdateData();
send(client,m_string,strlen(m_string),0);
closesocket(client);
WSACleanup();
}
使用WSAGetLastError()得到0;是什么错误呢?
server端没怎么写
MSG msg;
GetDlgItem(ID_ACCEPT)->EnableWindow(false);
SOCKET server,client;
WSADATA wd;
int AddrSize;
WSAStartup(MAKEWORD(2,2),&wd);
server=socket(AF_INET,SOCK_STREAM,0);
sockaddr_in addlisten,addclient;
addlisten.sin_family=AF_INET;
addlisten.sin_port=htons(800);
addlisten.sin_addr.s_addr=htonl(INADDR_ANY);
if(bind(server,(sockaddr*)&addlisten,sizeof(addlisten))==SOCKET_ERROR)
{
MessageBox("bind fail");
}
while(1)
{
listen(server,5);
client=accept(server,(sockaddr*)&addclient,&AddrSize);
while(::PeekMessage(&msg,NULL,0,0,PM_REMOVE))
{
::TranslateMessage(&msg);
::DispatchMessage(&msg);
}
}
closesocket(client);
WSACleanup();