查看: 712  |  回复: 0
  VB6 Socket编程(Winsock控件创建TCP/IP客户机/服务器程序)
楼主
发表于 2023年6月6日 18:15

UDP协议用Bind

TCP协议用Listen


用bind方法可以有两个参数,一个是绑定本地ip,另一个是绑定本地端口,而winsock用udp协议则是必须绑定ip和端口
用tcp只绑定端口即可

Winsock 控件对用户来说是不可见的,它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序,不必了解 TCP 的细节或调用低级的 Winsock API。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去,并且还可双向交换数据。


一、TCP 基础 
数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。如果创建客户应用程序,就必须知道服务器计算机名或者 IP 地址(RemoteHost 属性),还要知道进行“侦听”的端口(RemotePort 属性),然后调用 Connect 方法。如果创建服务器应用程序,就应设置一个收听端口(LocalPort 属性)并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接,可调用 ConnectionRequest 事件内的 Accept 方法。建立连接后,任何一方计算机都可以收发数据。为了发送数据,可调用 SendData 方法。当接收数据时会发生 DataArrival 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。


二、UDP 基础 
用户数据文报协议 (UDP) 是一个无连接协议。跟 TCP 的操作不同,计算机并不建立连接。另外 UDP 应用程序可以是客户机,也可以是服务器。为了传输数据,首先要设置客户计算机的 LocalPort 属性。然后,服务器计算机只需将 RemoteHost 设置为客户计算机的 Internet 地址,并将 RemotePort 属性设置为跟客户计算机的 LocalPort 属性相同的端口,并调用 SendData 方法来着手发送信息。于是,客户计算机使用 DataArrival 事件内的 GetData 方法来获取已发送的信息。 
属性:
BytesReceived属性,Index属性,LocalHostName属性,LocalIP属性,LocalPort属性,Object属性,Name属性,Parent属性,Protocol属性,RemoteHost属性,RemoteHostIP属性,RemotePort属性,SocketHandle属性,State属性,Tag属性。 
事件:
Close事件,Connet事件,ConnectionRequest事件,DataArrival事件,Error事件,SendComplete事件,SendProgress事件。 
方法:
Accept方法,Bind方法,Close方法(WinSock控件),Listen方法,PeekData方法,SendData方法,GetData方法(WinSock控件)。


三、Accept 方法 
仅适用于 TCP 服务器应用程序。在处理 ConnectionRequest 事件时用这个方法接受新连接。 
语法:object.Accept requestID 
object 所在处代表对象表达式,其值是WinSock控件的对象。 
数据类型:Long 
返回值:Void 
说明:在 ConnectionRequest 事件中使用 Accept 方法。ConnectionRequest 事件有一个对应的参数,即 RequestID 参数,该参数应该传给 Accept 方法。请看下例: 
Private Sub Winsock1_ConnectionRequest (ByVal requestID As Long) 
'测试 State 属性,如果当前连接是打开的话, 
'则关闭连接。 
If Winsock1.State <> sckClosed Then Winsock1.Close 
'将 requestID 参数值传递给 Accept 方法。 
Winsock1.Accept requestID 
End Sub 
应该在新的控件示例(不是侦听状态下的示例)中使用 Accept 方法。


四、Bind 方法 
指定用于 TCP 连接的 LocalPort 和 LocalIP。如果有多协议适配卡,就用这个方法。 
语法:object.Bind LocalPort, LocalIP 
Bind 方法的语法包含下面部分

部分 描述

object 对象表达式,其值是WinSock控件的对象。

LocalPort 用来建立连接的端口。

LocalIP 用来建立连接的本地 Internet 地址。

说明: 在调用 Listen 方法之前必须调用 Bind 方法。


五、BytesReceived 属性 
返回接收到的(当前在接收端缓冲区内的)数据的数量。使用 GetData 方法来获取数据。 
在设计时是只读的,而且是不可用的。 
语法:object.BytesReceived 
object 所在处代表一个对象表达式,其值是WinSock控件的对象。 
返回值:Long


六、Close 方法(Winsock 控件) 
对客户机和服务器应用程序关闭 TCP 连接或侦听套接字。 
语法:object.Close 
object 所在处代表对象表达式,其值是WinSock控件的对象。 
参数:None 
返回值:Void


