此範例是利用 API 來開啟「連線/中斷網路磁碟機對話框」，我們必須使用 mpr.dll API 函式庫的 WNetConnectionDialog 及 WNetDisconnectDialog 函式來完成，以下的 TAPIMpr 類別為操作 mpr.dll 函式庫類別。

 

   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

 

呼叫 API 的 WNetConnectionDialog 及 WNetDisconnectDialog 函式的方式如下。

   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