vb禁用usb代码（USB设备禁用代码29）

今天给各位分享vb禁用usb代码的知识，其中也会对USB设备禁用代码29进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、如何用vb编写一个程序可以禁用或者启用usb存储设备
• 2、如何VB调用API实现光驱，USB的禁用
• 3、vb通过usb不休眠
• 4、VB识别USB的代码
• 5、如何解除用VB脚本禁用掉的USB接口限制

如何用vb编写一个程序可以禁用或者启用usb存储设备

你可以在设备管理里面 将光电鼠用的那个USB以外的所有USB禁用 就可以了

如果不希望别人修改 你可以让普通用户成为非管理员权限

当然也可以在BIOS里面，在“Integrated Peripherals”选项下，将“USB 1.1 Controller”和“USB 2.0 Contr01ler”选项的属性设置为“Disableed”。就可以了

如何VB调用API实现光驱，USB的禁用

禁用U盘和移动硬盘

方法一，BIOS设置法（快刀斩乱麻法）

进入BIOS设置，选择“Integrated Peripherals”选项，展开后将“USB 1.1 Controller”和“USB 2.0 Contr01ler”选项的属性设置为“Disableed”，即可禁用USB接口。最后别忘记给BIOS设置上一个密码，这样他人就无法通过修改注册表解“锁”上述设备了。

注意：这个方法是完全禁止了USB接口，也就是说各种USB接口的设备均不能用了，当然也包括了U盘和移动盘。由于此法过于霸道，请慎用。

方法二，禁止闪盘或移动硬盘的启动（适用于Windows XP/2000/2003）

打开注册表编辑器，依次展开如下分支[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCntrolSet\Services\USBSTOR]，在右侧的窗格中找到名为“Start”的DWORD值，双击，在弹出的编辑对话框中将其数值数据修改为十六位进制数值“4”。点“确定”按钮并关闭注册表编辑器，重新启动计算机，使设置生效。重启后，当有人将USB存储设备连接到计算机时，虽然USB设备上的指示灯在正常闪烁，但在资源管理器当中就是无法找到其盘符，因此也就无法使用USB设备了。

方法三，隐藏盘符和禁止查看（适用于Windows系统）

打开注册表编辑器，依次展开如下分支[HKEY_CURRENT_USER\software\Microsoft\Windows\CurrentVersion\Ploicies\Explorer]，新建二进制值“NoDrives”，其缺省值均是00 00 00 00，表示不隐藏任何驱动器。键值由四个字节组成，每个字节的每一位（bit）对应从A:到Z:的一个盘，当相应位为1时，“我的电脑”中相应的驱动器就被隐藏了。第一个字节代表从A到H的8个盘，即01为A，02为B，04为C……依次类推，第二个字节代表I到P，第三个字节代表Q到X，第四个字节代表Y和Z。比如要关闭C盘，将键值改为04 00 00 00；要关闭D盘，则改为08 00 00 00，若要关闭C盘和D盘，则改为0C 00 00 00(C是十六进制，转成十进制就是12)。

理解了原理后，下面以我的电脑为例说明如何操作：我的电脑有一个软驱、一个硬盘(5个分区)、一个光驱，盘符分布是这样的：A:（3.5软盘）、C:、D:、E:、F:、G:、H:（光盘），所以我的“NoDrives”值为“02 ff ff ff”，隐藏了B、I到Z盘。

重启计算机后，再插入U盘，在我的电脑里也是看不出来的，但在地址栏里输入I:（我的电脑电后一个盘符是H）还是可以访问移动盘的。到这里大家都看得出“NoDrives”只是障眼法，所以我们还要做多一步，就是再新建一个二进制“NoViewOnDrive”，值改为“02 ff ff ff”，也就是说其值与“NoDrives”相同。 这样一来，既看不到U盘符也访问不到U盘了。

方法四，禁止安装USB驱动程序

在Windows资源管理器中，进入到“系统盘:\WINDOWS\inf”目录，找到名为“Usbstor.pnf”的文件，右键点击该文件，在弹出菜单中选择“属性”，然后切换到“安全”标签页，在“组或用户名称”框中选中要禁止的用户组，接着在用户组的权限框中，选中“完全控制”后面的“拒绝”复选框，最后点击“确定”按钮。

再使用以上方法，找到“usbstor.inf”文件并在安全标签页中设置为拒绝该组的用户访问，其操作过程同上。完成了以上设置后，该组中的用户就无法安装USB设备驱动程序了，这样就达到禁用的目的。

注意：要想使用访问控制列表(ACL)，要采用NTFS文件系统。

上面有一些是用修改注册表来实现的,你用VB访问注册表来修改就可以实现

(锁定光驱在Win2000上的实现)

新建一个工程，在窗体上加入两个按钮，粘贴以下程序，看看效果怎么样？^_^

Option Explicit

Private Const GENERIC_READ As Long = H80000000

Private Const FILE_SHARE_READ As Long = H1

Private Const FILE_SHARE_WRITE As Long = H2

