Private Sub Form_Load() MaxIndex = 0 Winsock(0).Listen End Sub
Private Sub Winsock_Close(Index As Integer) Winsock(Index).Close Unload Winsock(Index) End Sub
Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long) If Index = 0 Then MaxIndex = MaxIndex + 1 Load Winsock(MaxIndex) Winsock(MaxIndex).Accept requestID End If End Sub
Private Sub Winsock_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim strMsg As String Winsock(Index).GetData strMsg MsgBox Index & MaxIndex End Sub
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......