在好例子网，分享、交流、成长！
您当前所在位置：首页 → Others 开发实例 → Clojure → USB监视器

USB监视器

Clojure

下载此实例
  • 开发语言：Others
  • 实例大小：8.50M
  • 下载次数：20
  • 浏览次数：130
  • 发布时间：2022-01-21
  • 实例类别：Clojure
  • 发 布 人：mybeibuwan
  • 文件格式：.rar
  • 所需积分：2
 相关标签： usb 监视
网友评论 举报投诉 收藏该页

实例介绍

【实例简介】USB监视器

 监测USB设备的插拔，开发语言为VB.NET。

【实例截图】

【核心代码】


    'Overriding Windows Procedure
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_DEVICECHANGE
                If usbWatcher IsNot Nothing Then
                    onDeviceChange(m.WParam, m.LParam)
                End If
        End Select
        MyBase.WndProc(m)
    End Sub

    'Function to handle the device change. wparam contains information about the event 
    'e.g. device arrival or removal, lparam contains details of the drive
    Private Sub onDeviceChange(ByVal wparam As IntPtr, ByVal lparam As IntPtr)
        Dim driveType As String, driveName As Char
        Dim dateString, timeString, logString As String

        'Two-step type casting is required in order to extract information from lparam
        'For more on this topic, read about the structures PDEV_BROADCAST_HDR & PDEV_BROADCAST_VOLUME
        Dim lpdb As New PDEV_BROADCAST_HDR
        Dim lpdbv As New PDEV_BROADCAST_VOLUME
        lpdb = Marshal.PtrToStructure(lparam, GetType(PDEV_BROADCAST_HDR))
        lpdbv = Marshal.PtrToStructure(lparam, GetType(PDEV_BROADCAST_VOLUME))

        Select Case wparam.ToInt32()
            Case DBT_DEVICEARRIVAL 'A device is attached
                driveName = EvaluateMask(lpdbv.dbcv_unitmask) 'driveName now has letter of the drive
                driveType = DetermineDriveType(driveName)
                'If the device is removable, activate the corresponding FileSystemWatcher
                If (driveType = "Removable" AndAlso usbWatcher IsNot Nothing) Then
                    usbWatcher.beginWatcherOnDrive(driveName)
                    'Record u disk Attached log
                    dateString = String.Format("{0:yyyy年MM月dd日}", System.DateTime.Now)
                    timeString = String.Format("{0:HH:mm:ss}", System.DateTime.Now)
                    logString = "盘符为 " & driveName & " 的设备于" & dateString & timeString & "已连接"
                    Console.WriteLine(logString)
                End If
            Case DBT_DEVICEREMOVECOMPLETE
                driveName = EvaluateMask(lpdbv.dbcv_unitmask)
                'Drive letter determined, remove corresponding FileSystemWatcher
                If (usbWatcher IsNot Nothing) Then
                    usbWatcher.stopWatcherOnDrive(driveName)
                    'Record u disk Unattached log
                    dateString = String.Format("{0:yyyy年MM月dd日}", System.DateTime.Now)
                    timeString = String.Format("{0:HH:mm:ss}", System.DateTime.Now)
                    logString = "盘符为 " & driveName & " 的设备于" & dateString & timeString & "已弹出"
                    Console.WriteLine(logString)
                End If
        End Select
    End Sub

