VBSocket编程框架
VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序)
UDP协议用Bind TCP协议用Listen 用bind方法可以有两个参数,一个是绑定本地ip,另一个是绑定本地端口,而winsock用udp协议则是必须绑定ip和端口 用tcp只绑定端口即可 Winsock 控件对用户来说是不可见的,它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序,不必了解 TCP 的细节或调用低级的 Winsock API。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去,并且还可双向交换数据。 部分 描述 object 对象表达式,其值是WinSock控件的对象。 LocalPort 用来建立连接的端口。 LocalIP 用来建立连接的本地 Internet 地址。 说明: 在调用 Listen 方法之前必须调用 Bind 方法。 仅适用于 TCP 服务器应用程序。在请求一个新连接时激活该事件。激活事件之后,RemoteHostIP 和 RemotePort 属性存储有关客户的信息。 语法:object_ConnectionRequest (requestID As Long) ConnectionRequest 的语法有包含下面部分: RequestID 新连接请求标识。应把此参数传递给第二个控件示例上的 Accept 方法。 说明:服务器可决定是否接受连接。如果不接受新连接,则同级人员(客户)将得到 Close 事件。(在一个新控件示例上)用 Accept 方法接受新连接。 语法:object.Connect() object 所在处代表一个对象表达式,其值为一个 Winsock 控件。 说明:使用 Connect 事件确认连接是否已经成功。 语法:object_Error(number As Integer,Description As String,Scode As Long,Source As String,HelpFile as String,HelpContext As Long,CancelDisplay As Boolean) Error 事件的语法包含下面部分: number 定义错误代码的整数。请参阅下述有关常数的“设置值”。 description 包含错误信息的字符串。 Scode 长 SCODE Source 描述错误来源的字符串。 HelpFile 包含帮助文件名的字符串。 HelpContext Help 文件上下文。 CancelDisplay 指示是否取消显示。缺省值为 False,以此显示缺省的错误信息框。如果不想使用缺省的信息框,则将 CancelDisplay 设置成 True。 设置值 number 的设置值是: sckOutOfMemory 7 内存不足 sckInvalidPropertyValue 380 属性值无效。 sckGetNotSupported 394 属性不可读。 sckSetNotSupported 383 属性是只读的。 sckBadState 40006 所请求的事务或请求本身的错误协议或者错误连接状态。 sckInvalidArg 40014 传递给函数的参数格式不确定,或者不在指定范围内。 sckSuccess 40017 成功。 sckUnsupported 40018 不受支持的变量类型。 sckInvalidOp 40020 在当前状态下的无效操作 sckOutOfRange 40021 参数越界。 sckWrongProtocol 40026 所请求的事务或请求本身的错误协议 sckOpCanceled 1004 取消操作。 sckInvalidArgument 10014 所请求的地址是广播地址,但未设置标记 sckWouldBlock 10035 套接字不成块,而指定操作将使之成块。 sckInProgress 10036 制造块的 Winsock 操作在进行之中。 sckAlreadyComplete 10037 完成操作。未进行制造块的操作。 sckNotSocket 10038 描述符不是套接字。 sckMsgTooBig 10040 数据报太大,不适于缓冲区的要求,因而被截断。 sckPortNotSupported 10043 不支持指定的端口。 sckAddressInUse 10048 地址在使用中。 SckAddressNotAvailable 10049 来自本地机器的不可用地址。 SckNetworkSubsystemFiled 10050 网络子系统失败。 sckNetworkUnreachable 10051 此时不能从主机到达网络。 sckNetReset 10052 在设置SO_KEEPALIVE 时连接超时。 sckConnectAborted 11053 由于超时或者其它失败而中止连接。 sckConnectionReset 10054 通过远端重新设置连接。 SckNoBufferSpace 10055 没有可用的缓冲空间。 SckAlreadyConnected 10056 已连接套接字。 SckNotConnected 10057 未连接套接字。 SckSocketShutdown 10058 已关闭套接字。 sckTimedout 10060 已关闭套接字。 sckConnectionRefused 10061 强行拒绝连接。 sckNotInitialized 10093 应首先调用 WinsockInit。 sckHostNotFound 11001 授权应答:未找到主机。 SckHostNotFoundTryAgain 11002 非授权应答:未找到主机。 SckNonRecoverableError 11003 不可恢复的错误。 SckNoData 11004 无效名,对所请求的类型无数据记录。 返回值:Void 语法:object.GetData data,[type,] [maxLen] GetData 方法的语法包含下面部分: 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,以此指出剩余的字节将丢失。 语法:object.Listen object 所在处代表一个对象表达式,其值是WinSock控件的对象。 参数:None 返回值:Void 说明:当有新连接时就会出现 ConnectionRequest 事件。处理 ConnectionRequest 事件时,应用程序应该(在一个新的控件示例上)用 Accept 方法接受连接。 语法:object.LocalHostName 返回值:String 语法:object.LocalIP 数据类型:String 对客户来说,该属性指定发送数据的本地端口。如果应用程序不需要特定端口,则指定 0 为端口号。在这种情况下,控件将选择一个随机端口。在建立起连接之后,这就是用于 TCP 连接的本地端口。 对于服务器来说,这是用于侦听的本地端口。如果指定的是端口 0,就使用一个随机端口。在调用了 Listen 方法后,属性就包含了已选定的实际端口。 语法:object.LocalPort = long 数据类型:Long 说明:在计算机之间常用端口 0 来动态地建立连接。例如,一个客户希望服务器给他“回电话”,它就可用端口 0 获得新的(随机)端口号,然后将该端口号交给远程计算机,从而达到目的。 返回或设置字体对象的名字。 语法: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 属性的缺省值使用,但是这些属性中一个的改变对别的属性并没有影响。 语法:object.Parent 说明:使用 Parent 属性可访问一个对象的父亲的属性、方法、或控件。例如: MyButton.Parent.MousePointer = 4 Parent 属性在应用程序中是很有用的,其中可将对象作为参数来传递。例如,可以传递一个控件变量给模块中的一个一般的过程,并使用 Parent 属性访问其父窗体。 在 Parent 属性和 MDIChild 属性之间没有任何联系。尽管如此,但在一个 MDIForm 对象和任何已经将其 MDIChild 属性设为 True 的 Form 对象之间仍有父-子关系。 语法: object.PeekData data,sans-serif; font-size:14px; line-height:25.1875px"> PeekData 方法的语法包含下面部分: 部分描述 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 说明:如果所指定的类型为 vbString,则在返回到用户之前,字符串数据将转化成 UNICODE。 语法:object.Protocol [=protocol] protocol 的设置值是: 常数 值 描述 sckTCPProtocol 0 缺省的。TCP 协议。 sckUDPProtocol 1 UDP协议。 说明:在能够重新设置属性之前必须(用 Close 方法)关闭控件。 语法: object.RemoteHost = string RemoteHost属性语法有以下几部分: Object 对象表达式,其值是WinSock控件的对象。 String 远程计算机的名字或IP地址。 说明:当指定了该属性时,URL属性跟着更新以便反映新值。并且,如果URL的协议部分更新了,RemoteHost属性也跟着更新以便反映新值。使用OpenURL和Execute方法会改变该属性的值。 对于客户应用程序来说,已经用 Connect 方法建立连接后,属性就包含了远程机器的 IP 字符串。对于服务器应用程序来说,在请求连接(ConnectionRequest 事件)之后,属性包含远程计算机的 IP 字符串,该字符串启动了连接。当使用 UDP 协议时,在 DataArrival 事件出现之后,属性包含了发送 UDP 数据的计算机的 IP 地址。 语法:object.RemoteHostIP 语法:object.RemotePort = port RemotePort属性语法有以下几部分: Port 要连接的端口号。缺省值是80。 说明:当设置Protocol属性时,RemotePort属性也自动为每种协议设置相应的缺省端口。 下表列出了缺省的端口: 端口号 描述 80 HTTP,通常用于World Wide Web连接。 21 FTP 语法:object_SendComplete 语法:object.SendData data SendData 方法的语法有下面这些部分: data 要发送的数据。对于二进制数据应使用字节数组。 说明 当传进 UNICODE 字符串并在网络上发送出去之前,将转化成 ANSI 字符串。 语法:object_SendProgress (bytesSent As Long,bytesRemaining As Long) SendProgress 事件的语法包含下面部分: bytesSent 从上次激活事件以来已发送的字节数。 bytesRemaining 在发送缓冲区等待发送时的字节数。 语法:object.SocketHandle 数据类型Long 说明:这个属性是为了传递到 Winsock APIs 而设计的。 语法:object.State 数据类型:Integer State 属性的设置值是: SckClosed 0 缺省的。关闭 SckOpen 1 打开 SckListening 2 侦听 SckConnectionPending 3 连接挂起 SckResolvingHost 4 识别主机 SckHostResolved 5 已识别主机 SckConnecting 6 正在连接 SckConnected 7 已连接 SckClosing 8 同级人员正在关闭连接 SckError 9 错误
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |