点击上方蓝字,关注我哦!!
VB是一门面向对象、可视化的采用事件驱动机制的编程语言。VB功能强大,应用广泛,除了用VB编程来开发一些日常程序软件外,其还可以与数据库结合来开发综合的数据管理系统,亦可以进行串口通信、二次开发。
今天我们就一起来看一下VB在网络编程方面的应用,首先学习一些网络通信的基本控件知识及最简单的程序,后续我们会讲解实现两台计算机之间信息的互相传送与接收。
VB编写网络程序主要有两种方式:
1.winsock控件 ;
2.winsockAPI;
本文我们首先介绍winsock控件 。
WinSock控件
WinSock控件本身不在VB的标准工具箱中,我们使用时需要从部件中选择
MicroSoft WinSock control 6.0控件将其添加到工具箱中,然后添加到窗体上即可以使用了。
1、WinSock控件的主要属性
a.Protocol属性
通过Protocol属性可以设置WinSock控件连接远程计算机使用的协议。可选的协议是TCP和UDP对应的VB的常量分别是sckTCPProtocol和sckUDPProtocol,Winsock控件默认协议是TCP。注意:虽然可以在运行时设置协议,但必须在连接未建立或断开连接后。
b.SocketHandle属性 SocketHandle返回当前socket连接的句柄,这是只读属性。
c.RemoteHostIP属性 RemoteHostIP属性返回远程计算机的IP地址。在客户端,当使用了控件的Connect方法后,远程计算机的IP地址就赋给了RemoteHostIP属性,而在服务器端,当ConnectRequest事件后,远程计算机(客户端)的IP地址就赋给了这个属性。如果使用的是UDP协议那么当DataArrival事件后,发送UDP报文的计算机的IP才赋给了这个属性。
d.ByteReceived属性 返回当前接收缓冲区中的字节数
e.State属性
返回WinSock控件当前的状态
f. RemoteHost | 远程机器名
g.RemotePort | 远程机器的通信程序端口
h.Protocal | 使用TCP或UDP协议
m.LocalHostName | 本地机器名
n.LocalIP | 本地机器IP地址
k.LocalPort | 本地机器通信程序的端口(0
2.WinSock主要方法
WinSock主要方法
a.Bind方法 用Bind方法可以把一个端口号固定为本控件使用,使得别的应用程序不能再使用这个端口。
b.Listen方法 Listen方法只在使用TCP协议时有用。它将应用程序置于监听检测状态。
c.Connect方法 当本地计算机希望和远程计算机建立连接时,就可以调用Connect方法。 Connect方法调用的规范为: Connect RemoteHost,RemotePort
d.Accept方法 当服务器接收到客户端的连接请求后,服务器有权决定是否接受客户端的请求。
e.SendData方法 当连接建立后,要发送数据就可以调用SendData方法,该方法只有一个参数,就是要发送的数据。
f.GetData方法 当本地计算机接收到远程计算机的数据时,数据存放在缓冲区中,要从缓冲区中取出数据,可以使用GetData方法。GetData方法调用规范如下: GetData >
g.PeekData方法 和GetData方法类似,但PeekData在取得数据后并不把缓冲区清空。
3.Winsock控件主要事件
a.ConnectRequest事件
当本地计算机接收到远程计算机发送的连接请求时,控件的ConnectRequest事件将会被触发。
b.SendProgress事件 当一端的计算机正在向另一端的计算机发送数据时,SendProgress事件将被触发。SendProgress事件记录了当前状态下已发送的字节数和剩余字节数。
c.SendComplete事件 当所有数据发送完成时,被触发。
d.DataArrival事件 当建立连接后,接受到了新数据就会触发这个事件。注意:如果在接受到新数据前,缓冲区中非空,就不会触发这个事件。
e.Error事件 当在工作中发生任何错误都会触发这个事件。
***************************************************************
今天,我们首先利用WinSock控件的LocalHostName和LocalIP两个属性,来获取当前计算机的用户名和IP地址,从而为下期两台计算机之间进行通信而做准备。
Option Explicit
Private Sub Command1_Click()
Print "当前计算机用户名为:"; Winsock1.LocalHostName
Print "当前计算机IP地址为:"; Winsock1.LocalIP
End Sub
◆获取任意电脑的IP地址!
◆VB编程中时间计算问题如何求解?
◆VB实战 | 数据库登录功能如何实现?
大家对本期的讲解有疑问以及在学习VB的过程中有问题,可以添加小编微信号:vbyjk521 ,小编会耐心提供在线解答。
长按上图,关注跟我学VB公众平台