VB能否达到这种功能（相同于NET命令）？

Question

释放网络占用资源：net use \\server\ipc$ /delete登录到网络上：
win98中:
net use \\server\ipc$这时系统会提示输入用户密码：（输入后，正确的话就能登录）VB可以做出上述功能吗？

Answer 1

不会，找找有没有相关的API，帮你顶

Answer 2

给个现成的给你:Private Type NETCONNECT
    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
Private Const HWND_TOPMOST = -1
Private Const CONNECT_UPDATE_PROFILE = &H1
Private Const RESOURCE_CONNECTED As Long = &H1&
Private Const RESOURCE_GLOBALNET As Long = &H2&
Private Const RESOURCETYPE_DISK As Long = &H1&
Private Const RESOURCEDISPLAYTYPE_SHARE& = &H3
Private Const RESOURCEUSAGE_CONNECTABLE As Long = &H1&
Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETCONNECT, 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
Public Function MapNetDrive(ByVal sLocalDrive As String, ByVal sRemoteDir As String, ByVal sUserName As String, ByVal sPassword As String, Optional bForever As Boolean = False) As Boolean
   Dim tNet       As NETCONNECT
   Dim lForever   As Long
   With tNet
      .lpProvider = vbNullString
      .dwScope = RESOURCE_GLOBALNET
      .dwType = RESOURCETYPE_DISK
      .dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
      .dwUsage = RESOURCEUSAGE_CONNECTABLE
      .lpLocalName = Left$(sLocalDrive, 1) & ":"
      .lpRemoteName = sRemoteDir
   End With
   lForever = 0
   If bForever Then lForever = CONNECT_UPDATE_PROFILE
   MapNetDrive = (WNetAddConnection2(tNet, sPassword, sUserName, lForever) = 0)
End FunctionPublic Function UnmapNetDrive(ByVal sConnectName As String, Optional bForever As Boolean = True, Optional bForce As Boolean = False) As Boolean
   Dim lFlag      As Long
   Dim lForce     As Long
   lFlag = 0
   If bForever Then lFlag = CONNECT_UPDATE_PROFILE
   lForce = 0
   If bForce Then lForce = -1
   UnmapNetDrive = (WNetCancelConnection2(sConnectName, lFlag, lForce) = 0)
End Function