包含vb.netpeek的词条

VB怎么实现更新程序

wstr = Inet1.OpenURL("")

If wstr "" And wstr "v1.0" Then

a = MsgBox("你好,检查到远程有升级程序,是否更新?", vbOKCancel, "提示")

If a = 1 Then '确定更新

DownFile

End If

ElseIf wstr = "" Or wstr = "v1.0" Then

MsgBox "当前此版本为最新程序,若有建议请联系QQ:121734199", vbOKOnly, "提示"

End If

Private Sub DownFile()

If ii = 0 Then

strURL = "小说.exe"

mstrFileName = App.Path "\小说_v1.0.exe"

ElseIf ii = 1 Then

strURL = "更名器.exe"

mstrFileName = App.Path "\更名器.exe"

Else

Shell App.Path "\更名器.exe", vbHide

End

End If

mblnPutStart = False

With Winsock1

If .State sckClosed Then .Close

.Protocol = sckTCPProtocol

.RemoteHost = Split(Replace(strURL, "http://", ""), "/")(0)

.RemotePort = 80

.Connect

End With

End Sub

Private Sub Winsock1_Connect()

Dim s As String

s = "GET " + strURL + " HTTP/1.0" + vbCrLf

s = s + "Accept: */*" + vbCrLf

s = s "Pragma: no-cache" vbCrLf

s = s "Cache-Control: no-cache" vbCrLf

s = s "Connection: close" vbCrLf vbCrLf

s = s + vbCrLf

Winsock1.SendData s

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim RevData() As Byte

Dim a() As Byte, b() As String, c() As String

Dim s As String, i As Long, k As Long

On Error GoTo fail

If mblnPutStart = False Then

Winsock1.PeekData RevData, vbArray Or vbByte

k = InStrB(1, RevData, ChrB(13) ChrB(10) ChrB(13) ChrB(10))

If k 0 Then

Winsock1.GetData RevData, vbArray Or vbByte

a = LeftB(RevData, k - 1)

RevData = MidB(RevData, k + 4)

s = StrConv(a, vbUnicode)

b = Split(s, vbCrLf)

If InStr(1, b(0), "200 OK", vbTextCompare) = 0 Then GoTo fail

For i = 1 To UBound(b)

c = Split(b(i), ": ")

Select Case c(0)

Case "Content-Length"

mlngFileLen = CLng(c(1))

End Select

Next

mblnPutStart = True

mlngCurByte = UBound(RevData) + 1

mlngFileNum = FreeFile

Open mstrFileName For Binary As #mlngFileNum

Else

Exit Sub

End If

Else

Winsock1.GetData RevData, vbArray Or vbByte

mlngCurByte = mlngCurByte + bytesTotal

End If

Put #mlngFileNum, , RevData

Label3.Caption = "已下载字节:" mlngCurByte "/" mlngFileLen

If mlngCurByte = mlngFileLen Then

Close #mlngFileNum

ii = ii + 1

DownFile

End If

Exit Sub

fail:

MsgBox "网络传输错误，文件下载失败！"

End Sub

相关问答

Q1: visual basic 2008里怎么添加fso对象？vb6.0知道，2008不懂啊～

添加 Imports System.IO 就可以读写vb.netpeek了。

Dim line As String

Dim sr As StreamReader = New StreamReader(strPath,System.Text.Encoding.Default)

Do While sr.Peek() 0

line = sr.ReadLine()

Loop

sr.Close()

sr = Nothing

Q2: 高分VB6.0的问题 远程高手进

VB网络编程--WinSock控件及WinSockAPI

WinSock简介

Socket（套接字）最初是由加利福尼亚大学Berkeley（伯克利）分校为UNIX操作系统开发的网络通信接口，随着UNIX的广泛使用，Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初，由Sun Microsystems,JSB,FTP software,Microdyne和Microsoft等几家公司共同定制了一套标准，即Windows Socket规范，简称WinSock。

VB编写网络程序主要有两种方式：1.winsock控件 2.winsockAPI

二，WinSock控件的使用

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控件当前的状态

常数 值 描述

sckClosed 0 缺省值，关闭。

SckOpen 1 打开。

SckListening 2 侦听

sckConnectionPending 3 连接挂起

sckResolvingHost 4 识别主机。

sckHostResolved 5 已识别主机

sckConnecting 6 正在连接。

