很简单的socket问题

Question

应用程序没有调用 WSAStartup，或者 WSAStartup 失败。 
调用create前必须先调用WSAStartup初始化

Answer 1

使用：Public Function GetSystemError(ByVal Number As Long) As String
    
  Dim sMsgBuf As String * 257, dwLen As Long
  
  dwLen = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM _
    Or FORMAT_MESSAGE_IGNORE_INSERTS Or FORMAT_MESSAGE_MAX_WIDTH_MASK, ByVal 0&, _
    Number, LANG_USER_DEFAULT, ByVal sMsgBuf, 256&, 0&)
  
  If dwLen > 0 Then GetLastErrorStr = LeftB$(sMsgBuf, dwLen)
End Function
看看是什么错误？！

Answer 2

问题解决了。sunqi的回答很贴切。不过，如果使用CAsyncSocket的话，似乎应该使用AfxSocketInit()。也谢谢其他几位网友。