1. API之网络函数
WNetAddConnection 创建同一个网络资源的永久性连接
WNetAddConnection2 创建同一个网络资源的连接
WNetAddConnection3 创建同一个网络资源的连接
WNetCancelConnection 结束一个网络连接
WNetCancelConnection2 结束一个网络连接
WNetCloseEnum 结束一次枚举操作
WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接
WNetDisconnectDialog 启动一个标准对话框,以便断开同网络资源的连接
WNetEnumResource 枚举网络资源
WNetGetConnection 获取本地或已连接的一个资源的网络名称
WNetGetLastError 获取网络错误的扩展错误信息
WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC(统一命名规范)名称
WNetGetUser 获取一个网络资源用以连接的名字
WNetOpenEnum 启动对网络资源进行枚举的过程
Const NO_ERROR = 0
Const CONNECT_UPDATE_PROFILE = &H1
Private Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias _
"WNetCancelConnection2A" _
(ByVal lpName As String, _
ByVal dwFlags As Long, _
ByVal fForce As Long) As Long
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 Long
ErrInfo = WNetAddConnection2(NetR, Text1(3).Text, Text1(2).Text,
CONNECT_UPDATE_PROFILE)
If ErrInfo = NO_ERROR Then
MsgBox "网络驱动器映射成功!", vbInformation, "映射"
Else
MsgBox "ERROR: " & Str(ErrInfo) & " - 网络驱动器映射失败!", _
vbExclamation, "映射"
End If
Dim ErrInfo As Long
Dim strLocalName As String
strLocalName = Text1(4).Text
ErrInfo = WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE,
False)
If ErrInfo = NO_ERROR Then
MsgBox "成功断开驱动器映射!", vbInformation, "断开"
Else
MsgBox "ERROR: " & Str(ErrInfo) & " - 驱动器断开失败!", _
vbExclamation, "断开"
End If