sckConnected 7 已连接。

sckClosing 8 同级人员正在关闭连接。

sckError 9 错误

2.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 data,[type,][maxLen]

它从缓冲区中取得最长为maxLen的数据，并以type类型存放在data中，GetData取得数据后，就把相应的缓冲区清空。

g.PeekData方法

和GetData方法类似，但PeekData在取得数据后并不把缓冲区清空。

3.Winsock控件主要事件

a.ConnectRequest事件

当本地计算机接收到远程计算机发送的连接请求时，控件的ConnectRequest事件将会被触发。

b.SendProgress事件

当一端的计算机正在向另一端的计算机发送数据时，SendProgress事件将被触发。SendProgress事件记录了当前状态下已发送的字节数和剩余字节数。

c.SendComplete事件

当所有数据发送完成时，被触发。

d.DataArrival事件

当建立连接后，接受到了新数据就会触发这个事件。注意：如果在接受到新数据前，缓冲区中非空，就不会触发这个事件。

e.Error事件

当在工作中发生任何错误都会触发这个事件。

例子见附件

三，WinSockAPI的使用

1.WSAStartup 函数

为了在你的应用程序当中调用任何一个Winsock API 函数，首先第一件事情你就是必须通过WSAStartup函数完成对Winsock 服务的初始化，因此需要调用WSAStartup函数。

Declare Function WSAStartup Lib "ws2_32.dll" _

(ByVal wVersionRequired As Long, lpWSAData As WSAData) As Long

这个函数有两个参数： wVersionRequired 和 lpWSAData。wVersionRequired 参数定义Windows Sockets 提供能使用的最高版本，它的高位字节定义的是次版本号，低位字节定义的是主版本号。下面的2个Winsock版本在VB中使用的例子：

初始化1.1版本

lngRetVal = WSAStartup(H101, udtWinsockData)

初始化2.2版本

lngRetVal = WSAStartup(H202, udtWinsockData)

第二个参数是WSADATA 的数据结构 ，它是接收Windows Sockets 执行时的数据。

Type WSAData

wVersion As Integer

wHighVersion As Integer

szDescription As String * WSADESCRIPTION_LEN

szSystemStatus As String * WSASYS_STATUS_LEN

iMaxSockets As Integer

iMaxUdpDg As Integer

lpVendorInfo As Long

End Type

数据成员的描述在下表中：

Field 描述

wVersion Windows Sockets 版本信息。

wHighVersion 通过加载库文件得到的最高的支持Winsock 的版本，

它通常和wVersion值相同。

szDescription Windows Sockets 执行时的详细描述

szSystemStatus 包含了相关的状态和配置的信息

iMaxSockets 表示同时打开的socket最大数，为0表示没有限制。

iMaxUdpDg 表示同时打开的数据报最大数，为0表示没有限制。

lpVendorInfo 厂商指定信息预留

在Winsock的1.1和2.2版本中没有lpVendorInfo的返回值。因为winsock 2支持多个传输协议，所以iMaxSockets 和iMaxUdpDg只能在仅支持TCP/TP的winsock1.1中使用。为了在Winsock 2中获得这些值，你可以使用WSAEnumProtocols 函数。

如果成功或者返回一个错误代码，则函数返回 0。

错误代码 含义

WSASYSNOTREADY 指出网络没有为传输准备好。

WSAVERNOTSUPPORTED 当前的WinSock实现不支持应用程序指定的Windows Sockets规范版本

WSAEINPROGRESS 一个阻塞WinSock调用正在进行

WSAEPROCLIM 请求的协议没有在系统中配置或没有支持它的实现存在。

WSAEFAULT lpWSAData 不是有效的指针

2.WSACleanup 函数

每次调用了WSAStartup函数，你都需要调用WSACleanup函数，通知系统来卸载库文件及清除已分配的资源，这个函数十分简单，没有任何参数：

Declare Function WSACleanup Lib "ws2_32.dll" () As Long

3.建立Socket函数

Declare Function socket Lib "ws2_32.dll" (ByVal af As Long, _

ByVal s_type As Long,

ByVal Protocol As Long) As Long

函数有3个参数定义建立何种socket，三个参数分别是：

Argument Description Enum Type

af Address family specification. AddressFamily

s_type Type specification for the new socket. SocketType

Protocol Protocol to be used with the socket SocketProtocol

