連結檔案伺服器
一般手動連結網芳的檔案伺服器是使用 [開啟\執行] 輸入要連結的電腦，例如輸入 \\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
