modglobals.bas

利用USB设备锁定计算机的VB程序

Attribute VB_Name = "modGlobals"
'Download by http://www.codefans.net
Global Const glUSBStor = "SYSTEM\ControlSet001\Control\DeviceClasses\{53f56307-b6bf-11d0-94f2-00a0c91efb8b}"

Global glSeconds As Integer
Global glMinutes As Integer
Global glHours As Integer

Global glSecondsUsed As Integer
Global glMinutesUsed As Integer
Global glHoursUsed As Integer

Global gldoWhat As Integer

Global appActive As Boolean
Global doExit As Boolean
Global doDisable As Boolean