dim strState as string

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    On Error Resume Next

    Dim strResponse As String,strCode as string
    With Winsock1
        .GetData strResponse
      
                    
        Select Case strState

            Case "1"          
                If strCode = "OK" Then '判断1次发送成功

                    .SendData "********”
                     strState = "2"
                
                End If
            case "2"
              If strCode = "OK" Then '判断2次发送成功

                    .SendData "********”
                     strState = "3"
                
                End If

          case "3"
          .......
          case "100"
         .............
         end select

我承认 这种情况下 VB的确比起C++差了那么一点点 

如果你每次回过来的数据都不一样 那就在接受端做判断来发送吧 

是不是 如果 第一次没收到 还要继续发第一次的数据？

如果在C++ 返回一个BOOL值 就可以判断了 

我不是贬低VB 这种情况下 的确是C++强了一点点 

我们也要认清自己的长处和短处对吧