七、Close 事件 
当远程计算机关闭连接时出现。应用程序应正确使用 Close 方法关闭 TCP 连接。 
语法:object_Close( ) 
object 所在处代表一个对象表达式,其值是WinSock控件的对象。 
参数:None

  
八、ConnectionRequest 事件 
当远程计算机请求连接时出现。

仅适用于 TCP 服务器应用程序。在请求一个新连接时激活该事件。激活事件之后,RemoteHostIP 和 RemotePort 属性存储有关客户的信息。

语法:object_ConnectionRequest (requestID As Long)

ConnectionRequest 的语法有包含下面部分:

部分 描述

object 对象表达式,其值是WinSock控件的对象。

RequestID 新连接请求标识。应把此参数传递给第二个控件示例上的 Accept 方法。

说明:服务器可决定是否接受连接。如果不接受新连接,则同级人员(客户)将得到 Close 事件。(在一个新控件示例上)用 Accept 方法接受新连接。


九、Connect 事件 (Winsock 控件) 
当连接操作完成后产生。

语法:object.Connect()

object 所在处代表一个对象表达式,其值为一个 Winsock 控件。

说明:使用 Connect 事件确认连接是否已经成功。


十、Error 事件 
无论何时,只要后台处理中出现错误(例如,连接失败,或者在后台收发数据失败)事件就会出现。

语法:object_Error(number As Integer, Description As String, Scode As Long, Source As String, HelpFile as String, HelpContext As Long, CancelDisplay As Boolean)

Error 事件的语法包含下面部分:

部分 描述

object 对象表达式,其值是WinSock控件的对象。

number 定义错误代码的整数。请参阅下述有关常数的“设置值”。

description 包含错误信息的字符串。

Scode 长 SCODE

Source 描述错误来源的字符串。

HelpFile 包含帮助文件名的字符串。

HelpContext Help 文件上下文。

CancelDisplay 指示是否取消显示。缺省值为 False,以此显示缺省的错误信息框。如果不想使用缺省的信息框,则将 CancelDisplay 设置成 True。

设置值

number 的设置值是:

具体代码只能由VIP查看,请升级


十一、GetData 方法(Winsock 控件) 
获取当前的数据块并将其存储在变体类型的变量中。

返回值:Void

语法:object.GetData data, [type,] [maxLen]

GetData 方法的语法包含下面部分:

部分 描述

object 对象表达式,其值是WinSock控件的对象。

data 在方法成功返回之后存储获取数据的地方。如果对请求的类型没有足够可用的数据,则将 data 设置成 Empty。

type 可选的。获取的数据类型,如下例“设置值”所示。

maxLen 可选的。在接收到字节数组或字符串时所需大小。如果对字节数组或字符串、参数丢失、则将获取所有可用数据。如果提供的数据类型不是字节数组或字符串,则忽略这个参数。

设置值

type 的设置值是:

描述 常数 描述 常数

Byte vbByte Integer vbInteger

Long vbLong Single vbSingle

Double vbDouble Currency vbCurrency

Date vbDate Boolean vbBoolean

SCODE vbError String vbString

Byte Array vbArray + vbByte

说明:通常总是将 GetData 方法与 DataArrival 事件并用,而 DataArrival 事件包含 totalBytes 参数。如果指定一个比 totalBytes 参数小的 maxlen,则将得到警告 10040,以此指出剩余的字节将丢失。


十二、Listen 方法 
创建套接字并将其设置为侦听模式。该方法仅适用于 TCP 连接。

语法:object.Listen

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

参数:None

返回值:Void

说明:当有新连接时就会出现 ConnectionRequest 事件。处理 ConnectionRequest 事件时,应用程序应该(在一个新的控件示例上)用 Accept 方法接受连接。


十三、LocalHostName 属性 
返回本地机器名。在设计时是只读的,而且是不可用的。

语法:object.LocalHostName

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

返回值:String


十四、LocalIP 属性 
返回本地机器的 IP 地址,格式是 IP 地址加点字符串 (xxx.xxx.xxx.xxx)。在设计时是只读的,而且是不可用的。

语法:object.LocalIP

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

数据类型:String


十五、LocalPort 属性 
返回或者设置所用到的本地端口。在设计时是可读/写的,而且是可用的。

对客户来说,该属性指定发送数据的本地端口。如果应用程序不需要特定端口,则指定 0 为端口号。在这种情况下,控件将选择一个随机端口。在建立起连接之后,这就是用于 TCP 连接的本地端口。