that is specific to the indicated address

family.

AddressFamily:

AF_UNSPEC = 0 '/* unspecified */

AF_UNIX = 1 '/* local to host (pipes, portals) */

AF_INET = 2 '/* internetwork: UDP, TCP, etc. */

AF_IMPLINK = 3 '/* arpanet imp addresses */

AF_PUP = 4 '/* pup protocols: e.g. BSP */

AF_CHAOS = 5 '/* mit CHAOS protocols */

AF_NS = 6 '/* XEROX NS protocols */

AF_IPX = AF_NS '/* IPX protocols: IPX, SPX, etc. */

AF_ISO = 7 '/* ISO protocols */

AF_OSI = AF_ISO '/* OSI is ISO */

AF_ECMA = 8 '/* european computer manufacturers */

AF_DATAKIT = 9 '/* datakit protocols */

AF_CCITT = 10 '/* CCITT protocols, X.25 etc */

AF_SNA = 11 '/* IBM SNA */

AF_DECnet = 12 '/* DECnet */

AF_DLI = 13 '/* Direct data link interface */

AF_LAT = 14 '/* LAT */

AF_HYLINK = 15 '/* NSC Hyperchannel */

AF_APPLETALK = 16 '/* AppleTalk */

AF_NETBIOS = 17 '/* NetBios-style addresses */

AF_VOICEVIEW = 18 '/* VoiceView */

AF_FIREFOX = 19 '/* Protocols from Firefox */

AF_UNKNOWN1 = 20 '/* Somebody is using this! */

AF_BAN = 21 '/* Banyan */

AF_ATM = 22 '/* Native ATM Services */

AF_INET6 = 23 '/* Internetwork Version 6 */

AF_CLUSTER = 24 '/* Microsoft Wolfpack */

AF_12844 = 25 '/* IEEE 1284.4 WG AF */

AF_MAX = 26

Socket types:

SOCK_STREAM = 1 ' /* stream socket */

SOCK_DGRAM = 2 ' /* datagram socket */

SOCK_RAW = 3 ' /* raw-protocol interface */

SOCK_RDM = 4 ' /* reliably-delivered message */

SOCK_SEQPACKET = 5 ' /* sequenced packet stream */

Protocols:

IPPROTO_IP = 0 '/* dummy for IP */

IPPROTO_ICMP = 1 '/* control message protocol */

IPPROTO_IGMP = 2 '/* internet group management protocol */

IPPROTO_GGP = 3 '/* gateway^2 (deprecated) */

IPPROTO_TCP = 6 '/* tcp */

IPPROTO_PUP = 12 '/* pup */

IPPROTO_UDP = 17 '/* user datagram protocol */

IPPROTO_IDP = 22 '/* xns idp */

IPPROTO_ND = 77 '/* UNOFFICIAL net disk proto */

IPPROTO_RAW = 255 '/* raw IP packet */

IPPROTO_MAX = 256

该函数可以建立使用特定协议的网络套接字，例如对于UDP协议可以这样写：

s=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)

s=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)

4.关闭Socket函数

Declare Function closesocket Lib "ws2_32.dll" (ByVal s As Long) As Long

函数有一个参数为建立socket时的Handle

5.连接函数

Declare Function connect Lib "ws2_32.dll" (ByVal s As Long, _

ByRef name As sockaddr_in, _

ByVal namelen As Long) As Long

参数

s 连接的socket句柄。

name 建立连接的地址。

namelen 连接地址的长度。

返回值

成功时返回0。否则返回SOCKET_ERROR以及一个对应的错误号 Err.LastDllError。

显然在调用这个函数时我们需要知道socket句柄，将连接的电脑的端口号和主机名称（或主机IP地址）。我们知道Winsock 控件的Connect方法依靠两个变量：RemoteHost 和RemotePort。此方法不需要socket句柄，因其已经被封装在COM对象中。你也许认为connect函数应该也接受相同的变量设置，然而，事实并非如此。connect函数的主机地址和端口号的传送是依靠 sockaddr_in 结构。

Public Type sockaddr_in

sin_family As Integer

sin_port As Integer

sin_addr As Long

sin_zero(1 To 8) As Byte

End Type

6.套接字帮定函数

Declare Function bind Lib "ws2_32.dll" (ByVal s As Long, _

ByRef name As sockaddr_in, _

ByRef namelen As Long) As Long

