Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用VB.net锁定计算机驱动器_Vb.net_Locking_Vb.net 2010 - Fatal编程技术网

使用VB.net锁定计算机驱动器

使用VB.net锁定计算机驱动器,vb.net,locking,vb.net-2010,Vb.net,Locking,Vb.net 2010,我想创建一个项目,通过它我应该能够首先看到我的驱动器,然后选择其中一个以编程方式锁定它们。 可能吗? 如果是,请回答您可以使用DriveInfo.GetDrives获取设备 您想如何锁定它们?如果要对文件夹进行编码,请查看 在没有加密的情况下锁定设备或文件夹是不可靠的,因为在这种情况下,数据不会在另一台电脑上锁定。我测试了下面从中提取的代码。首先,您必须提供一种方法来选择要锁定的目录,在本例中,使用了FolderBrowser对话框 Private Sub Button1_Click(sende

我想创建一个项目,通过它我应该能够首先看到我的驱动器,然后选择其中一个以编程方式锁定它们。 可能吗?
如果是,请回答

您可以使用DriveInfo.GetDrives获取设备

您想如何锁定它们?如果要对文件夹进行编码,请查看


在没有加密的情况下锁定设备或文件夹是不可靠的,因为在这种情况下,数据不会在另一台电脑上锁定。

我测试了下面从中提取的代码。首先,您必须提供一种方法来选择要锁定的目录,在本例中,使用了FolderBrowser对话框

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
        Try
            If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                TextBox1.Text = FolderBrowserDialog1.SelectedPath
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Sub
然后,我创建了两个按钮来锁定和解锁目录,该目录的路径先前由上述函数写入文本框

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles btnLock.Click
    Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)

    fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))

    File.SetAccessControl(TextBox1.Text, fs)
End Sub

Private Sub btnUnlock_Click(sender As System.Object, e As System.EventArgs) Handles btnUnlock.Click
        Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)

        fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))

        File.SetAccessControl(TextBox1.Text, fs)
End Sub

第一个锁定目录,另一个解锁目录

感谢您的反馈。。。。。。但我的计划是锁定我电脑的驱动器。。。。。。。。。。使用加密、拒绝访问或其他任何方式。。即使在运行时间之后,它也应该能够工作