对于服务器来说,这是用于侦听的本地端口。如果指定的是端口 0,就使用一个随机端口。在调用了 Listen 方法后,属性就包含了已选定的实际端口。

语法:object.LocalPort = long

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

数据类型:Long

说明:在计算机之间常用端口 0 来动态地建立连接。例如,一个客户希望服务器给他“回电话”,它就可用端口 0 获得新的(随机)端口号,然后将该端口号交给远程计算机,从而达到目的。


十六、Name 属性 
返回在代码中用于标识窗体、控件、或数据访问对象的名字。在运行时是只读的。

返回或设置字体对象的名字。

语法:object.Name

object 所在处代表一个对象表达式,其值是WinSock控件的对象。如果 object 被删去,则与活动窗体模块相联系的窗体被认为是 object。

说明:新对象的缺省名字由对象类型加上一个唯一的整数组成。例如,第一个新的 Form 对象是 Form1, 一个新的 MDIForm 对象是 MDIForm1,以及在窗体上创建的第三个 TextBox 控件是 Text3。

一个对象的 Name 属性必须以一个字母开始并且最长可达 40 个字符。它可以包括数字和带下划线 (_) 的字符,但不能包括标点符号或空格。窗体不能具有与别的公共对象相同的名字,例如 Clipboard、Screen 或 App。虽然 Name 属性设置可以是一个关键字、属性名字、或别的对象的名字,但这会在你的代码中产生冲突。能够在运行时与 Dim 语句一起使用一个窗体的 Name 属性,以此创建该窗体的其它实例。在设计时不能有两个窗体有相同的名字。能够通过设置 Name 属性为相同的值来创建相同类型的控件数组。例如,当将群组中的所有选项按钮的名字设置为 MyOpt 时,Visual Basic 将为每个控件的 Index 属性分配一个唯一的值以便使数组中的控件相互区分。不同类型的两个控件不能共享相同的名字。

注意 虽然 Visual Basic 经常将 Name 属性设置作为 Caption、LinkTopic 和 Text 属性的缺省值使用,但是这些属性中一个的改变对别的属性并没有影响。


十七、Parent 属性 
返回包含控件、或其它对象或者集合的窗体、对象、或集合。

语法:object.Parent

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

说明:使用 Parent 属性可访问一个对象的父亲的属性、方法、或控件。例如:

MyButton.Parent.MousePointer = 4

Parent 属性在应用程序中是很有用的,其中可将对象作为参数来传递。例如,可以传递一个控件变量给模块中的一个一般的过程,并使用 Parent 属性访问其父窗体。 在 Parent 属性和 MDIChild 属性之间没有任何联系。尽管如此,但在一个 MDIForm 对象和任何已经将其 MDIChild 属性设为 True 的 Form 对象之间仍有父-子关系。


十八、PeekData 方法 
PeekData 不从输入队列删除数据,除了这一点之外,方法与 GetData 相似。该方法仅适用于 TCP 连接。

语法: object.PeekData data, [type,] [maxLen]

PeekData 方法的语法包含下面部分:

部分 描述

object 对象表达式,其值是WinSock控件的对象。

data 在方法成功地返回之后存储获取的数据。如果对于没有足够的适于所请求的类型来说没有足够可用的数据,那么 data 将被设置为 Empty。

type 可选的。所获取的数据类型,如同“设置值”中所述。缺省值为:vbArray + vbByte。

maxLen 可选的。在收到字节数组或字符串时,长度指定了所需要的大小。如果对字节数组或字符串的参数丢失,则将获取所有可用的数据。如果提供的数据类型不是字节数组和字符串的话,则忽略该参数。

设置值

type 的设置值是: 
描述 常数

Byte vbByte

Integer vbInteger

Long vbLong

Single vbSingle

Double vbDouble

Currency vbCurrency

Date vbDate

Boolean vbBoolean

SCODE vbError

String vbString

Byte Array vbArray + vbByte

返回值:Void

说明:如果所指定的类型为 vbString,则在返回到用户之前,字符串数据将转化成 UNICODE。


十九、Protocol 属性(Winsock 控件) 
返回或设置 Winsock 控件所使用的协议— 或者是 TCP,或者是 UDP。

语法:object.Protocol [=protocol]

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

设置值

protocol 的设置值是:

常数 值 描述

sckTCPProtocol 0 缺省的。TCP 协议。

sckUDPProtocol 1 UDP协议。

返回值:Void

