怎么实现TCP/IP中的API函数send(),recv(）等等？

Question

这个是socket的吧。
定义，使用。

Answer 1

关于Send与Recv的API函数使用您可以到
www.allapi.net下载
1.api view
2.api guide或者
www.dapha.net下载另外使用Socket控件也可以实现您的要求
关于Socket的帮助请看MSDN
例子代码您可以看
http://www.21code.com/codebase/?pos=list&type=subclass&mainclass=1&subclass=2

Answer 2

我自己代码中的一段。 供参考：
====================================================================
Declare Function send Lib "wsock32"_
(ByVal s As Long, buffer As Any,_
ByVal length As Long, ByVal flags As Long) As LongDeclare Function recv Lib "wsock32"_
(ByVal s As Long, buffer As Any,_
ByVal length As Long, ByVal flags As Long) As LongPublic Function SendData(ByVal strData As String) As Boolean
    Dim WSAResult As Long, i As Long, l As Long
      
    l = Len(strData)
    ReDim Buff(l + 1) As Byte
    
    For i = 1 To l
        Buff(i - 1) = Asc(Mid(strData, i, 1))
    Next
    Buff(l) = 0    WSAResult = send(mlngSocket, Buff(0), l, 0)
    If WSAResult = SOCKET_ERROR Then
        SetLastErrorCode "Error en SendData::send"
        SendData = False
    Else
        SendData = True
    End If
End FunctionPublic Function ReceiveData(strData, lngBytesReceived) As Boolean
    Const MAX_BUFF_SIZE = 10000
    Dim Buff(0 To MAX_BUFF_SIZE) As Byte
    Dim WSAResult As Long
    
    WSAResult = recv(mlngSocket, Buff(0), MAX_BUFF_SIZE, 0)
    If WSAResult = SOCKET_ERROR Then
        SetLastErrorCode "Error in RecvData::recv"
        strData = ""
        lngBytesReceived = 0
        ReceiveData = False
    Else
        lngBytesReceived = WSAResult
        Buff(lngBytesReceived) = 0
        strData = Left(StrConv(Buff(), vbUnicode), lngBytesReceived)
        ReceiveData = True
    End If
End Function

Answer 3

http://go5.163.com/nowcan/ctrls.htm
Winsock的VB声明