用VB.NET 怎么编映射网络磁盘

用VB.NET 怎么编映射网络磁盘

本来可以用简单的dos命令的，但是影射成功与否返回不理想，建议用API，见下面
Module LocalNetConnect'模块,直接复制即可
    Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer
    Public Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Integer, ByVal fForce As Integer) As Integer
    Public Structure NETRESOURCE
        Dim dwScope As Integer
        Dim dwType As Integer
        Dim dwDisplayType As Integer
        Dim dwUsage As Integer
        Dim lpLocalName As String
        Dim lpRemoteName As String
        Dim lpComment As String
        Dim lpProvider As String
    End Structure
    Public Function netconnect(ByVal localDrive As String, ByVal sharePath As String, ByVal userName As String, ByVal UserPassword As String) As Boolean
        Dim NetR As New NETRESOURCE
        Dim ErrInfo As Integer
        NetR.dwScope = 2
        NetR.dwType = 1
        NetR.dwDisplayType = 3
        NetR.dwUsage = 1
        '设置驱动器
        NetR.lpLocalName = localDrive
        '设置远程端口名字
        NetR.lpRemoteName = sharePath
        '设置连接
        ErrInfo = WNetAddConnection2(NetR, UserPassword, userName, 1)
        If ErrInfo = 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function netdisconnect(ByVal localDrive As String) As Boolean
        Dim ErrInfo As Integer
        ErrInfo = WNetCancelConnection2(localDrive, 1, False)
        If ErrInfo = 0 Then
            Return True
        Else
            Return False
        End If
    End Function
End Module
‘调用
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 '这里是映射调用，administrator为用户名，根据实际用户名
 ’如果将“Z:”设置为空就不会网络盘映射但是已经和172.26.120.47联机了（返回真时成立)。
        If netconnect("Z:", "\\172.26.120.47\c$", "administrator", "局域网电脑实际密码") = True Then
            MsgBox("success")
        Else
            MsgBox("Faile")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click'这里是取消映射
        If netdisconnect("Z:") = True Then
            MsgBox("success")
        Else
            MsgBox("Faile")
        End If
    End Sub

系统自带的wlan里边只要有wifi信号就会显示这个信号有没有开启wps功能

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息