±àдӳÉäÇý¶¯Æ÷

Áì²âÈí¼þ²âÊÔÍø ²½Ö裺н¨Ò»´°Ìå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 successful¡ ¡±¢Ÿ 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£Ÿ

ÑÓÉìÔĶÁ

ÎÄÕÂÀ´Ô´ÓÚÁì²âÈí¼þ²âÊÔÍø https://www.ltesting.net/