s是使用Socket函数创建好的套接字，name指向描述通信对象的结构体的指针，namelen是该结构的长度。该结

构体中的分量包括：

IP地址：对应name.sin_addr.s_addr

端口号：对应name.sin_port

端口号用于表示同一台计算机上不同的进程（即应用程序），其分配方法有两种：

第一种分配方法是，进程让系统为套接字自动分配一端口号，这只要在调用bind前将端口号指定为0即可。由系统自动分配的端口号位于1024~5000之间，而1~1023之间的任一TCP或UDP端口都是保留的，系统不允许任一进程使用保留端口，除非其有效用户ID是零（即超级用户）。

第二种分配方法是，进程为套接字指定一特定端口。这对于需要给套接字分配一众所周知的端口的服务器是很有用的。指定范围在1024~65536之间。

地址类型：对应name.sin_family，一般都赋成AF_INET，表示是internet地址（即IP 地址）。IP地址通常使用点分表示法表示，但它事实上一个32位的长整数，这两者之间可通过inet_addr()函数转换。

7.套接字监听函数

Declare Function listen Lib "ws2_32.dll" (ByVal s As Long, ByVal backlog As Long) As Long

listen函数用来设定Socket为监听状态，这种状态表明Socket准备被连接了。注意，此函数一般在服务程序上使用，其中s是使用Socket函数创建好的套接字，backlog参数用于设定等待连接的客户端数。

8.接受连接请求

Declare Function accept Lib "ws2_32.dll" (ByVal s As Long, ByRef addr As sockaddr_in, _

ByRef addrlen As Long) As Long

服务端应用程序调用此函数来接受客户端Socket连接请求，accept()函数的返回值为一新的Socket，新Socket就可用来完成服务端和客户端之间的信息传递与接收，而原来Socket仍可以接受其他可户端的连接请求。

9.接收信息

Declare Function recv Lib "ws2_32.dll" (ByVal s As Long, _

ByRef buf As Any, _

ByVal buflen As Long, _

ByVal flags As Long) As Long

s 一个已连接的socket的识别符

buf 接受到的数据的缓冲区

len 缓冲区长度

flags 指定从哪调用的标识

第一个参数是socket的句柄-为socket函数返回值。那就是说：我们需要告诉recv函数，哪一个socket正访问函数。

第二个参数是:函数执行之后能装载一些数据的缓冲区。但它不是必须要有足够的长度接收Winsock缓冲区的所有数据，缓冲区的大小限制为8192 字节 (8 Kbytes)。因此如果Winsock缓冲区的数据的大小大于recv函数的缓冲区，你必需多次调用此函数，直到获取所有的数据。

如果应用程序定义缓冲区的长度，则recv函数必须知道缓冲区可以存放多少字节。第三个参数就是为了这个目的。

最后一个参数是可选的，今天我们不使用。该参数有两个选择标志: MSG_PEEK 和 MSG_OOB，用于改变函数的行为。

MSG_PEEK 从输入数据中取数。数据拷入缓冲区，但不从输入队列中移走。函数返回当前准备接收的字节数。

MSG_OOB 处理OOB（Out-of-band带外）数据。在网络上有两种类型的数据包，正常包和带外包。带外包可以通过检验一个TCP/IP包头的一个特定标志来决定。

10.发送信息

Declare Function send Lib "ws2_32.dll" (ByVal s As Long, _

ByRef buf As Any, _

ByVal buflen As Long, _

ByVal flags As Long) As Long

参数参看接收信息

四，服务器与客户机交互

目前最常用的方法是：服务程序在一个众所周知的地址（其中包括端口信息）监听对服务的请求，也就是说，服务进程一直处于休眠状态，直到一个客户对这个服务的地址提出了连接请求。这个时刻，服务程序被唤醒并对客户的请求作出适当的反应。注意，服务器与客户机之间的交互可以是面向连接的（基于流套接字），也可以是无连接的（基于数据报套接字）。

服务器

socket()

|

bind()

|

listen() 客户机

|

| socket()

| 建立连接 |

accept() ------------------------- connect()

| 请求数据 |

recv() ----------------------------- send()

| |

处理服务请求 |

| 应答数据 |

send() ------------------------------ recv()

| |

close() close()

五，其他

比较：WinSock控件

