VB 网络编程API函数 - 副本.doc

1、WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接 WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接 WNetEnumResource 枚举网络资源 WNetGe

2、tConnection 获取本地或已连接的一个资源的网络名称 WNetGetLastError 获取网络错误的扩展错误信息 WNetGetUniversalName 获取网络中一个文件的远程名称以及/ 或者 UNC（统一命名规范）名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程 1.WNetAddConnection VB 声明 Declare Function WNetAddConnection Lib “mpr.dll“ Alias “WNetAddConnectionA“ (ByVal lpszNetPath As St

3、ring, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long 说明 创建同一个网络资源的永久性连接 返回值 Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息 参数表 参数 类型及说明 lpszNetPath String，要连接的网络名 lpszPassword String，可选的一个密码。如为 vbNullString，表示采用当前用户的默认密码。如为一个空字串，

4、则不用任何密码 lpszLocalName String，资源的本地名称。（例如，F: 和 LPT1:） 2.WNetAddConnection2 VB 声明 Declare Function WNetAddConnection2 Lib “mpr.dll“ Alias “WNetAddConnection2A“ (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long 说明 创建同一个网络资源的连接 返回值 Long

5、，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息 参数表 参数 类型及说明 lpNetResource NETRESOURCE，在这个结构中设置了下述字段，对要连接的网络资源进行了定义：dwType， lpLocalName （可为 vbNullString）， lpRemoteName， lpProvider （设为 vbNullString 表示用默认提供者）。该结构的其他所有变量都会被忽略 lpPassword String，可选的一个密码。如为 vbNu

6、llString，表示采用当前用户的默认密码。如为一个空字串，则不用任何密码 lpUserName String，用于连接的用户名。如为 vbNullString，表示使用当前用户 dwFlags Long，设为零；或指定常数 CONNECT_UPDATE_PROFILE，表示创建永久性连接 3.WNetAddConnection3 VB 声明 Declare Function WNetAddConnection3& Lib “mpr.dll“ Alias “WNetAddConnection3A“ (ByVal hwnd As Long, lpNetResource As NETRESOUR

7、CE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) 说明 创建同一个网络资源的连接。这个函数与 WNetAddConnection2 类似，只是它允许我们为这个函数显示的对话框指定一个物主窗口 返回值 Long， 参数表 参数 类型及说明 hwnd Long，指定一个窗口句柄，用作本函数创建的对话框的父窗口 lpNetResource NETRESOURCE，在这个结构中设置了下述字段，对要连接的网络资源进行了定义：dwType， lpLocalName （可为 vbNullStr

8、ing）， lpRemoteName， lpProvider （设为 vbNullString 表示用默认提供者）。该结构的其他所有变量都会被忽略 lpPassword String，可选的一个密码。如为 vbNullString，表示采用当前用户的默认密码。如为一个空字串，则不用任何密码 lpUserName String，用于连接的用户名。如为 vbNullString，表示使用当前用户 dwFlags Long，设为零；或指定常数 CONNECT_UPDATE_PROFILE，表示创建永久性连接 4.WNetCancelConnection VB 声明 Declare Function

9、WNetCancelConnection Lib “mpr.dll“ Alias “WNetCancelConnectionA“ (ByVal lpszName As String, ByVal bForce As Long) As Long 说明 结束一个网络连接 返回值 Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息 参数表 参数 类型及说明 lpszName String，已连接资源的远程名称或本地名称 bForce Long，如为 TRUE，表

10、示断开连接（即使连接的资源上正有打开的文件或作业） 5.WNetCancelConnection2 VB 声明 Declare Function WNetCancelConnection2 Lib “mpr.dll“ Alias “WNetCancelConnection2A“ (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long 说明 结束一个网络连接 返回值 Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则

11、可用 WNetGetLastError 取得额外的错误信息 参数表 参数 类型及说明 lpszName String，已连接资源的远程名称或本地名称 dwFlags Long，设为零或 CONNECT_UPDATE_PROFILE。如为零，而且建立的是永久性连接，则在 windows 下次重新启动时仍会重新连接 fForce Long，如为 TRUE，表示强制断开连接（即使连接的资源上正有打开的文件或作业） 6.WNetCloseEnum VB 声明 Declare Function WNetCloseEnum Lib “mpr.dll“ Alias “WNetCloseEnum“ (ByVa

12、l hEnum As Long) As Long 说明 结束一次枚举操作 返回值 Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息 参数表 参数 类型及说明 hEnum Long，由 WNetOpenEnum 函数返回的一个枚举句柄 7.WNetConnectionDialog VB 声明 Declare Function WNetConnectionDialog Lib “mpr.dll“ Alias “WNetConnectionDialog“ (B

13、yVal hwnd As Long, ByVal dwType As Long) As Long 说明 启动一个标准对话框，以便建立同网络资源的连接 返回值 Long，零表示成功。如用户取消了操作，则返回-1 。会设置 GetLastError。如GetLastError 是 ERROR_EXTENDED_ERROR，则可用 WNetGetLastError取得额外的错误信息 参数表 参数 类型及说明 hwnd Long，指定要成为对话框父窗口的一个窗口的句柄 dwType Long，设成 RESOURCETYPE_DISK，浏览磁盘资源 8.WNetDisconnectDialog VB 声

14、明 Declare Function WNetDisconnectDialog Lib “mpr.dll“ Alias “WNetDisconnectDialog“ (ByVal hwnd As Long, ByVal dwType As Long) As Long 说明 启动一个标准对话框，以便断开同网络资源的连接 返回值 Long，零表示成功。如用户取消了操作，则返回-1 。会设置 GetLastError。如GetLastError 是 ERROR_EXTENDED_ERROR，则可用 WNetGetLastError取得额外的错误信息 参数表 参数 类型及说明 hwnd Long，指定

15、要成为对话框父窗口的一个窗口的句柄 dwType Long，设成 RESOURCETYPE_DISK 或 RESOURCETYPE_PRINT，决定要断开的是磁盘还是打印机资源 9.WNetEnumResource VB 声明 Declare Function WNetEnumResource Lib “mpr.dll“ Alias “WNetEnumResourceA“ (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, lpBufferSize As Long) As Long 说明 枚举网络资源 返回值 Long，零表示成功。

16、ERROR_NO_MORE_ITEMS 表示不剩下可以枚举的条目。ERROR_MORE_DATA 表示条目不能装入 lpBuffer。会设置 GetLastError。如GetLastError 是 ERROR_EXTENDED_ERROR，则可用 WNetGetLastError取得额外的错误信息 参数表 参数 类型及说明 hEnum Long，从 WNetOpenEnum 函数返回的一个句柄 lpcCount Long，最初设为要枚举的最大资源数量；或设为-1 ，表示枚举尽可能多的资源。一旦返回，就会设为实际枚举的资源数量 lpBuffer Any，通常是一个字节缓冲区的首字节。该缓冲区装

17、载了枚举信息（可按引用声明为 Byte） lpBufferSize Long，以字节为单位指定 lpBuffer 数组的长度。如缓冲区不够大，则设为需要的缓冲区长度 注解 枚举网络条目时，最好用 vb 一次枚举一个资源。尽量不要使用这个函数同时枚举许多网络资源的功能 10.WNetGetConnection VB 声明 Declare Function WNetGetConnection Lib “mpr.dll“ Alias “WNetGetConnectionA“ (ByVal lpszLocalName As String, ByVal lpszRemoteName As String,

18、 cbRemoteName As Long) As Long 说明 获取本地或已连接的一个资源的网络名称 返回值 Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息 参数表 参数 类型及说明 lpszLocalName String，本地设备的名字 lpszRemoteName String，指定一个字串缓冲区，用于装载设备的资源名称 cbRemoteName Long， lpszRemoteName 缓冲区的字符数量。如缓冲区不够大，则设为需要的缓冲区长

19、度 11.WNetGetLastError VB 声明 Declare Function WNetGetLastError Lib “mpr.dll“ Alias “WNetGetLastErrorA“ (lpError As Long, ByVal lpErrorBuf As String, ByVal nErrorBufSize As Long, ByVal lpNameBuf As String, ByVal nNameBufSize As Long) As Long 说明 获取网络错误的扩展错误信息 返回值 Long，零表示成功。ERROR_INVALID_ADDRESS 表示缓冲区无

20、效 参数表 参数 类型及说明 lpError Long，指定一个变量，用于装载网络错误代码。具体的代码由网络供应商决定 lpErrorBuf String，指定一个字串缓冲区，用于装载网络错误的说明 nErrorBufSize Long，lpErrorBuf 缓冲区包含的字符数量 lpNameBuf String，用于装载网络供应商名字的字串缓冲区 nNameBufSize Long，lpNameBuf 缓冲区的字符数量 12.WNetGetUniversalName VB 声明 Declare Function WNetGetUniversalName Lib “mpr“ Alias “WN

21、etGetUniversalNameA“ (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, lpBuffer As Any, lpBufferSize As Long) As Long 说明 获取网络中一个文件的远程名称以及/或者 UNC（统一命名规范）名称。例如，假设一个已连接的远程驱动器是othersystemCDrive，它对应的本地驱动器是F:，而且在它的子目录 temp 中包含了文件 xyz.doc。那么运算结果如下：LocalPath xyz.doc 或 f:tempxyz.doc（或者文件的任何相对路径名）UNC 名

22、称： othersystemCDrivetempxyz.doc连接名称： othersystemCDrive剩余名称： tempxyz.doc它们分别对应于由这个函数装载的 REMOTE_NAME_INFO 结构的字段，对该结构的定义如下：Type REMOTE_NAME_INFOpUniversalName As LongpConnectionName As LongpRemainingPath As LongEnd Type 返回值 Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLas

23、tError 取得额外的错误信息 参数表 参数 类型及说明 lpLocalPath String，磁盘文件的名字 dwInfoLevel Long，下述常数之一： UNIVERSAL_NAME_INFO_LEVEL 只设置 pUniversalName 字段 REMOTE_NAME_INFO_LEVEL 设置 REMOTE_NAME_INFO 结构中的所有三个字段 lpBuffer Any，指定用于装载 UNC 信息的一个缓冲区。缓冲区起点与一个REMOTE_NAME_INFO 结构对应 lpBufferSize Long，以字节为单位指定 lpBuffer 缓冲区的长度。如缓冲区不够大，则设

24、为需要的缓冲区长度 13.WNetGetUser VB 声明 Declare Function WNetGetUser Lib “mpr.dll“ Alias “WNetGetUserA“ (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long 说明 获取一个网络资源用以连接的名字 返回值 Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息 参数表 参数

25、 类型及说明 lpName String，指定已连接资源的远程名称或本地名称。用 vbNullString 获取当前用户的名字 lpUserName String，用于装载用户名的一个字串缓冲区 lpnLength Long，lpUserName 缓冲区的长度。如缓冲区不够大，则自动设为需要的缓冲区长度 14.WNetOpenEnum VB 声明 Declare Function WNetOpenEnum Lib “mpr.dll“ Alias “WNetOpenEnumA“ (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage

26、 As Long, lpNetResource As NETRESOURCE, lphEnum As Long) As Long 说明 启动对网络资源进行枚举的过程。这个函数会返回由 WNetEnumResource 函数用于枚举资源所用的一个句柄 返回值 Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息 参数表 参数 类型及说明 dwScope Long，指定要枚举的资源范围。可设为下述常数之一： RESOURCE_CONNECTED 枚举已连接的资源

27、（忽略 dwUsage） RESOURCE_GLOBALNET 枚举所有资源 RESOURCE_REMEMBERED 只枚举永久性连接 dwType Long，下述常数之一 RESOURCE_ANY 枚举所有类型的网络资源 RESOURCE_DISK 枚举磁盘资源 RESOURCE_PRINT 枚举打印资源 dwUsage Long，可设为零，表示枚举所有资源；或设为下述常数的一个或两个： RESOURCEUSAGE_CONNECTABLE 只枚举那些能够连接的资源 RESOURCEUSAGE_CONTAINER 只枚举包含了其他资源的资源 lpNetResource NETRESOURCE，

28、这个结构指定了一个容器资源。该函数会枚举包含于这里指定的某个指定资源内的资源。如设为 NULL（把声明变成ByVal As Long），那么函数会枚举顶级网络资源。倘若在 dwScope 参数里没有指定 RESOURCE_GLOBALNET，那么必须为 NULL lphEnum Long，指定一个变量，用于装载一个枚举句柄。该句柄由WNetEnumResource 函数使用。必须用 WNetCloseEnum 函数将其清除vb 怎样访问网络服务器的 access 数据库 2004-12-30 09:181307 人阅读评论(1)收藏举报=自定义常量=Private Const RESOURCE

29、TYPE_DISK = &H1Private Const RESOURCE_GLOBALNET As Long = &H2Private Const RESOURCEDISPLAYTYPE_SHARE = &H3Private Const RESOURCEUSAGE_CONNECTABLE = &H1=自定义结构=Private Type NETRESOURCEdwScope As LongdwType As Long 用于指定网络的资源类型dwDisplayType As LongdwUsage As LonglpLocalName As String 指定本地设备lpRemoteName

30、As String 指定远程网络名lpComment As StringlpProvider As String 指定提供网络资源的供应商End Type=API 声明=Private Declare Function WNetAddConnection2 Lib “mpr.dll“ Alias “WNetAddConnection2A“ ( _lpNetResource As NETRESOURCE, _ByVal lpPassword As String, _ByVal lpUserName As String, _ByVal dwFlags As Long _) As LongPriva

31、te Declare Function WNetCancelConnection2 Lib “mpr.dll“ Alias “WNetCancelConnection2A“ ( _ByVal lpName As String, _ByVal dwFlags As Long, _ByVal fForce As Long _) As LongPublic Function funIpcConn(ByVal strRemoteName As String, ByVal strUserName As String, ByVal strPassword As String) As Boolean目的:

32、建立网络间的联系返回: True - 成功 False - 失败注释:strRemoteName 为要连接的计算机名称 (如:/HostName、 /192.168.199.144、/HostName/Data) strUserName 为登录的用户名 ,strPassword 为登录的密码Dim NetR As NETRESOURCENetR.dwScope = RESOURCE_GLOBALNETNetR.dwType = RESOURCETYPE_DISKNetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARENetR.dwUsage = RESOURCEUSAGE_CONNECTABLENetR.lpRemoteName = strRemoteName建立网络映射funIpcConn = IIf(WNetAddConnection2(NetR, strPassword, strUserName, 0) = 0, True, False)End FunctionPublic Function funIpcDisConn(ByVal strName As String) As LongfunIpcDisConn = WNetCancelConnection2(strName, 0, 0) 原样返回 API 的返回值End Function