frmmain.frm

Usb Key loock vb soucrse code. ocx not found

VERSION 5.00
Object = "{63508B52-7013-424F-9244-AA00D2A3A5BD}#1.0#0"; "SysTray.ocx"
Object = "{065E6FD1-1BF9-11D2-BAE8-00104B9E0792}#3.0#0"; "ssa3d30.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmmain 
   AutoRedraw      =   -1  'True
   Caption         =   "USB System Locker"
   ClientHeight    =   4110
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6000
   Icon            =   "frmmain.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   4110
   ScaleWidth      =   6000
   StartUpPosition =   3  'Windows 扁夯蔼
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   10000
      Left            =   4920
      Top             =   3120
   End
   Begin VB.Timer tmrCheck 
      Interval        =   1000
      Left            =   4920
      Top             =   3600
   End
   Begin SysTrayCtl.cSysTray cSysTray1 
      Left            =   4320
      Top             =   3480
      _ExtentX        =   900
      _ExtentY        =   900
      InTray          =   0   'False
      TrayIcon        =   "frmmain.frx":058A
      TrayTip         =   ""
   End
   Begin Threed.SSFrame SSFrame2 
      Height          =   2175
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   6015
      _ExtentX        =   10610
      _ExtentY        =   3836
      _Version        =   196610
      ForeColor       =   -2147483635
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "奔覆"
         Size            =   9
         Charset         =   129
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "柳青芒"
      Begin MSComctlLib.TreeView LstDriver 
         Height          =   1575
         Left            =   3220
         TabIndex        =   1
         Top             =   480
         Width           =   2700
         _ExtentX        =   4763
         _ExtentY        =   2778
         _Version        =   393217
         LabelEdit       =   1
         Sorted          =   -1  'True
         Style           =   5
         FullRowSelect   =   -1  'True
         HotTracking     =   -1  'True
         SingleSel       =   -1  'True
         ImageList       =   "ImageList1"
         Appearance      =   1
         OLEDragMode     =   1
      End
      Begin MSComctlLib.ListView lvwDrives 
         Height          =   1590
         Left            =   0
         TabIndex        =   4
         Top             =   480
         Width           =   3210
         _ExtentX        =   5662
         _ExtentY        =   2805
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   0   'False
         FullRowSelect   =   -1  'True
         HotTracking     =   -1  'True
         HoverSelection  =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "奔覆眉"
            Size            =   9
            Charset         =   129
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         NumItems        =   4
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "靛扼捞宏"
            Object.Width           =   1587
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "鸥涝"
            Object.Width           =   2117
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "叼官捞胶 疙"
            Object.Width           =   4410
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   3
            Text            =   "绊蜡 Serial"
            Object.Width           =   2540
         EndProperty
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "∝ 靛扼捞宏 格废"
         Height          =   180
         Left            =   3240
         TabIndex        =   3
         Top             =   240
         Width           =   1380
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "∝ Dvice 格废"
         Height          =   180
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Width           =   1125
      End
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   720
      Top             =   2880
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   11
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":0C84
            Key             =   "pluse"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":10D6
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":2C98
            Key             =   "update"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":3232
            Key             =   "what"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":3684
            Key             =   "help"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":37DE
            Key             =   "next"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":3C30
            Key             =   "updates"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":450A
            Key             =   "usb"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":4AA4
            Key             =   "drive"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":503E
            Key             =   "on-ok"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":5198
            Key             =   "on-off"
         EndProperty
      EndProperty
   End
   Begin VB.Menu 沥焊 
      Caption         =   "沥焊"
      Visible         =   0   'False
      Begin VB.Menu USB 
         Caption         =   "USB System Locker"
      End
      Begin VB.Menu bar 
         Caption         =   "-"
      End
      Begin VB.Menu 哪腔磐沥焊 
         Caption         =   "郴 哪腔磐 沥焊"
      End
      Begin VB.Menu bar2 
         Caption         =   "-"
      End
      Begin VB.Menu 权其捞瘤捞悼 
         Caption         =   "权其捞瘤 捞悼"
      End
      Begin VB.Menu 档框富捞悼 
         Caption         =   "档框富 捞悼"
      End
      Begin VB.Menu bar3 
         Caption         =   "-"
      End
      Begin VB.Menu 券版汲沥 
         Caption         =   "券版 汲沥"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_RESTORE = 9
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_LWIN = &H5B
Dim ADvrNum As Integer
Dim ADvr(25) As Integer
Dim MyPath As String
Dim TmrStatus As Boolean
Dim KeyOK As Boolean
Dim UnLockKey As String
Dim HackAlert As Boolean
Dim Hwd As Long
Dim rtn As Long

