VB 网络编程API函数编程语言

VB 网络编程API函数编程语言 WNetAddConnection 创建同一个网络资源的永久性连接WNetAddConnection2 创建 同一个网络资源的连接WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接WNetCancelConnection2 结束一个网络 连接WNetCloseEnum 结束一次枚举操作WNetConnectionDialog 启动一个对话 框，以便建立同网络资源的连接WNetDisconnectDialog 启动一个标准对话框，以便 断开同网络资源的连接WNetEnumResource 枚举网络资源WNetGetConnection 获取 本地或已连接的一个资源的网络名称WNetGetLastError 获取网络错误的扩展错误 信息WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者 UNC(统一 命名规范)名称WNetGetUser 获取一个网络资源用以连接的名字WNetOpenEnum 启动对网络资源进行枚举的过程1.WNetAddConnectionVB 声明Declare Function WNetAddConnection Lib mpr.dll AliasWNetAddConnectionA ByVal lpszNetPath As String ByVal lpszPasswordAs String ByVal lpszLocalName As String As Long说明创建 同一个网络资源的永久性连接返回值Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外 的错误信息参数表参数 类型及说明lpszNetPath String，要连接的网络名lpszPassword String，可选的一个密码。如为 vbNullString，表示采用当前用户的默认密码。如为 一个空字串，则不用任何密码lpszLocalName String，资源的本地名称。(例如，F: 和 LPT1:)2.WNetAddConnection2VB 声明Declare Function WNetAddConnection2 Lib mpr.dll AliasWNetAddConnection2A lpNetResource As NETRESOURCE ByVallpPassword As String ByVal lpUserName As String ByVal dwFlags As LongAs Long说明创建同一个网络资源的连接返回值Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息参数表参数 类型及说明lpNetResource NETRESOURCE，在这个结构中设置了下述字段，对要连接的网络资源进行了定义:dwType， lpLocalName (可为 vbNullString)，lpRemoteName， lpProvider (设 为 vbNullString 表示用默认提供者)。该结构的其他所有变量都会被忽略lpPassword String，可选的一个密码。如为 vbNullString，表示采用当前用户的默认密码。如为 一个空字串，则不用任何密码lpUserName String，用于连接的用户名。如为 vbNullString，表示使用当前用户dwFlags Long，设为零;或指定常数 CONNECT_UPDATE_PROFILE，表示 创建永久性连接3.WNetAddConnection3VB 声明Declare Function WNetAddConnection3 Lib mpr.dll AliasWNetAddConnection3A ByVal hwnd As Long lpNetResource AsNETRESOURCE ByVal lpPassword As String ByVal lpUserName As StringByVal dwFlags As Long说明创建同一个网络资源的连 接。这个函数与 WNetAddConnection2 类似，只是它允许我们为这个函数显示的对 话框指定一个物主窗口返回值Long，参数表参数 类型及说明hwnd Long，指定一个 窗口句柄，用作本函数创建的对话框的父窗口lpNetResource NETRESOURCE，在这 个结构中设置了下述字段，对要连接的网络资源进行了定义:dwType， lpLocalName (可为 vbNullString)，lpRemoteName， lpProvider (设为 vbNullString 表示用默 认提供者)。该结构的其他所有变量都会被忽略lpPassword String，可选的一个密码。如为 vbNullString，表示采用当前用户的默认密码。如为一个空字串，则不用任何 密码lpUserName String，用于连接的用户名。如为 vbNullString，表示使用当前用户 dwFlags Long，设为零;或指定常数 CONNECT_UPDATE_PROFILE，表示 创建永 久性连接4.WNetCancelConnectionVB 声明Declare Function WNetCancelConnection Lib mpr.dll AliasWNetCancelConnectionA ByVal lpszName As String ByVal bForce AsLong As Long说明结束一个网络连接返回值Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息参数表参数 类型及说明lpszName String，已 连接资源的远程名称或本地名称bForce Long，如为 TRUE，表示断开连接(即使连 接的资源上正有打开的文件或作业)5.WNetCancelConnection2VB 声明Declare Function WNetCancelConnection2 Lib mpr.dll AliasWNetCancelConnection2A ByVal lpName As String ByVal dwFlags AsLong ByVal fForce As Long As Long说明结束一 个网络连接返回值Long，零表示成功。会设置 GetLastError。如 GetLastError 是 ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息参 数表参数 类型及说明lpszName String，已连接资源的远程名称或本地名称dwFlags Long，设为零或 CONNECT_UPDATE_PROFILE。如为零，而且建立的是永久性连 接，则在 windows 下次重新启动时仍会重新连接fForce Long，如为 TRUE，表示 强制断开连接(即使连接的资源上正有打开的文件或作业)6.WNetCloseEnumVB 声 明Declare Function WNetCloseEnum Lib mpr.dll Alias WNetCloseEnumByVal hEnum As Long As Long说明结束一次枚举操作返回值Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息参数表参数 类型及说明hEnum Long，由 WNetOpenEnum 函数返回的一个枚举句柄7.WNetConnectionDialogVB 声明Declare Function WNetConnectionDialog Lib mpr.dll AliasWNetConnectionDialog ByVal hwnd As Long ByVal dwType As Long AsLong说明启动一个标准对话框，以便建立同网络 资源的连接返回值Long，零表示成功。如用户取消了操作，则返回-1。会设置 GetLastError。如GetLastError 是 ERROR_EXTENDED_ERROR，则可 用 WNetGetLastError 取得额外的错误信息参数表参数 类型及说明hwnd Long，指定要 成为对话框父窗口的一个窗口的句柄dwType Long，设成 RESOURCETYPE_DISK， 浏览磁盘资源8.WNetDisconnectDialogVB 声明Declare Function WNetDisconnectDialog Lib mpr.dll AliasWNetDisconnectDialog ByVal hwnd As Long ByVal dwType As Long AsLong说明启动一个标准对话框，以便断开同网络资源的连 接返回值Long，零表示成功。如用户取消了操作，则返回-1。会设置 GetLastError。 如GetLastError 是 ERROR_EXTENDED_ERROR，则可 用 WNetGetLastError 取得 额外的错误信息参数表参数 类型及说明hwnd Long，指定要成为对话框父窗口的一 个窗口的句柄dwType Long，设成 RESOURCETYPE_DISK 或 RESOURCETYPE_PRINT，决定要断开的是磁盘还是打印机资源 9.WNetEnumResourceVB 声明Declare Function WNetEnumResource Lib mpr.dll AliasWNetEnumResourceA ByVal hEnum As Long lpcCount As Long lpBufferAs Any lpBufferSize As Long As Long说明枚举网络资源返回值Long，零表示成功。 ERROR_NO_MORE_ITEMS 表示不剩下可以枚举的条目。ERROR_MORE_DATA 表示条目不能装入 lpBuffer。会设置 GetLastError。如GetLastError 是 ERROR_EXTENDED_ERROR，则可 用 WNetGetLastError 取得额外的错误信息参 数表参数 类型及说明hEnum Long，从 WNetOpenEnum 函数返回的一个句柄 lpcCount Long，最初设为要枚举的最大资源数量;或设为-1，表示枚举尽可能多的 资源。一旦返回，就会设为实际枚举的资源数量lpBuffer Any，通常是一个字节缓冲 区的首字节。该缓冲区装载了枚举信息(可按引用声明为 Byte)lpBufferSize Long， 以字节为单位指定 lpBuffer 数组的长度。如缓冲区不够大，则设为需要的缓冲区长 度注解枚举网络条目时，最好用 vb 一次枚举一个资源。尽量不要使用这个函数同 时枚举许多网络资源的功能10.WNetGetConnectionVB 声明Declare Function WNetGetConnection Lib mpr.dll AliasWNetGetConnectionA ByVal lpszLocalName As String ByVallpszRemoteName As String cbRemoteName As Long As Long说明获取本 地或已连接的一个资源的网络名称返回值Long，零表示成功。会设置 GetLastError。 如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得 额外的错误信息参数表参数 类型及说明lpszLocalName String，本地设备的名字 lpszRemoteName String，指定一个字串缓冲区，用于装载设备的资源名称 cbRemoteName Long， lpszRemoteName 缓冲区的字符数量。 如缓冲区不够大，则 设为需要的缓冲区长度11.WNetGetLastErrorVB 声明Declare Function WNetGetLastError Lib mpr.dll Alias WNetGetLastErrorAlpError As Long ByVal lpErrorBuf As String ByVal nErrorBufSize As LongByVal lpNameBuf As String ByVal nNameBufSize As Long As Long说明获取网络错误的扩展错误信息返回值Long，零 表示成功。ERROR_INVALID_ADDRESS 表示缓冲区无效参数表参数 类型及说明 lpError Long，指定一个变量，用于装载网络错误代码。具体的代码由网络供应商决 定lpErrorBuf String，指定一个字串缓冲区，用于装载网络错误的说明nErrorBufSize Long，lpErrorBuf 缓冲区包含的字符数量lpNameBuf String，用于装载网络供应商名 字的字串缓冲区nNameBufSize Long，lpNameBuf 缓冲区的字符数量 12.WNetGetUniversalNameVB 声明Declare Function WNetGetUniversalName Lib mpr AliasWNetGetUniversalNameA ByVal lpLocalPath As String ByVal dwInfoLevelAs Long lpBuffer As Any lpBufferSize As Long As Long说明获取网络中 一个文件的远程名称以及/或者 UNC(统一命名规范)名称?,纾偕枰桓鲆蚜 拥脑冻糖魇莖thersystemCDrive，它对应的本地驱动器是F:，而且在它的子目录 temp 中包含了文件 xyz.doc。那么运算结果如下:LocalPath xyz.doc 或 f:tempxyz.doc(或者文件的任何相对路径名)UNC 名称: othersystemCDrivetempxyz.doc连接名称: othersystemCDrive剩余名称: tempxyz.doc它们分别对应于由这个函数装载的 REMOTE_NAME_INFO 结构的字段，对该结构 的定义如下:Type REMOTE_NAME_INFO pUniversalName As Long pConnectionName As Long pRemainingPath As LongEnd Type返回值Long，零表示成 功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可 用 WNetGetLastError 取得额外的错误信息参数表参数 类型及说明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 缓冲区的长度。如缓冲区不够大，则设为需要的缓冲区长度13.WNetGetUserVB 声 明Declare Function WNetGetUser Lib mpr.dll Alias WNetGetUserA ByVallpName As String ByVal lpUserName As String lpnLength As Long As Long说明获取一个网络资 源用以连接的名字返回值Long，零表示成功。会设置 GetLastError。如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得额外的错误信息 参数表参数 类型及说明lpName String，指定已连接资源的远程名称或本地名称。用 vbNullString 获取当前用户的名字lpUserName String，用于装载用户名的一个字串缓 冲区lpnLength Long，lpUserName 缓冲区的长度。如缓冲区不够大，则自动设为需 要的缓冲区长度14.WNetOpenEnumVB 声明Declare Function WNetOpenEnum Lib mpr.dll Alias WNetOpenEnumAByVal dwScope As Long ByVal dwType As Long ByVal dwUsage As LonglpNetResource As NETRESOURCE lphEnum As Long As Long说明启动对网络资源进行枚举的过程。这个函数会返回由 WNetEnumResource 函数用于枚举资源所用的一个句柄返回值Long，零表示成功。会设置 GetLastError。 如 GetLastError 是ERROR_EXTENDED_ERROR，则可用 WNetGetLastError 取得 额外的错误信息参数表参数 类型及说明dwScope Long，指定要枚举的资源范围。 可设为下述常数之一:RESOURCE_CONNECTED 枚举已连接的资源(忽略 dwUsage)RESOURCE_GLOBALNET 枚举所有资源RESOURCE_REMEMBERED 只枚举永久性连接dwType Long，下述常数之一RESOURCE_ANY 枚举所有类型的 网络资源RESOURCE_DISK 枚举磁盘资源RESOURCE_PRINT 枚举打印资源 dwUsage Long，可设为零，表示枚举所有资源;或设为下述常数的一个或两个: RESOURCEUSAGE_CONNECTABLE 只枚举那些能够连接的资源 RESOURCEUSAGE_CONTAINER 只枚举包含了其他资源的资源lpNetResource NETRESOURCE，这个结构指定了一个容器资源。该函数会枚举包含于这里指定的 某个指定资源内的资源。如设为 NULL(把声明变成 ByValAs Long)，那么函数 会枚举顶级网络资源。倘若在 dwScope 参数里没有指定 RESOURCE_GLOBALNET，那么必须为 NULLlphEnum Long ， 指 定 一 个 变 量 ， 用 于 装 载 一 个 枚 举 句 柄 。 该 句 柄 由WNetEnumResource 函数 使用。必须用 WNetCloseEnum 函数将其清除vb 怎样访问网络服务器的 access 数 据库 2004-12-30 09:181307 人阅读评论1收藏举报自定义常量Private Const RESOURCETYPE_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 As String 指定远程网络名lpComment As StringlpProvider As String 指定提供网络资源的供应商End TypeAPI 声明Private Declare Function WNetAddConnection2 Lib mpr.dll AliasWNetAddConnection2A _lpNetResource As NETRESOURCE _ByVal lpPassword As String _ByVal lpUserName As String _ByVal dwFlags As Long _ As LongPrivate Declare Function WNetCancelConnection2 Lib mpr.dll AliasWNetCancelConnection2A _ByVal lpName As String _ByVal dwFlags As Long _ByVal fForce As Long _ As LongPublic Function funIpcConnByVal strRemoteName As String ByValstrUserName As String ByVal strPassword As String As Boolean目的:建立网络间的联系返回: 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 IIfWNetAddConnection2NetR strPassword strUserName 0 0True FalseEnd FunctionPublic Function funIpcDisConnByVal strName As String As LongfunIpcDisConn WNetCancelConnection2strName 0 0 原样返回 API 的返回值 End Function