編寫映射驅動器

領測軟件測試網 步驟：新建一窗體form，建立兩個框架frame1和frame2�熢趂rame1上建立四個標簽、四個text控件和一個按鈕，在frame2上建立一個標簽、一個text控件和一個按鈕。
�牐牬�碼如下��
�牐燨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.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 ＿
�牐牎癢NetAddConnection2A” ＿
�牐牐焞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 ＿
�牐牎癢NetCancelConnection2A” ＿
�牐牐烞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�烴etR�� Text1��3��.Text�� Text1��2��.Text�� CONNECT＿UPDATE＿PROFILE��
�牐營f ErrInfo = NO＿ERROR Then
�牐燤sgBox “Net connection successful�牎雹� vbInformation
�牐燛lse
�牐燤sgBox “ERROR�� ” & Str�烢rrInfo�� & “ - 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�焥trLocalName�� CONNECT＿UPDATE＿PROFILE�� False��
�牐營f ErrInfo = NO＿ERROR Then
�牐燤sgBox “Net disconnection successful�牎雹� vbInformation
�牐燛lse
�牐燤sgBox “ERROR�� ” & Str�烢rrInfo�� & “ - Net disconnection unsuccessful�牎雹� ＿
�牐爒bExclamation
�牐燛nd If
�牐燛nd Sub��

延伸閱讀

文章來源于領測軟件測試網 http://www.kjueaiud.com/