1、Soket_TCPIP VB 源程序(1)TCP CLIENT Option ExplicitPrivate Sub Form_Load()txtSend.Enabled = FalsetxtOutput.Enabled = FalsetcpServer.LocalPort = 3456tcpServer.ListenEnd SubPrivate Sub Form_Unload(Cancel As Integer)tcpServer.CloseEnd SubPrivate Sub tcpServer_Close()txtSend.Enabled = FalsetxtOutput.Enabled
2、 = FalsetcpServer.ClosetxtOutput.Text = txtOutput.Text & “Client closed connection“ & vbCrLf & vbCrLftxtOutput.SelStart = Len(txtOutput.Text)tcpServer.ListenEnd SubPrivate Sub tcpServer_ConnectionRequest(ByVal requestID As Long)If tcpServer.State SockNum ThenLoad Sock(SockIndex)End IfConnectState(So
3、ckIndex) = BUSYTimeOut(SockIndex) = 0Sock(SockIndex).Tag = SockIndex接受请求Sock(SockIndex).Accept (requestID)记录和显示List1.AddItem Sock(SockIndex).RemoteHostIP & “ : “ & Sock(SockIndex).RemotePortList1.ItemData(List1.ListCount - 1) = SockIndexlogs SockIndex & “接受请求“End Sub客户断开，关闭相应的 sockPrivate Sub sock_C
4、lose(Index As Integer)On Error Resume NextIf Sock(Index).State Index) And (Sock(i).State = sckConnected) ThenSock(i).SendData dxEnd IfNext iEnd Iflogs “dx=“ & dxEnd Sub寻找空闲的 sockPublic Function FindFreeSocket()Dim SockCount, i As IntegerSockCount = UBound(ConnectState)For i = 0 To SockCountIf Connec
5、tState(i) = FREE ThenFindFreeSocket = iExit FunctionEnd IfNext iReDim Preserve ConnectState(0 To SockCount + 1)FindFreeSocket = UBound(ConnectState)End FunctionPrivate Sub TextLog_Change()If Len(TextLog.Text) 1000 Then TextLog.Text = “End SubPrivate Sub TextReceive_Change()If Len(TextReceive.Text) 1
6、000 Then TextReceive.Text = “End Sub5 秒Private Sub Timer1_Timer()On Error Resume NextDim SockCount, i As IntegerSockCount = UBound(ConnectState)For i = 0 To SockCountIf ConnectState(i) = BUSY Then TimeOut(i) = TimeOut(i) + 1If TimeOut(i) 60 ThenSock(i).Closesock_Close (i)List1.RemoveItem (i)ConnectS
7、tate(i) = FREE 5 分钟 无动作 关闭TimeOut(i) = 0End IfNext iEnd Sub（2）Form2*客户程序*Option Explicit发送数据Private Sub Command1_Click()If (Sock.State = sckClosed) Or (Sock.State = sckError) Or (Sock.State = sckClosing) ThenSock.CloseSock.Connect TextIp.Text, TextPort.TextElseIf Sock.State = sckConnected ThenSock.SendData TextSend.TextEnd IfEnd Sub服务器关闭Private Sub sock_Close()MsgBox (“socket closed“)Shape.BackColor = vbWhiteCommand1.Caption = “连 接“End Sub连接成功Private Sub sock_Connect()MsgBox (“socket connected“)