优点：使用简单，工作量小。

缺点：功能少仅支持TCP,UDP协议，需要WinSock控件（系统默认安装不带MSWINSCK.OCX文件）

适合于初学者

WinSockAPI

优点：功能强大，支持多种协议，使用灵活，WinSockAPI调用的wsock32.dll（28K）或ws2_32.dll（69K）为Windows系统自带函数库不必担心缺少文件。

缺点：使用复杂，编程量大，需要一定基础

适合于要求较高的网络程序

Q3: 关于VB中现实的操作

只会第二个：

和其vb.netpeek他电脑或局域网通信可使用Winsock控件,LZ主要用到的控件方法包括:.Connect(发起连接).listen(监听端口).accept(接受一个连接).send(发送数据).Close(关闭连接);主要事件包括_Connected(连接上目标)_Connectrequest(监听端口有连接请求时触发)_Dataarrival(有数据到达时触发)：

1.VB控件winsock是个运行中不可件的控件,常用属性如下:

byte received 接收到的字节数

local hostname 本地机器名

Local IP 本地IP地址

Local port 本地通信程序的端口

Remote host 远程机器名

Remote host IP 远程IP地址

Remote port 远程通信程序端口

Socket handle 提供调用API得句柄参数

State 连接得当前状态

Protocol 使用协议

Bytereceived：反应接收到得数据量vb.netpeek，以字节为单位。

State:返回当前连接状态

0 关闭状态

1 打开状态

2 监听状态

3 连接挂起

4 解析域名

5 正在连接

6 以建立连接

7 正在关闭

8 出错

2.控件

accept接受一个连接请求。格式：对象.accept request ID

bind：多协议接口下vb.netpeek，把接口卡vb.netpeek，IP地址捆绑再一起。格式：对象。Bina端口号vb.netpeek，ip地址

close：关闭连接。格式：对象。Close

connect：发送连接请求。格式：对象。Connect〔ip，远程端口〕

getdata：取出数据后清除缓冲区。

Peekdata：取出数据后不清楚缓冲区。格式：对象。Getdata（peekdata）变量〔，数据类型〔，最大长度〕〕

Listen：侦听。格式：对象。Listen

Senddata：发送数据。格式：对象。Senddata

3．控件事件

Close 远程设备关闭连接时触发事件

Connect 建立连接，进行通信时触发

Connectrequest 有连接请求时触发

Data arrival 有数据到达时触发

Error 错误时触发

Send complete 完成一次数据传送触发

Send progress 数据传送进度

Q4: 求VB WINSOCKAPI的完整的函数

一，WinSock简介

Socket（套接字）最初是由加利福尼亚大学Berkeley（伯克利）分校为UNIX操作系统开发的网络通信接口，随着UNIX的广泛使用，Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初，由Sun Microsystems,JSB,FTP software,Microdyne和Microsoft等几家公司共同定制了一套标准，即Windows Socket规范，简称WinSock。

VB编写网络程序主要有两种方式：1.winsock控件 2.winsockAPI

二，WinSock控件的使用

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控件当前的状态

常数 值 描述

sckClosed 0 缺省值，关闭。

SckOpen 1 打开。

SckListening 2 侦听

sckConnectionPending 3 连接挂起

sckResolvingHost 4 识别主机。

sckHostResolved 5 已识别主机

sckConnecting 6 正在连接。

sckConnected 7 已连接。

sckClosing 8 同级人员正在关闭连接。

sckError 9 错误

2.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 data,[type,][maxLen]

它从缓冲区中取得最长为maxLen的数据，并以type类型存放在data中，GetData取得数据后，就把相应的缓冲区清空。

g.PeekData方法

和GetData方法类似，但PeekData在取得数据后并不把缓冲区清空。

3.Winsock控件主要事件

a.ConnectRequest事件

当本地计算机接收到远程计算机发送的连接请求时，控件的ConnectRequest事件将会被触发。

b.SendProgress事件

当一端的计算机正在向另一端的计算机发送数据时，SendProgress事件将被触发。SendProgress事件记录了当前状态下已发送的字节数和剩余字节数。

c.SendComplete事件

当所有数据发送完成时，被触发。

d.DataArrival事件

当建立连接后，接受到了新数据就会触发这个事件。注意：如果在接受到新数据前，缓冲区中非空，就不会触发这个事件。

