module1.bas

电子书“Visual Basic 6 网络编程实例教程.rar”

Attribute VB_Name = "Module1"
Option Explicit

Public Type NETRESOURCE
   dwScope       As Long
   dwType        As Long
   dwDisplayType As Long
   dwUsage       As Long
   lpLocalName   As String
   lpRemoteName  As String
   lpComment     As String
   lpProvider    As String
End Type

'----------------------------------------------
'函数WNetAddConnection2允许调用者重新连接本地设备到一个网络资源中，
'该函数与函数WNetAddConnection很相似。但本函数将使用一个描述要连接的资源的
'NETRESOURCE结构，还要使用lpUserID和dwFlags作为参数。
'lpNetResource
'指定要连接的网络资源。在建立连接时，必须正确设置下述成员的值，
'其它成员则可忽略。
'  lpRemoteName: 指定要连接的网络资源，其最大长度不得超过MAX_PATH。
'  lpLocalName: 将被重定位的本地设备，比如"F:"或"LPT1"，该字符串是大小写敏感的。
'               该字符串可以是空字符串（或NULL），此时，对网络资源的连接无需重定位
'  lpProvider: 指定要连接的NP，如果是NULL或空字符串，则Windows会轮流尝试每个NP，
'              调用者只在确实知道它所需要的网络时才设置本参数的值，否则，最好由
'              让Windows自行确定网络名称映射的NP。如果本参数的值不是NULL，则Windows只
'              尝试使用这个NP。
'  dwType: 指定要连接的资源的类型。如果lpLocalName不是一个空字符串，则它必须是
'          RESOURCETYPE_DISK或RESOURCETYPE_PRINT；如果lpLocalName是空字符串，则
'          它可以为RESOURCETYPE_ANY。
'以下的成员可以被忽略
'lpPassword: 指定建立连接时使用的访问口令。一般而言，该参数是与参数lpUserID
'            相关联的。NULL值或空字符串表示使用当前缺省的访问口令。'
'lpUserID:  指定要建立连接的用户名。如果为NULL，则应用缺省的用户来建立连接。
'           这主要是由于在用户想连接到资源时，但该用户却被分配了另一个不同的
'           用户名或账号来访问资源。'
'dwFlags: 这是一个位掩码的标志参数。
 
Public Declare Function WNetAddConnection2 Lib "mpr.dll" _
    Alias "WNetAddConnection2A" _
   (lpNetResource As NETRESOURCE, _
    ByVal lpPassword As String, _
    ByVal lpUserName As String, _
    ByVal dwFlags As Long) As Long
       
Public Declare Function WNetCancelConnection2 Lib "mpr.dll" _
    Alias "WNetCancelConnection2A" _
   (ByVal lpName As String, _
    ByVal dwFlags As Long, _
    ByVal fForce As Long) As Long
       
Public Declare Function WNetConnectionDialog Lib "mpr.dll" _
   (ByVal hwnd As Long, ByVal dwType As Long) As Long
   
Public Declare Function WNetDisconnectDialog Lib "mpr.dll" _
   (ByVal hwnd As Long, ByVal dwType As Long) As Long

'Public Const RESOURCE_CONNECTED = &H1
'Public Const RESOURCE_REMEMBERED = &H3
'Public Const RESOURCEDISPLAYTYPE_DOMAIN = &H1
'Public Const RESOURCEDISPLAYTYPE_GENERIC = &H0
'Public Const RESOURCEDISPLAYTYPE_SERVER = &H2
'Public Const RESOURCEUSAGE_CONTAINER = &H2

Public Const ERROR_SUCCESS = 0
Public Const CONNECT_UPDATE_PROFILE = &H1
Public Const RESOURCETYPE_DISK = &H1
Public Const RESOURCETYPE_PRINT = &H2
Public Const RESOURCETYPE_ANY = &H0
Public Const RESOURCE_GLOBALNET = &H2
Public Const RESOURCEDISPLAYTYPE_SHARE = &H3
Public Const RESOURCEUSAGE_CONNECTABLE = &H1

Public Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" _
   (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
    
Public Const SW_SHOWNORMAL = 1