Private Const OPEN_EXISTING As Long = 3

Private Const IOCTL_STORAGE_MEDIA_REMOVAL As Long = H2D4804

Private Type PREVENT_MEDIA_REMOVAL

PreventMediaRemoval As Byte

End Type

Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As Any) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Function LockCDROM(szDrive As String, IsLock As Boolean) As Boolean

On Error GoTo Err

Dim hDevice As Long

Dim PMR As PREVENT_MEDIA_REMOVAL

Dim bytesReturned As Long

Dim Success As Long

hDevice = CreateFile("\\.\" szDrive, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, 0, 0)

PMR.PreventMediaRemoval = CByte(Abs(IsLock))

Success = DeviceIoControl(hDevice, IOCTL_STORAGE_MEDIA_REMOVAL, PMR, Len(PMR), ByVal 0, 0, bytesReturned, ByVal 0)

CloseHandle hDevice

LockCDROM = True

Exit Function

Err:

LockCDROM = False

End Function

Private Sub Command1_Click()

Dim ret As Boolean

ret = LockCDROM("H:", True) '我的光驱盘符是H:

If ret Then

MsgBox "锁定成功", vbInformation, "提示"

Else

MsgBox "锁定失败", vbInformation, "提示"

End If

End Sub

Private Sub Command2_Click()

Dim ret As Boolean

ret = LockCDROM("H:", False)

If ret Then

MsgBox "解除锁定成功", vbInformation, "提示"

Else

MsgBox "解除锁定失败", vbInformation, "提示"

End If

End Sub

vb通过usb不休眠

首先点击电源管理图标。vb通过usb不休眠:解决方法如下:

1、首先点击电源管理图标，选择“更多电源选项”，点击更改计划设置选项。

2、其次点击“更改高级电源设置”选项。

3、最后选择“USB选择性暂停设置”，然后设置为已禁用。这样就禁止了USB设备休眠。

VB识别USB的代码

我在网上找的 关于USB的 希望你能用的上

VB串口及USB通讯问题(新手区)

VB串口及USB通讯问题(技巧区)

;extra=page=1

vb中有没有usb控件？

;extra=page%3D2

vb6 for usb

;extra=page=1

把电线插到USB接口里面，搅两搅会怎样？

;extra=page=1

可与usb进行通讯，完全代码。需要的朋友来下！

;extra=page%3D2

vb6怎么同usb接口通讯

;extra=page%3D1

小弟想写一个读取USB数据的程序，请问有何资料可参考？

;extra=page%3D1

如何直接控制USB口输出高低电平？？

;extra=page%3D1

程序里如何读取虚拟串口号

... mp;extra=#pid262864

请问VB如何对USB设备进行通信???谢谢

怎样VB读来自USB口的数据

VB如何实现USB通讯

用vb编程封锁usb口

谁有读取USB口数据的代码？

我有两个VB写的USB通讯程序,请问那个可以使用？

请教关于USB端口的问题:

VB如何与USB通信？？

vb驱动usb口

请教高手怎么用VB开发USB驱动程序？

关于串口,和USB问题

求助！！请问用VB编一个USB的测速功能该怎么写

VB读USB的VIDPID

vb怎样控制USB口,有没有控件?

如何利用VB来控制USB接口

请教用vb读写usb

招VB软件工程师一名(急急急)（置顶三天）

能和写单片机的工程师沟通，主要是为他们开发的东东的做界面，使用USB通讯。 Edited by: LionCSQ

如何让Vb程序在 Usb To Rs232 端口下工作

我用mscomm做了一个串行通讯的控件，但是当我的朋友拿去用的时候发现，那台机子上没有串行口，我就让他去买了一条usb转串口的线，，可是还是不能实现通讯，请各位快快帮我啊！！

如何解除用VB脚本禁用掉的USB接口限制

1、在开始菜单栏打开运行程序，或按Win+R键打开，后输入regedit打开注册表，找到[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control]

2、在Control的项上鼠标右键点击新建“项”，并命名为StorageDevicePolicies

3、在项StorageDevicePolicies的右侧新建一个名为WriteProtect的DWORD值，选32位的就行，并将值设置为0，然后鼠标右键点击项StorageDevicePolicies导出注册表文件，随意命名，这里命名为“U盘可读可写.reg”，意思就是运行此文件后U盘可以写入也可以读取，作用是用来解除U盘只能读取的限制

4、同样的步骤，将WriteProtect的值设置为1后，再次导出，并命名为“U盘只读.reg”

5、将以上两个文件拷贝至U盘，然后在你想要限制的电脑是运行“U盘只读.reg”，运行之后，U盘的资料可以拷贝至电脑，但U盘绝对放不进去东西，同时也不会因为到其他使用USB接口的设备，如网银U盾，USB接口鼠标等；如果你想解除此限制，再运行U盘可读可写.reg”就行了

vb禁用usb代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于USB设备禁用代码29、vb禁用usb代码的信息别忘了在本站进行查找喔。