e.Error事件

当在工作中发生任何错误都会触发这个事件。

例子见附件

三，WinSockAPI的使用

1.WSAStartup 函数

为了在你的应用程序当中调用任何一个Winsock API 函数，首先第一件事情你就是必须通过WSAStartup函数完成对Winsock 服务的初始化，因此需要调用WSAStartup函数。

Declare Function WSAStartup Lib "ws2_32.dll" _

(ByVal wVersionRequired As Long, lpWSAData As WSAData) As Long

这个函数有两个参数： wVersionRequired 和 lpWSAData。wVersionRequired 参数定义Windows Sockets 提供能使用的最高版本，它的高位字节定义的是次版本号，低位字节定义的是主版本号。下面的2个Winsock版本在VB中使用的例子：

初始化1.1版本

lngRetVal = WSAStartup(H101, udtWinsockData)

初始化2.2版本

lngRetVal = WSAStartup(H202, udtWinsockData)

第二个参数是WSADATA 的数据结构 ，它是接收Windows Sockets 执行时的数据。

Type WSAData

wVersion As Integer

wHighVersion As Integer

szDescription As String * WSADESCRIPTION_LEN

szSystemStatus As String * WSASYS_STATUS_LEN

iMaxSockets As Integer

iMaxUdpDg As Integer

lpVendorInfo As Long

End Type

数据成员的描述在下表中：

Field 描述

wVersion Windows Sockets 版本信息。

wHighVersion 通过加载库文件得到的最高的支持Winsock 的版本，

它通常和wVersion值相同。

szDescription Windows Sockets 执行时的详细描述

szSystemStatus 包含了相关的状态和配置的信息

iMaxSockets 表示同时打开的socket最大数，为0表示没有限制。

iMaxUdpDg 表示同时打开的数据报最大数，为0表示没有限制。

lpVendorInfo 厂商指定信息预留

在Winsock的1.1和2.2版本中没有lpVendorInfo的返回值。因为winsock 2支持多个传输协议，所以iMaxSockets 和iMaxUdpDg只能在仅支持TCP/TP的winsock1.1中使用。为了在Winsock 2中获得这些值，你可以使用WSAEnumProtocols 函数。

如果成功或者返回一个错误代码，则函数返回 0。

错误代码 含义

WSASYSNOTREADY 指出网络没有为传输准备好。

WSAVERNOTSUPPORTED 当前的WinSock实现不支持应用程序指定的Windows Sockets规范版本

WSAEINPROGRESS 一个阻塞WinSock调用正在进行

WSAEPROCLIM 请求的协议没有在系统中配置或没有支持它的实现存在。

WSAEFAULT lpWSAData 不是有效的指针

2.WSACleanup 函数

每次调用了WSAStartup函数，你都需要调用WSACleanup函数，通知系统来卸载库文件及清除已分配的资源，这个函数十分简单，没有任何参数：

Declare Function WSACleanup Lib "ws2_32.dll" () As Long

3.建立Socket函数

Declare Function socket Lib "ws2_32.dll" (ByVal af As Long, _

ByVal s_type As Long,

ByVal Protocol As Long) As Long

函数有3个参数定义建立何种socket，三个参数分别是：

Argument Description Enum Type

af Address family specification. AddressFamily

s_type Type specification for the new socket. SocketType

Protocol Protocol to be used with the socket SocketProtocol

that is specific to the indicated address

family.

AddressFamily:

AF_UNSPEC = 0 '/* unspecified */

AF_UNIX = 1 '/* local to host (pipes, portals) */

AF_INET = 2 '/* internetwork: UDP, TCP, etc. */

AF_IMPLINK = 3 '/* arpanet imp addresses */

AF_PUP = 4 '/* pup protocols: e.g. BSP */

AF_CHAOS = 5 '/* mit CHAOS protocols */

AF_NS = 6 '/* XEROX NS protocols */

AF_IPX = AF_NS '/* IPX protocols: IPX, SPX, etc. */

AF_ISO = 7 '/* ISO protocols */

AF_OSI = AF_ISO '/* OSI is ISO */

AF_ECMA = 8 '/* european computer manufacturers */

AF_DATAKIT = 9 '/* datakit protocols */

AF_CCITT = 10 '/* CCITT protocols, X.25 etc */

AF_SNA = 11 '/* IBM SNA */