.
├── USB Monitor_F
│   ├── CopyAndMoveFileTest
│   │   ├── APIHook.cpp
│   │   ├── APIHook.h
│   │   ├── CopyAndMoveFileTest.cpp
│   │   ├── CopyAndMoveFileTest.dsp
│   │   ├── CopyAndMoveFileTest.dsw
│   │   ├── CopyAndMoveFileTest.h
│   │   ├── CopyAndMoveFileTest.ncb
│   │   ├── CopyAndMoveFileTest.opt
│   │   ├── CopyAndMoveFileTest.plg
│   │   ├── CopyAndMoveFileTest.sln
│   │   ├── CopyAndMoveFileTest.suo
│   │   ├── CopyAndMoveFileTest.vcproj
│   │   ├── CopyAndMoveFileTest.vcproj.GOLDCICA-ABC85F.goldcicada.user
│   │   ├── Debug
│   │   │   ├── APIHook.obj
│   │   │   ├── BuildLog.htm
│   │   │   ├── CopyAndMoveFileTest.exp
│   │   │   ├── CopyAndMoveFileTest.lib
│   │   │   ├── CopyAndMoveFileTest.obj
│   │   │   ├── CopyAndMoveFileTest.pch
│   │   │   ├── CopyAndMoveFileTest.pdb
│   │   │   ├── StdAfx.obj
│   │   │   ├── filehook.dll
│   │   │   ├── filehook.dll.embed.manifest
│   │   │   ├── filehook.dll.embed.manifest.res
│   │   │   ├── filehook.dll.intermediate.manifest
│   │   │   ├── filehook.ilk
│   │   │   ├── mt.dep
│   │   │   ├── vc90.idb
│   │   │   └── vc90.pdb
│   │   ├── Device.h
│   │   ├── ReadMe.txt
│   │   ├── StdAfx.cpp
│   │   ├── StdAfx.h
│   │   └── Toolhelp.h
│   ├── Setup1
│   │   ├── Debug
│   │   ├── Release
│   │   └── Setup1.vdproj
│   ├── USB Monitor
│   │   ├── AboutBox.Designer.vb
│   │   ├── AboutBox.resx
│   │   ├── AboutBox.vb
│   │   ├── ApplicationEvents.vb
│   │   ├── Console.vb
│   │   ├── Form1.Designer.vb
│   │   ├── Form1.resx
│   │   ├── Form1.vb
│   │   ├── My Project
│   │   │   ├── Application.Designer.vb
│   │   │   ├── Application.myapp
│   │   │   ├── AssemblyInfo.vb
│   │   │   ├── Resources.Designer.vb
│   │   │   ├── Resources.resx
│   │   │   ├── Settings.Designer.vb
│   │   │   └── Settings.settings
│   │   ├── Resources
│   │   │   ├── Download.png
│   │   │   ├── Stop.png
│   │   │   ├── Upload.png
│   │   │   ├── 华矿合影.jpg
│   │   │   └── 沈阳华矿.jpg
│   │   ├── WatcherArray.vb
│   │   ├── bin
│   │   │   ├── Debug
│   │   │   │   ├── USB Monitor.vshost.exe.manifest
│   │   │   │   ├── filehook.dll
│   │   │   │   ├── mtlog.txt
│   │   │   │   ├── 文档安全防护平台.exe
│   │   │   │   ├── 文档安全防护平台.pdb
│   │   │   │   ├── 文档安全防护平台.vshost.exe
│   │   │   │   ├── 文档安全防护平台.vshost.exe.manifest
│   │   │   │   └── 文档安全防护平台.xml
│   │   │   └── Release
│   │   │       ├── USB Monitor.exe
│   │   │       ├── USB Monitor.pdb
│   │   │       ├── USB Monitor.vshost.exe.manifest
│   │   │       ├── USB Monitor.xml
│   │   │       ├── filehook.dll
│   │   │       ├── 文档安全防护平台.exe
│   │   │       ├── 文档安全防护平台.pdb
│   │   │       ├── 文档安全防护平台.vshost.exe
│   │   │       ├── 文档安全防护平台.vshost.exe.manifest
│   │   │       └── 文档安全防护平台.xml
│   │   ├── mainForm.Designer.vb
│   │   ├── mainForm.resx
│   │   ├── mainForm.vb
│   │   ├── obj
│   │   │   ├── Debug
│   │   │   │   ├── DSPP.AboutBox.resources
│   │   │   │   ├── DSPP.Resources.resources
│   │   │   │   ├── DSPP.USBmonitorForm.resources
│   │   │   │   ├── DSPP.mainForm.resources
│   │   │   │   ├── TempPE
│   │   │   │   │   └── My Project.Resources.Designer.vb.dll
│   │   │   │   ├── USB Monitor.vbproj.FileListAbsolute.txt
│   │   │   │   ├── USB Monitor.vbproj.GenerateResource.Cache
│   │   │   │   ├── 文档安全防护平台.exe
│   │   │   │   ├── 文档安全防护平台.pdb
│   │   │   │   ├── 文档安全防护平台.vbproj.FileListAbsolute.txt
│   │   │   │   ├── 文档安全防护平台.vbproj.GenerateResource.Cache
│   │   │   │   └── 文档安全防护平台.xml
│   │   │   └── Release
│   │   │       ├── DSPP.AboutBox.resources
│   │   │       ├── DSPP.Resources.resources
│   │   │       ├── DSPP.USBmonitorForm.resources
│   │   │       ├── DSPP.mainForm.resources
│   │   │       ├── TempPE
│   │   │       │   └── My Project.Resources.Designer.vb.dll
│   │   │       ├── USB Monitor.exe
│   │   │       ├── USB Monitor.pdb
│   │   │       ├── USB Monitor.vbproj.FileListAbsolute.txt
│   │   │       ├── USB Monitor.vbproj.GenerateResource.Cache
│   │   │       ├── USB Monitor.xml
│   │   │       ├── USB_Monitor.Form1.resources
│   │   │       ├── USB_Monitor.Resources.resources
│   │   │       ├── 文档安全防护平台.exe
│   │   │       ├── 文档安全防护平台.pdb
│   │   │       ├── 文档安全防护平台.vbproj.FileListAbsolute.txt
│   │   │       ├── 文档安全防护平台.vbproj.GenerateResource.Cache
│   │   │       └── 文档安全防护平台.xml
│   │   ├── 文档安全防护平台.vbproj
│   │   └── 文档安全防护平台.vbproj.user
│   ├── USB Monitor.sln
│   └── USB Monitor.suo
└── 好例子网_USB Monitor_F.rar

17 directories, 111 files


标签： usb 监视

实例下载地址

USB监视器

不能下载？内容有错？ 点击这里报错 + 投诉 + 提问

好例子网口号：伸出你的我的手 — 分享！

相关软件

相关文章

网友评论

我要评论

发表评论

(您的评论需要经过审核才能显示)

查看所有0条评论>>

小贴士

感谢您为本站写下的评论，您的评论对其它用户来说具有重要的参考价值，所以请认真填写。

  • 类似“顶”、“沙发”之类没有营养的文字，对勤劳贡献的楼主来说是令人沮丧的反馈信息。
  • 相信您也不想看到一排文字/表情墙，所以请不要反馈意义不大的重复字符，也请尽量不要纯表情的回复。
  • 提问之前请再仔细看一遍楼主的说明，或许是您遗漏了。
  • 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦，又没人会搭理，于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享，对搜索内容的合法性不具有预见性、识别性、控制性，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论平台是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定，若资源存在侵权或相关问题请联系本站客服人员，点此联系我们。关于更多版权及免责申明参见 版权及免责申明

;
报警