说明:在能够重新设置属性之前必须(用 Close 方法)关闭控件。


二十、RemoteHost 属性(ActiveX控件) 
返回或设置控件发送或接收数据的远程计算机。可以提供直接名如http://www.baidu.com/,或提供IP地址如“202.99.14.22”。

语法: object.RemoteHost = string

RemoteHost属性语法有以下几部分:

部分 描述

Object 对象表达式,其值是WinSock控件的对象。

String 远程计算机的名字或IP地址。

数据类型:String

说明:当指定了该属性时,URL属性跟着更新以便反映新值。并且,如果URL的协议部分更新了,RemoteHost属性也跟着更新以便反映新值。使用OpenURL和Execute方法会改变该属性的值。


二十一、RemoteHostIP 属性 
返回远程机器的 IP 地址。

对于客户应用程序来说,已经用 Connect 方法建立连接后,属性就包含了远程机器的 IP 字符串。对于服务器应用程序来说,在请求连接(ConnectionRequest 事件)之后,属性包含远程计算机的 IP 字符串,该字符串启动了连接。当使用 UDP 协议时,在 DataArrival 事件出现之后,属性包含了发送 UDP 数据的计算机的 IP 地址。

语法:object.RemoteHostIP

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

数据类型:String


二十二、RemotePort 属性(ActiveX控件) 
设置或返回要连接的远程端口号。

语法:object.RemotePort = port

RemotePort属性语法有以下几部分:

部分 描述

object 对象表达式,其值是WinSock控件的对象。

Port 要连接的端口号。缺省值是80。

数据类型:Long

说明:当设置Protocol属性时,RemotePort属性也自动为每种协议设置相应的缺省端口。

下表列出了缺省的端口:

端口号 描述

80 HTTP,通常用于World Wide Web连接。

21 FTP


二十三、SendComplete 事件 
在完成一个发送操作时出现。

语法:object_SendComplete

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

参数:None


二十四、SendData 方法 
将数据发送给远程计算机。

返回值:Void

语法:object.SendData data

SendData 方法的语法有下面这些部分:

部分 描述

Object 对象表达式,其值是WinSock控件的对象。

data 要发送的数据。对于二进制数据应使用字节数组。

说明 当传进 UNICODE 字符串并在网络上发送出去之前,将转化成 ANSI 字符串。


二十五、SendProgress 事件 
在发送数据期间出现。

语法:object_SendProgress (bytesSent As Long, bytesRemaining As Long)

SendProgress 事件的语法包含下面部分:

部分 描述

object 对象表达式,其值是WinSock控件的对象。

bytesSent 从上次激活事件以来已发送的字节数。

bytesRemaining 在发送缓冲区等待发送时的字节数。


二十六、SocketHandle 属性 
返回一个与套接字句柄对应的值,控件用套接字句柄同 Winsock 层通信。在设计时是只读的,而且是不可用的。

语法:object.SocketHandle

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

数据类型Long

说明:这个属性是为了传递到 Winsock APIs 而设计的。


二十七、State 属性(Winsock 控件) 
返回控件的状态,用枚举类型来表示。在设计时是只读的,而且是不可用的。

语法:object.State

object 所在处代表一个对象表达式,其值是WinSock控件的对象。

数据类型:Integer

设置值

State 属性的设置值是:

具体代码只能由VIP查看,请升级

先在一台计算机上运行服务器程序,此时窗口上只有一个“退出”按钮。 再在另一台计算机上运行客户机程序,在“连接”按钮右边的文本框中输入服务器的主机名后单击“连接”按钮。如果连接成功,则服务器和客户机程序窗口都会出 现两个文本框。这时,两端都可以在上面的文本框中输入文字,这些文字会立即在下面的文本框中出现。

服务器程序使用的控件如下:
(1)Command1:退出按钮;
(2)textsend:发送数据文本框;
(3)Winsockserver: 服务器Winsock;
(4)textget :接收数据文本框。
服务器程序的界面如图所示。
服务器程序的源代码如下:

具体代码只能由VIP查看,请升级

客户机程序使用的控件如下:
(1)Command1:退出按钮;
(2)Command2:连接按钮;
(3)Winsockclient:客户Winsock;
(4)Text1:主机名文本框;
(5)Textsend:发送数据文本框;
(6)Textget:接收数据文本框;
客户机程序的源代码如下:

具体代码只能由VIP查看,请升级


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com