AF_DECnet = 12 '/* DECnet */

AF_DLI = 13 '/* Direct data link interface */

AF_LAT = 14 '/* LAT */

AF_HYLINK = 15 '/* NSC Hyperchannel */

AF_APPLETALK = 16 '/* AppleTalk */

AF_NETBIOS = 17 '/* NetBios-style addresses */

AF_VOICEVIEW = 18 '/* VoiceView */

AF_FIREFOX = 19 '/* Protocols from Firefox */

AF_UNKNOWN1 = 20 '/* Somebody is using this! */

AF_BAN = 21 '/* Banyan */

AF_ATM = 22 '/* Native ATM Services */

AF_INET6 = 23 '/* Internetwork Version 6 */

AF_CLUSTER = 24 '/* Microsoft Wolfpack */

AF_12844 = 25 '/* IEEE 1284.4 WG AF */

AF_MAX = 26

Socket types:

SOCK_STREAM = 1 ' /* stream socket */

SOCK_DGRAM = 2 ' /* datagram socket */

SOCK_RAW = 3 ' /* raw-protocol interface */

SOCK_RDM = 4 ' /* reliably-delivered message */

SOCK_SEQPACKET = 5 ' /* sequenced packet stream */

Protocols:

IPPROTO_IP = 0 '/* dummy for IP */

IPPROTO_ICMP = 1 '/* control message protocol */

IPPROTO_IGMP = 2 '/* internet group management protocol */

IPPROTO_GGP = 3 '/* gateway^2 (deprecated) */

IPPROTO_TCP = 6 '/* tcp */

IPPROTO_PUP = 12 '/* pup */

IPPROTO_UDP = 17 '/* user datagram protocol */

IPPROTO_IDP = 22 '/* xns idp */

IPPROTO_ND = 77 '/* UNOFFICIAL net disk proto */

IPPROTO_RAW = 255 '/* raw IP packet */

IPPROTO_MAX = 256

该函数可以建立使用特定协议的网络套接字，例如对于UDP协议可以这样写：

s=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)

s=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)

4.关闭Socket函数

Declare Function closesocket Lib "ws2_32.dll" (ByVal s As Long) As Long

函数有一个参数为建立socket时的Handle

5.连接函数

Declare Function connect Lib "ws2_32.dll" (ByVal s As Long, _

ByRef name As sockaddr_in, _

ByVal namelen As Long) As Long

参数

s 连接的socket句柄。

name 建立连接的地址。

namelen 连接地址的长度。

返回值

成功时返回0。否则返回SOCKET_ERROR以及一个对应的错误号 Err.LastDllError。

显然在调用这个函数时我们需要知道socket句柄，将连接的电脑的端口号和主机名称（或主机IP地址）。我们知道Winsock 控件的Connect方法依靠两个变量：RemoteHost 和RemotePort。此方法不需要socket句柄，因其已经被封装在COM对象中。你也许认为connect函数应该也接受相同的变量设置，然而，事实并非如此。connect函数的主机地址和端口号的传送是依靠 sockaddr_in 结构。

Public Type sockaddr_in

sin_family As Integer

sin_port As Integer

sin_addr As Long

sin_zero(1 To 8) As Byte

End Type

6.套接字帮定函数

Declare Function bind Lib "ws2_32.dll" (ByVal s As Long, _

ByRef name As sockaddr_in, _

ByRef namelen As Long) As Long

s是使用Socket函数创建好的套接字，name指向描述通信对象的结构体的指针，namelen是该结构的长度。该结

构体中的分量包括：

IP地址：对应name.sin_addr.s_addr

端口号：对应name.sin_port

端口号用于表示同一台计算机上不同的进程（即应用程序），其分配方法有两种：

第一种分配方法是，进程让系统为套接字自动分配一端口号，这只要在调用bind前将端口号指定为0即可。由系统自动分配的端口号位于1024~5000之间，而1~1023之间的任一TCP或UDP端口都是保留的，系统不允许任一进程使用保留端口，除非其有效用户ID是零（即超级用户）。

第二种分配方法是，进程为套接字指定一特定端口。这对于需要给套接字分配一众所周知的端口的服务器是很有用的。指定范围在1024~65536之间。

地址类型：对应name.sin_family，一般都赋成AF_INET，表示是internet地址（即IP 地址）。IP地址通常使用点分表示法表示，但它事实上一个32位的长整数，这两者之间可通过inet_addr()函数转换。

