【正文】 user(0).uName = Mid(sData, account_where1 + 3, account_where2 account_where1 3) 39。=========================================================== 39。=========================================================== sName = Left(sData, 1) If sName = C Then tcpServer(Index).SendData C_OK DoEvents ElseIf sName = Q Then tcpServer(Index).SendData Q_OK. DoEvents Call del_IP(tcpServer(Index).RemoteHostIP) 39。代碼如下：Dim sData As String Dim sName As String tcpServer(Index).GetData sData = Len() 39。顯然，這種做法已遠不能滿足我們的需求，這時可以將文件按照一定的大小，分成若干個數(shù)據(jù)包（遠小于內(nèi)存的容量）。 vbCrLf amp。H4 .ShowOpen = .FileNameEnd WithOpenErr:End Sub若此時選擇的文件正確（路徑，文件存在），將可以點擊“發(fā)送按鈕”，已連接的對方的winsock將會發(fā)生”請求”事件，接受“請求”的話，將發(fā)生“數(shù)據(jù)到達”，相關(guān)代碼如下所示： Private Sub wskServer_ConnectionRequest(ByVal