连结档案服务器-技术开发专区

连结档案服务器

作者：ITPUB论坛编辑： nancy 2008-04-28 00:00

【IT168技术文档】

一般手动连结网芳的档案服务器是使用 [开启\执行] 输入要连结的计算机，例如输入 "\\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

关注我们