Dim usb_device_name_result As Boolean '饭瘤胶飘俊辑 叼官捞胶蔼阑 阂矾坷绰 蔼捞 嘎绰瘤 酒囱瘤 急琶
Dim usb_device_volume_result As Boolean '饭瘤胶飘俊辑 叼官捞胶 杭俘蔼阑 杭矾坷绰 蔼捞 嘎绰瘤 酒囱瘤 急琶
Dim usb_device_serial_result As Boolean '饭瘤胶飘俊辑 叼官捞胶 绊蜡狼 矫府倔虐 阂矾坷绰 蔼捞 嘎绰瘤 酒囱瘤 急琶

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Implements iSubclass

Private Declare Function GetLogicalDriveStrings Lib "kernel32" _
Alias "GetLogicalDriveStringsA" ( _
    ByVal nBufferLength As Long, _
    ByVal lpBuffer As String _
) As Long
'叼官捞胶 靛扼捞宏 蔼阑 龋免

Private Const HWND_MESSAGE As Long = -3
Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function RegisterWindowMessage Lib "user32.dll" _
Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long

Private m_clsSubcls As cSubclass '辑宏 努贰胶 积己
Private usb_Serial As clsDriveSerial '努贰胶 葛碘 积己

Private Sub Form_Unload(Cancel As Integer) '橇肺弊伐捞 辆丰瞪锭 惯积窍绰 捞亥飘
On Error Resume Next

    tmrCheck.Enabled = False '鸥捞赣辆丰
    UnHook '饶欧阑 攫肺爹
    DestroyMenu hMenu '扑诀皋春狼 攫肺爹
    End '橇肺弊伐 辆丰
End Sub

Private Sub iSubclass_WndProc(ByVal bBefore As Boolean, bHandled As Boolean, lReturn As Long, ByVal lng_hWnd As Long, ByVal uMsg As eMsg, ByVal wParam As Long, ByVal lParam As Long, lParamUser As Long)
    If uMsg = WM_DEVICECHANGE Then RefreshDriveList
   ' 辑宏努贰胶 - 叼官捞胶 靛扼捞宏狼 蔼捞 函版瞪锭 弊蔼甸阑 府胶飘轰俊 府敲饭浆 秦林扁困茄
   '辑宏 努贰胶捞促.
End Sub


Private Sub 哪腔磐沥焊_Click()
frmhelp.Show 1
End Sub

Private Sub cSysTray1_MouseUp(Button As Integer, Id As Long) '飘扼捞酒捞能 牧飘费俊 付快胶诀 沁阑锭 捞亥飘
Select Case Button
    Case vbRightButton '坷弗率 滚畔阑 喘范阑锭
         MenuTrack Me '扑诀皋春阑 龋免茄促.
    Case vbLeftButton '哭率 滚畔阑 喘范阑锭
    
    End Select
End Sub

Private Sub Form_Activate() '汽捞 矫累瞪矫 劝悼阑 矫累且锭 惯积窍绰 捞亥飘
Me.Hide '汽阑 见变促.

End Sub




Private Sub Form_Initialize() '汽捞 矫累瞪矫 累悼窍绰 捞亥飘
Me.Hide '汽阑 见变促.

With Me.cSysTray1
       .InTray = True
       .TrayTip = "USB System Locker Agent"
End With
'//矫胶袍 飘饭捞 哪器惩品 汲沥蔼阑 瘤沥茄促.
'//intray蔼阑 true 肺窍咯 飘扼捞 拳搁栏肺 傈券窍绊
'//飘扼捞 哪器惩飘狼 屏蔼阑 困客 鞍捞 汲沥沁促