谁知道在VB中如何调用映射网络驱动器的对话框？

Question

Declare Function WNetConnectionDialog Lib "mpr.dll" Alias "WNetConnectionDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long
启动一个标准对话框，以便建立同网络资源的连接
Long，零表示成功。如用户取消了操作，则返回-1。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息
hwnd -----------  Long，指定要成为对话框父窗口的一个窗口的句柄  dwType ---------  Long，设成RESOURCETYPE_DISK，浏览磁盘资源====================================================================
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，指定要成为对话框父窗口的一个窗口的句柄  dwType ---------  Long，设成RESOURCETYPE_DISK 或 RESOURCETYPE_PRINT，决定要断开的是磁盘还是打印机资源

Answer 1

在Moudel.bas文件中：
Public Declare Function WnetconnectionDialog Alias "mpr.dll"(Byval ? as long, Byval dwtype as long)As long
'(具体的声明可能有误，你在VB中的API VIEW中查一下WnetconnectionDialog，然后粘贴到文件中就行了 )
'连接
Public Declare Function WnetDisconnectionDialog Alias "mpr.dll"(Byval ? as long, Byval dwtype as long)As long
'断开public Const RESOURCETYPE_Disk=1
'指定为驱动器的映射连接/断开在form1.frm中：
Private sub CommandConnection_clik()
WnetconnectionDialog form1.hwnd, RESOURCETYPE_Disk
end subPrivate sub CommandDisConnection_clik()
WnetDisconnectionDialog form1.hwnd, RESOURCETYPE_Disk
end sub

Answer 2

具体的声明更正（我一向记步住API的全部声明格式，只记函数名）
Declare Function WNetConnectionDialog Lib "mpr.dll" Alias "WNetConnectionDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long