连结档案服务器

一般手动连结网芳的档案服务器是使用 [开启\执行] 输入要连结的计算机，例如输入 "\\FileServer"，然后输入用户名称及密码进行登入。若要用程序来完成此动作，需要透过 WNetCancelConnection2 API 函式完成，以下范例就是示范如何连结档案伺服及中断档案服务器。

TAPIMpr 类别为操作 mpr.dll 函式库类别

   1:      ''' <summary>

   2:      ''' mpr.dll 函式库。

   3:      ''' </summary>

   4:      ''' <remarks></remarks>

   5:      Public NotInheritable Class TAPIMpr

   6:          Public Enum EResourceScope

   7:              RESOURCE_CONNECTED = 1

   8:              RESOURCE_GLOBALNET = 2

   9:              RESOURCE_REMEMBERED = 3

  10:              RESOURCE_RECENT = 4

  11:              RESOURCE_CONTEXT = 5

  12:          End Enum

  13:   

  14:          Public Enum EResourceType

  15:              RESOURCETYPE_ANY = 0

  16:              RESOURCETYPE_DISK = 1

  17:              RESOURCETYPE_PRINT = 2

  18:              RESOURCETYPE_RESERVED = 8

  19:              RESOURCETYPE_UNKNOWN = &HFFFFFFFF

  20:          End Enum

  21:   

  22:          Public Enum EResourceDisplayType

  23:              RESOURCEDISPLAYTYPE_GENERIC = 0

  24:              RESOURCEDISPLAYTYPE_DOMAIN = 1

  25:              RESOURCEDISPLAYTYPE_SERVER = 2

  26:              RESOURCEDISPLAYTYPE_SHARE = 3

  27:              RESOURCEDISPLAYTYPE_FILE = 4

  28:              RESOURCEDISPLAYTYPE_GROUP = 5

  29:              RESOURCEDISPLAYTYPE_NETWORK = 6

  30:              RESOURCEDISPLAYTYPE_ROOT = 7

  31:              RESOURCEDISPLAYTYPE_SHAREADMIN = 8

  32:              RESOURCEDISPLAYTYPE_DIRECTORY = 9

  33:              RESOURCEDISPLAYTYPE_TREE = 10

  34:              RESOURCEDISPLAYTYPE_NDSCONTAINER = 11

  35:          End Enum

  36:   

  37:          Public Enum EResourceUsage

  38:              RESOURCEUSAGE_CONNECTABLE = 1

  39:              RESOURCEUSAGE_CONTAINER = 2

  40:              RESOURCEUSAGE_NOLOCALDEVICE = 4

  41:              RESOURCEUSAGE_SIBLING = 8

  42:              RESOURCEUSAGE_ATTACHED = 10

  43:              RESOURCEUSAGE_ALL = (RESOURCEUSAGE_CONNECTABLE Or RESOURCEUSAGE_CONTAINER Or RESOURCEUSAGE_ATTACHED)

  44:              RESOURCEUSAGE_RESERVED = &H80000000

  45:          End Enum

  46:   

  47:          <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _

  48:          Public Class TNetResource

  49:              Public dwScope As EResourceScope

  50:              Public dwType As EResourceType

  51:              Public dwDisplayType As EResourceDisplayType

  52:              Public dwUsage As EResourceUsage

  53:              <MarshalAs(UnmanagedType.LPTStr)> _

  54:              Public LocalName As String

  55:              <MarshalAs(UnmanagedType.LPTStr)> _

  56:              Public RemoteName As String

  57:              <MarshalAs(UnmanagedType.LPTStr)> _

  58:              Public Comment As String

  59:              <MarshalAs(UnmanagedType.LPTStr)> _

  60:              Public Provider As String

  61:          End Class

  62:   

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

  64:          Public Shared Function WNetAddConnection2(ByVal NetResource As TNetResource, ByVal Password As String, ByVal UserName As String, ByVal Flags As Integer) As Integer

  65:          End Function

  66:   

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

  68:          Public Shared Function WNetCancelConnection2(ByVal Name As String, ByVal Flags As Integer, ByVal Force As Boolean) As Integer

  69:          End Function

  70:   

  71:      End Class

 

接下来撰写 FileServerConnect 及 FileServerDisconnect 函式，用来连结档案服务器及中断档案服务器连结。

   1:      ''' <summary>

   2:      ''' 连结档案服务器。

   3:      ''' </summary>

   4:      ''' <param name="FileServer">档案服务器。</param>

   5:      ''' <param name="UserName">登入用户。</param>

   6:      ''' <param name="Password">登入密码。</param>

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

   8:      Public Shared Function FileServerConnect(ByVal FileServer As String, ByVal UserName As String, ByVal Password As String) As Boolean

   9:          Dim oNetResource As New TAPIMpr.TNetResource()

  10:          Dim iResult As Integer

  11:   

  12:          oNetResource.dwScope = TAPIMpr.EResourceScope.RESOURCE_GLOBALNET

  13:          oNetResource.dwDisplayType = TAPIMpr.EResourceDisplayType.RESOURCEDISPLAYTYPE_SHARE

  14:          oNetResource.dwUsage = TAPIMpr.EResourceUsage.RESOURCEUSAGE_CONNECTABLE

  15:          oNetResource.dwType = TAPIMpr.EResourceType.RESOURCETYPE_DISK

  16:          oNetResource.LocalName = String.Empty

  17:          oNetResource.RemoteName = "\\" & FileServer

  18:          iResult = API.TAPIMpr.WNetAddConnection2(oNetResource, Password, UserName, 0)

  19:   

  20:          Return iResult = 0

  21:      End Function

  22:   

  23:      ''' <summary>

  24:      ''' 中断档案服务器连结。

  25:      ''' </summary>

  26:      ''' <param name="FileServer">档案服务器。</param>

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

  28:      Public Shared Function FileServerDisconnect(ByVal FileServer As String) As Boolean

  29:          Dim iResult As Integer

  30:   

  31:          iResult = TAPIMpr.WNetCancelConnection2("\\" & FileServer, 0, True)

  32:          Return iResult = 0

  33:      End Function

 

使用 FileServerConnect 及 FileServerDisconnect 函式的方式如下

   1:          If FileServerConnect("FileServer", "UserName", "Password") Then

   2:              MsgBox("连结档案服务器成功!")

   3:          End If

   4:   

   5:          If FileServerDisconnect("FileServer") Then

   6:              MsgBox("中断档案服务器连结成功!")

   7:          End If