新VB语言程序设计教程 教学课件 杨忠宝 康顺哲 第12章 网络应用程序设计.pptVIP

第12章 网络应用程序设计 重 点 网络基础 Winsock控件 难 点 Winsock控件 Internet Transfer控件 12.1 网络基础 12.1 网络基础 12.1 网络基础 12.1 网络基础 12.1 网络基础 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 (6) 编写事件过程如下。 ① 初始化 窗体装载事件中，首先将Winsock控件scktcpClient的Protocol属性设置为sckTCPProtocol,以便使用TCP协议与服务器通信；然后设置想要连接的服务器的IP地址和端口号。客户端的本地端口号可以不设置，系统会自动选择一个可用的端口号。代码如下： Private Sub Form_Load() scktcpClient.Protocol = sckTCPProtocol scktcpClient.RemoteHost = 如果客户端与服务器不在同一台主机上，则该ip地址要设置为服务器所在主机的真正ip地址 scktcpClient.RemotePort = 6666 该端口号一定要和服务器端的LocalPort属性值相同 scktcpClient.LocalPort = 1234 客户端的本地端口号可以不设置，系统会随机选择一个来用 Label_State.Caption = 目前还没有连接到服务器！ End Sub 掌握 ② “连接”按钮 单击“连接”按钮后，调用Winsock控件的Connect方法向服务器发出连接请求。代码如下： Private Sub cmdConnect_Click() scktcpClient.Close 关闭上一次未成功的连接请求 scktcpClient.Connect 向服务器发出连接请求 End Sub ③ 服务器接受请求 服务器接受请求后，会触发下列事件。代码如下： Private Sub scktcpClient_Connect() 连接请求成功 Label_State.Caption = 成功连接服务器： scktcpClient.RemoteHostIP 显示服务器的ip地址 txtSendData.SetFocus cmdConnect.Enabled = False End Sub 掌握 ④ 发送数据 判断文本框txtSendData中是否按下了回车键，如果是则调用SendData方法将回车键前面的数据发送给服务器，并同时显示在下方的聊天文本框txtShow中。代码与服务器端类似。代码如下： Private Sub txtSendData_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 判断是否按下了回车键 If scktcpClient.State = sckConnected Then 判断Winsock组件是否处于连接状态 scktcpClient.SendData 客户端 Time vbCrLf txtSendDat