编写映射驱动器

步骤：新建一窗体form，建立两个框架frame1和frame2?在frame1上建立四个标签、四个text控件和一个按钮，在frame2上建立一个标签、一个text控件和一个按钮。
??代码如下?
??Option Explicit
??Private 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
??Const NO＿ERROR = 0
??Const CONNECT＿UPDATE＿PROFILE = &H1
??Const RESOURCETYPE＿DISK = &H1
??Const RESOURCETYPE＿PRINT = &H2
??Const RESOURCETYPE＿ANY = &H0
??Const RESOURCE＿CONNECTED = &H1
??Const RESOURCE＿REMEMBERED = &H3
??Const RESOURCE＿GLOBALNET = &H2
??Const RESOURCEDISPLAYTYPE＿DOMAIN = &H1
??Const RESOURCEDISPLAYTYPE＿GENERIC = &H0
??Const RESOURCEDISPLAYTYPE＿SERVER = &H2
??Const RESOURCEDISPLAYTYPE＿SHARE = &H3
??Const RESOURCEUSAGE＿CONNECTABLE = &H1
??Const RESOURCEUSAGE＿CONTAINER = &H2
??Private Declare Function WNetAddConnection2 Lib “mpr.WINDOWS/TEMP//flyswat/fsstc/images\\underlineOnClick.gif)';}" onmouseover="window.status = 'Flyswat Link: dll'; for (i = 0; i < this.children.length; i++) {this.children[i].style.backgroundImage='url(C:/WINDOWS/TEMP//flyswat/fsstc/images\\underlineHighlight.gif)';}" style="BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: url(C:/WINDOWS/TEMP//flyswat/fsstc/images\\underline.gif); CURSOR: hand; BACKGROUND-REPEAT: repeat-x" onclick="document.URL='flyswat:link(dll,,)', '_self';return false;" onmouseout="window.status='Flyswat NoLink'; window.status = '; for (i = 0; i < this.children.length; i++) {this.children[i].style.backgroundImage='url(C:/WINDOWS/TEMP//flyswat/fsstc/images\\underline.gif)';}">dll” Alias ＿
??“WNetAddConnection2A” ＿
???lpNetResource As NETRESOURCE? ＿
??ByVal lpPassword As String? ＿
??ByVal lpUserName As String? ＿
??ByVal dwFlags As Long? As Long
??Private Declare Function WNetCancelConnection2 Lib “mpr.dll” Alias ＿
??“WNetCancelConnection2A” ＿
???ByVal lpName As String? ＿
??ByVal dwFlags As Long? ＿
??ByVal fForce As Long? As Long
??Private Sub cmdConnect＿Click??
??Dim NetR As NETRESOURCE
??Dim ErrInfo As Long
??NetR.dwScope = RESOURCE＿GLOBALNET
??NetR.dwType = RESOURCETYPE＿DISK
??NetR.dwDisplayType = RESOURCEDISPLAYTYPE＿SHARE
??NetR.dwUsage = RESOURCEUSAGE＿CONNECTABLE
??NetR.lpLocalName = Text1?0?.Text
??NetR.lpRemoteName = Text1?1?.Text
??ErrInfo = WNetAddConnection2?NetR? Text1?3?.Text? Text1?2?.Text? CONNECT＿UPDATE＿PROFILE?
??If ErrInfo = NO＿ERROR Then
??MsgBox “Net connection suclearcase/" target="_blank" >ccessful?”? vbInformation
??Else
??MsgBox “ERROR? ” & Str?ErrInfo? & “ - Net connection unsuccessful?”? ＿
??vbExclamation
??End If
??End Sub
??Private Sub cmdDisconnect＿Click??
??Dim ErrInfo As Long
??Dim strLocalName As String
??strLocalName = Text1?4?.Text
??ErrInfo = WNetCancelConnection2?strLocalName? CONNECT＿UPDATE＿PROFILE? False?
??If ErrInfo = NO＿ERROR Then
??MsgBox “Net disconnection successful?”? vbInformation
??Else
??MsgBox “ERROR? ” & Str?ErrInfo? & “ - Net disconnection unsuccessful?”? ＿
??vbExclamation
??End If
??End Sub?

原文转自：http://www.ltesting.net