编写映射驱动器

Author: 陈冬亮 Date: 2001年 16期
?牐牪街瑁盒陆ㄒ淮疤錰orm，建立两个框架frame1和frame2，在frame1上建立四个标签、四个text控件和一个按钮，在frame2上建立一个标签、一个text控件和一个按钮。
　　#1?牐牬肴缦拢?
　　?牐燨ption Explicit
　　?牐燩rivate Type NETRESOURCE
　　?牐燿wScope As Long
　　?牐燿wType As Long
　　?牐燿wDisplayType As Long
　　?牐燿wUsage As Long
　　?牐爈pLocalName As String
　　?牐爈pRemoteName As String
　　?牐爈pComment As String
　　?牐爈pProvider As String
　　?牐燛nd Type
　　?牐燙onst NO_ERROR = 0
　　?牐燙onst CONNECT_UPDATE_PROFILE = &H1
　　?牐燙onst RESOURCETYPE_DISK = &H1
　　?牐燙onst RESOURCETYPE_PRINT = &H2
　　?牐燙onst RESOURCETYPE_ANY = &H0
　　?牐燙onst RESOURCE_CONNECTED = &H1
　　?牐燙onst RESOURCE_REMEMBERED = &H3
　　?牐燙onst RESOURCE_GLOBALNET = &H2
　　?牐燙onst RESOURCEDISPLAYTYPE_DOMAIN = &H1
　　?牐燙onst RESOURCEDISPLAYTYPE_GENERIC = &H0
　　?牐燙onst RESOURCEDISPLAYTYPE_SERVER = &H2
　　?牐燙onst RESOURCEDISPLAYTYPE_SHARE = &H3
　　?牐燙onst RESOURCEUSAGE_CONNECTABLE = &H1
　　?牐燙onst RESOURCEUSAGE_CONTAINER = &H2
　　?牐燩rivate Declare Function WNetAddConnection2 Lib "mpr.dll" Alias _
　　?牐?"WNetAddConnection2A" _
　　?牐牐╨pNetResource As NETRESOURCE， _
　　?牐燘yVal lpPassword As String， _
　　?牐燘yVal lpUserName As String， _
　　?牐燘yVal dwFlags As Long） As Long
　　?牐燩rivate Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias _
　　?牐?"WNetCancelConnection2A" _
　　?牐牐˙yVal lpName As String， _
　　?牐燘yVal dwFlags As Long， _
　　?牐燘yVal fForce As Long） As Long
　　?牐燩rivate Sub cmdConnect_Click?煟?
　　?牐燚im NetR As NETRESOURCE
　　?牐燚im ErrInfo As Long
　　?牐燦etR.dwScope = RESOURCE_GLOBALNET
　　?牐燦etR.dwType = RESOURCETYPE_DISK
　　?牐燦etR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
　　?牐燦etR.dwUsage = RESOURCEUSAGE_CONNECTABLE
　　?牐燦etR.lpLocalName = Text1（0）.Text
　　?牐燦etR.lpRemoteName = Text1（1）.Text
　　?牐燛rrInfo = WNetAddConnection2（NetR， Text1（3）.Text， Text1（2）.Text， CONNECT_UPDATE_PROFILE）??
　　?牐營f ErrInfo = NO_ERROR Then
　　?牐燤sgBox "Net connection successful!"， vbInformation
　　?牐燛lse
　　?牐燤sgBox "ERROR:" & Str（ErrInfo） & " - Net connection unsuccessful!"， _
　　?牐爒bExclamation
　　?牐燛nd If
　　?牐燛nd Sub
　　?牐燩rivate Sub cmdDisconnect_Click（）?煟?
　　?牐燚im ErrInfo As Long
　　?牐燚im strLocalName As String
　　?牐爏trLocalName = Text1（4）.Text
　　?牐燛rrInfo = WNetCancelConnection2（strLocalName， CONNECT_UPDATE_PROFILE， False）??
　　?牐營f ErrInfo = NO_ERROR Then
　　?牐燤sgBox "Net disconnection successful!"， vbInformation
　　?牐燛lse
　　?牐燤sgBox "ERROR: " & Str（ErrInfo） & " - Net disconnection unsuccessful!"， _
　　?牐爒bExclamation
　　?牐燛nd If
　　?牐燛nd Sub??