1:      ''' <summary>

   2:      ''' 网络芳邻相关函式库(mpr.dll)。

   3:      ''' </summary>

   4:      Public NotInheritable Class TAPIMpr

   5:   

   6:         Public Enum EResourceType As Integer

   7:              ''' <summary>

   8:              ''' 何任资源。

   9:              ''' </summary>

  10:              RESOURCETYPE_ANY = &H0

  11:              ''' <summary>

  12:              ''' 网络磁盘驱动器。

  13:              ''' </summary>

  14:              RESOURCETYPE_DISK = &H1

  15:              ''' <summary>

  16:              ''' 网络打印机。

  17:              ''' </summary>

  18:              RESOURCETYPE_PRINT = &H2

  19:              ''' <summary>

  20:              ''' 未知。

  21:              ''' </summary>

  22:              RESOURCETYPE_UNKNOWN = &HFFFFFFFF

  23:          End Enum

  24:   

  25:          ''' <summary>

  26:          ''' 联机网络磁盘驱动器对话框。

  27:          ''' </summary>

  28:          <DllImport("mpr.dll", CharSet:=CharSet.Auto)> _

  29:          Public Shared Function WNetConnectionDialog(ByVal hwnd As IntPtr, ByVal Type As EResourceType) As Integer

  30:          End Function

  31:   

  32:          ''' <summary>

  33:          ''' 中断网络磁盘驱动器对话框。

  34:          ''' </summary>

  35:          <DllImport("mpr.dll", CharSet:=CharSet.Auto)> _

  36:          Public Shared Function WNetDisconnectDialog(ByVal hwnd As IntPtr, ByVal Type As EResourceType) As Integer

  37:          End Function

  38:   

  39:      End Class

   1:      ''' <summary>

   2:      ''' 联机网络磁盘驱动器对话框。

   3:      ''' </summary>

   4:      ''' <param name="Handle">窗口 Handle。</param>

   5:      ''' <returns>联机成功传回 True，反之传回 False。</returns>

   6:      Public Overloads Shared Function NetConnectionDialog(ByVal Handle As IntPtr) As Boolean

   7:          Dim iResult As Integer

   8:   

   9:          iResult = TAPIMpr.WNetConnectionDialog(Handle, TAPIMpr.EResourceType.RESOURCETYPE_DISK)

  10:          Return iResult = 0

  11:      End Function

  12:   

  13:      ''' <summary>

  14:      ''' 中断网络磁盘驱动器对话框。

  15:      ''' </summary>

  16:      ''' <param name="Handle">窗口 Handle。</param>

  17:      ''' <returns>成功传回 True，反之传回 False。</returns>

  18:      Public Overloads Shared Function NetDisconnectDialog(ByVal Handle As IntPtr) As Boolean

  19:          Dim iResult As Integer

  20:   

  21:          iResult = TAPIMpr.WNetDisconnectDialog(Handle, TAPIMpr.EResourceType.RESOURCETYPE_DISK)

  22:          Return iResult = 0

  23:      End Function