VBA socketAPI本机调试 recv后服务端、客户端出现FD_CLOSE事件，并报10053错

wsc3317

       利用API实现通讯，可以使VBA利用有个本质的突破，不需要另拷SOCKET控件，程序发布非常简单。我能想到的功能，如抢答竞赛、网上考试、网上民主评议、网上打分等。本人2016年10月单位有一个竞赛，有抢答和必答，想通过通讯在VBA实现。07年使用易语言实现，画面、时钟、出题逻辑、分数计算VBA都能实现，VBA难点主要是通讯。     经过一个多月的网上学习，利用EXCEL和WORD的VBA，编写SOCKET套接字通讯API的模块，使用异步选择模式WSAAsyncSelect，使用SetWindowLong函数设置接收以WINDOWS消息的网络事件。

     按照网上专家大侠们的观点异步选择模式一个线程可接64个客户端，不知道VBA能接多少。网上多数大侠认为VBA不能处理多线程，但网上也有VBA处理多线程的例程，我理解都是处理相对简单的内容，不能与sheetst和cells发生关系，否则则系统崩溃。使用SetWindowLong函数处理WINDOWS消息，也不能与sheetst和cells发生关系，否则系统崩溃，注：曾看过网上说ECXEL处理超过一定时间不再响应机制，可能与此有关。线程和消息处理与窗体及窗体控件发生关系不受影响。因此可通过控件再与sheetst和cells发生关系，不知此观点是否正确。我知道能回调程序的函数有Application.OnTime，SetWindowLong，钩子函数等，在VBA里回调程序也经常崩溃，需要各位大侠总结一下。
        目前在本机测试（IP地址127.0.0.1用于本机测试的地址），WINDOWS消息处理正确（不死机），服务端与客户端连接已能相通，但服务端发送的信息，客户端也能收到FD_READ事件，但客户端使用RECV函数取回信息时，出现FD_CLOSE事件（服务端和客户端同时出现，可能是本机测试），并报10053错误。本人对BYTE数据类型处理不太懂。
       请各位大侠帮助调试：1。最主要的是解决调用RECV函数出现的FD_CLOSE事件，报10053错误。2。解决关闭套接字端口closesocket(s)，又何再调用，因为除非退出EXCEL、WORD外，再调用报-1错误。3.发布一个最优的VBA的API通讯案例。
      废话不再说了，直接上程序。见附件。
     还的啰嗦几句，excel和word的VBA程序是一致的，为了在本机测试方便，服务端可以有使用excel,客户端使用WORD。

wsc3317

上面说的不清楚，RECV函数没有取回信息。recv 和 send的方法都是根据API-Guide例程写的，不知道哪里有错。
Public Sub ProcessMessage(ByVal lFromSocket As Long, ByVal lParam As Long)
    Dim X As Long, ReadBuffer(1 To 1024) As Byte, strCommand As String
    Select Case lParam
        Case FD_CONNECT 'we are connected to microsoft.com
        Case FD_WRITE 'we can write to our connection
            'this is a part of the HTTP protocol
            'for more information about this protocol, visit http://www.w3c.org/
            strCommand = "GET http://www.microsoft.com/ HTTP/1.0" + vbCrLf
            strcomand = strCommand + "Pragma: no-cache" + vbCrLf
            strCommand = strCommand + "Accept: */*" + vbCrLf
            strCommand = strCommand + "Accept: text/html" + vbCrLf + vbCrLf
            'send the data to our microsoft.com-connection
            SendData lFromSocket, strCommand
        Case FD_READ 'we have data waiting to be processed
            'start reading the data
            Do
                X = recv(lFromSocket, ReadBuffer(1), 1024, 0)
                If X > 0 Then
                    Obj.Text = Obj.Text + Left$(StrConv(ReadBuffer, vbUnicode), X)
                End If
                If X <> 1024 Then Exit Do
            Loop
        Case FD_CLOSE 'the connection with microsoft.com is closed
    End Select
End Sub
Public Function SendData(ByVal s&, vMessage As Variant) As Long
    Dim TheMsg() As Byte, sTemp$
    TheMsg = ""
    Select Case VarType(vMessage)
        Case 8209   'byte array
            sTemp = vMessage
            TheMsg = sTemp
        Case 8      'string, if we recieve a string, its assumed we are linemode
            sTemp = StrConv(vMessage, vbFromUnicode)
        Case Else
            sTemp = CStr(vMessage)
            sTemp = StrConv(vMessage, vbFromUnicode)
    End Select
    TheMsg = sTemp
    If UBound(TheMsg) > -1 Then
        SendData = Send(s, TheMsg(0), (UBound(TheMsg) - LBound(TheMsg) + 1), 0)
    End If
End Function

wsc3317

服务端与客户端能够相连，但发送和接收数据总出问题，发送数据不报错，接收方能正确得到窗口提示有数据到达的消息，但使用recv函数接收数据时，接收方recv函数返回-1，同时发送方报FD_CLOSE事件，报10053错误。请大侠们查找错误，或使用VB语言翻译下面的C语言。谢谢！
网上查的C语言例程http://www.cnblogs.com/goodcandle/archive/2005/12/10/socket.html
int    Receive(SOCKET fd,char *szText,int len)
{
       int cnt;
       int rc;
       cnt=len;
       while(cnt>0)
       {
              rc=recv(fd,szText,cnt,0);
              if(rc==SOCKET_ERROR)
              {
                     return -1;
             }
             if(rc==0)
                     return len-cnt;
              szText+=rc;
              cnt-=rc;
       }
       return len;
}

int Send(SOCKET fd,char *szText,int len)
{
       int cnt;
       int rc;
       cnt=len;
       while(cnt>0)
       {
              rc=send(fd,szText,cnt,0);
              if(rc==SOCKET_ERROR)
              {
                     return -1;
              }
              if(rc==0)
                     return len-cnt;
              szText+=rc;
              cnt-=rc;
       }
       return len;
}

wsc3317

自力更生，丰衣足食。问题解决了。

z_hao0917

写这么多api  你好强！！！！

zcllom

wsc3317 发表于 2016-8-9 08:33
自力更生，丰衣足食。问题解决了。

能继续回复这个帖子吗?你的这个帖子很有价值。

wsc3317

好久的帖子，今天看到有回复。将当时修改“接收方recv函数返回-1，同时发送方报FD_CLOSE事件，报10053错误”源码补发一下。
用excel做服务端和word做客户端，可在本机测试。也可以在局域网上几台设备上都使用excel，其中一台服务端。最好有大侠能给改改，简化一下，我不是科班程序员，只是一个半路爱好者。

lanyinglan

解决了吗？这部分还是空白啊，没人做

18219359121

能否和我联系一下，qq346473525。

18219359121

高手，，你在那儿