《vb网络编程实例.docx》由会员分享，可在线阅读，更多相关《vb网络编程实例.docx（3页珍藏版）》请在三一办公上搜索。
1、vb网络编程实例 电脑爱好者1236 Vb 网络编程实例 使用：WinSock TCP协议进行通信 TCP连接要点： 创建客户端应用程序，就必须知道服务端计算机名或者 IP 地址，还要知道进行“侦听”的端口，然后调用 Connect 方法。 创建服务端应用程序，就应设置一个收听端口并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接，可调用 ConnectionRequest 事件内的 Accept 方法。 建立连接后，任何一方计算机都可以收发数据。为了发送数据，可调用 SendData 方法。当接收数据时会发生 DataArriv
2、al 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。 基本连接代码： 一个窗体、一个Timer控件，两个WinSock控件，两个Lable控件，两个TextBox Private Sub Command2_Click Winsock2.SendData Text2.Text 向服务器发送数据 End Sub Private Sub Timer1_Timer Label1.Caption = GetState(Winsock1.State) Label2.Caption = GetState(Winsock2.State) End Sub Private Fun
3、ction GetState(tmp As Long) As String Select Case tmp Case 0 GetState = 缺省的。关闭 Case 1 GetState = 打开 Case 2 GetState = 侦听 Case 3 GetState = 连接挂起 Case 4 GetState = 识别主机 Case 5 GetState = 已识别主机 Case 6 GetState = 正在连接 Case 7 GetState = 已连接 Case 8 GetState = 同级人员正在关闭连接 Case 9 1 电脑爱好者1236 GetState = 错误 En
4、d Select End Function Private Sub Form_Load Winsock1.LocalPort = 65500 服务器端口号,最好大于1000 Winsock1.Listen 开始侦听 Winsock2.RemoteHost = 127.0.0.1 表示服务器主机名 Winsock2.RemotePort = 65500 表示服务器端口名 Winsock2.Connect 连接到服务器 End Sub Private Sub Form_Unload(Cancel As Integer) Winsock1.Close End Sub Private Sub Wins
5、ock1_Close Winsock1.Close Winsock2.Close End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.Close Winsock1.Accept requestID 表示客户请求连接的ID号 End Sub Private Sub Winsock2_Close Winsock2.Close End Sub Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) Dim s As String Winsock2.GetData s 接收数据到文本框中 Text2.Text = s End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim s As String Winsock1.GetData s 接收数据到文本框中 Text1.Text = s End Sub Private Sub Command1_Click Winsock1.SendData Text1.Text 向客户发送数据 End Sub 2