7.套接字监听函数

Declare Function listen Lib "ws2_32.dll" (ByVal s As Long, ByVal backlog As Long) As Long

listen函数用来设定Socket为监听状态，这种状态表明Socket准备被连接了。注意，此函数一般在服务程序上使用，其中s是使用Socket函数创建好的套接字，backlog参数用于设定等待连接的客户端数。

8.接受连接请求

Declare Function accept Lib "ws2_32.dll" (ByVal s As Long, ByRef addr As sockaddr_in, _

ByRef addrlen As Long) As Long

服务端应用程序调用此函数来接受客户端Socket连接请求，accept()函数的返回值为一新的Socket，新Socket就可用来完成服务端和客户端之间的信息传递与接收，而原来Socket仍可以接受其他可户端的连接请求。

9.接收信息

Declare Function recv Lib "ws2_32.dll" (ByVal s As Long, _

ByRef buf As Any, _

ByVal buflen As Long, _

ByVal flags As Long) As Long

s 一个已连接的socket的识别符

buf 接受到的数据的缓冲区

len 缓冲区长度

flags 指定从哪调用的标识

第一个参数是socket的句柄-为socket函数返回值。那就是说：我们需要告诉recv函数，哪一个socket正访问函数。

第二个参数是:函数执行之后能装载一些数据的缓冲区。但它不是必须要有足够的长度接收Winsock缓冲区的所有数据，缓冲区的大小限制为8192 字节 (8 Kbytes)。因此如果Winsock缓冲区的数据的大小大于recv函数的缓冲区，你必需多次调用此函数，直到获取所有的数据。

如果应用程序定义缓冲区的长度，则recv函数必须知道缓冲区可以存放多少字节。第三个参数就是为了这个目的。

最后一个参数是可选的，今天我们不使用。该参数有两个选择标志: MSG_PEEK 和 MSG_OOB，用于改变函数的行为。

MSG_PEEK 从输入数据中取数。数据拷入缓冲区，但不从输入队列中移走。函数返回当前准备接收的字节数。

MSG_OOB 处理OOB（Out-of-band带外）数据。在网络上有两种类型的数据包，正常包和带外包。带外包可以通过检验一个TCP/IP包头的一个特定标志来决定。

10.发送信息

Declare Function send Lib "ws2_32.dll" (ByVal s As Long, _

ByRef buf As Any, _

ByVal buflen As Long, _

ByVal flags As Long) As Long

参数参看接收信息

四，服务器与客户机交互

目前最常用的方法是：服务程序在一个众所周知的地址（其中包括端口信息）监听对服务的请求，也就是说，服务进程一直处于休眠状态，直到一个客户对这个服务的地址提出了连接请求。这个时刻，服务程序被唤醒并对客户的请求作出适当的反应。注意，服务器与客户机之间的交互可以是面向连接的（基于流套接字），也可以是无连接的（基于数据报套接字）。

服务器

socket()

|

bind()

|

listen() 客户机

|

| socket()

| 建立连接 |

accept() ------------------------- connect()

| 请求数据 |

recv() ----------------------------- send()

| |

处理服务请求 |

| 应答数据 |

send() ------------------------------ recv()

| |

close() close()

五，其他

比较：WinSock控件

优点：使用简单，工作量小。

缺点：功能少仅支持TCP,UDP协议，需要WinSock控件（系统默认安装不带MSWINSCK.OCX文件）

适合于初学者

WinSockAPI

优点：功能强大，支持多种协议，使用灵活，WinSockAPI调用的wsock32.dll（28K）或ws2_32.dll（69K）为Windows系统自带函数库不必担心缺少文件。

缺点：使用复杂，编程量大，需要一定基础

适合于要求较高的网络程序

Q5: vb open 需要imports什么包

open和line input是VB 6.0的语句，你用在vb.net中当然出错！

Dim strLine As String

Dim sr As StreamReader = New StreamReader("C:\Users\Phoebus\Desktop\read.txt", System.Text.Encoding.Default)

Do While sr.Peek() 0

strLine = sr.ReadLine()

TextBox1.Text = strLine vbCrLf

Loop

sr.Close()

vb.netpeek的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.netpeek的信息别忘了在本站进行查找喔。