frmconfig.frm

Usb Key loock vb soucrse code. ocx not found

            _ExtentY        =   450
            _Version        =   196610
            BackColor       =   -2147483647
            PictureFrames   =   1
            Picture         =   "frmconfig.frx":7C0B
            ButtonStyle     =   3
         End
         Begin Threed.SSCommand SSCommand7 
            Height          =   255
            Left            =   4920
            TabIndex        =   63
            Top             =   60
            Width           =   375
            _ExtentX        =   661
            _ExtentY        =   450
            _Version        =   196610
            BackColor       =   -2147483647
            PictureFrames   =   1
            Picture         =   "frmconfig.frx":7D65
            ButtonStyle     =   3
         End
         Begin Threed.SSCommand SSCommand8 
            Height          =   255
            Left            =   120
            TabIndex        =   64
            Top             =   60
            Width           =   375
            _ExtentX        =   661
            _ExtentY        =   450
            _Version        =   196610
            BackColor       =   -2147483647
            PictureFrames   =   1
            Picture         =   "frmconfig.frx":7EBF
            ButtonStyle     =   3
         End
      End
      Begin Threed.SSPanel SSPanel9 
         Height          =   375
         Left            =   -74950
         TabIndex        =   55
         Top             =   360
         Width           =   5910
         _ExtentX        =   10425
         _ExtentY        =   661
         _Version        =   196610
         ForeColor       =   16777215
         BackColor       =   -2147483647
         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         =   "USB System Locker  (俺惯磊侩)"
         BevelOuter      =   0
         RoundedCorners  =   0   'False
         FloodShowPct    =   -1  'True
      End
      Begin MSComctlLib.ProgressBar ProgressBar3 
         Height          =   220
         Left            =   3360
         TabIndex        =   66
         Top             =   3340
         Width           =   2535
         _ExtentX        =   4471
         _ExtentY        =   397
         _Version        =   393216
         Appearance      =   0
         Scrolling       =   1
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "钦聪促. 窜, 家胶绰 阂过 版肺肺  硅器 棺  魄概甫 窍瘤 给钦聪促."
         Height          =   180
         Left            =   -74760
         TabIndex        =   59
         Top             =   3960
         Width           =   5160
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "罐瘤 臼嚼聪促. 俺惯磊狼 悼狼 绝捞 磊蜡酚霸 荐沥饶 硅器啊 啊瓷"
         Height          =   180
         Left            =   -74760
         TabIndex        =   58
         Top             =   3720
         Width           =   5220
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "啊傍窍咯, 惑诀侩 家橇飘傀绢甫 俺惯秦辑 魄概窍咯档, 过利 炼摹甫"
         Height          =   180
         Left            =   -74760
         TabIndex        =   57
         Top             =   3480
         Width           =   5340
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "捞 家橇飘傀绢狼 钱家胶绰 惑诀利 啊摹啊 乐栏哥, 捞甫 备概饶"
         Height          =   180
         Left            =   -74760
         TabIndex        =   56
         Top             =   3240
         Width           =   4980
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "辑滚立加  惑怕 : 楷搬救凳"
         BeginProperty Font 
            Name            =   "奔覆"
            Size            =   9
            Charset         =   129
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   360
         TabIndex        =   54
         Top             =   3190
         Width           =   2325
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "(C)Copyright 2001 - 2008 Hanulsoft  Software"
         BeginProperty Font 
            Name            =   "奔覆"
            Size            =   9
            Charset         =   129
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   180
         Left            =   -74280
         TabIndex        =   24
         Top             =   5040
         Width           =   4440
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "阂过 汗力狼 版快绰 刮,屈荤 惑 贸国阑 罐阑荐档 乐嚼聪促. "
         BeginProperty Font 
            Name            =   "奔覆"
            Size            =   9
            Charset         =   129
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   -74760
         TabIndex        =   23
         Top             =   4680
         Width           =   5235
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "1瞒利牢 家橇飘傀绢狼 钱家胶狼 历累鼻篮 茄匡家橇飘啊 啊笼聪促."
         Height          =   180
         Left            =   -74760
         TabIndex        =   22
         Top             =   4320
         Width           =   5310
      End
   End
   Begin Threed.SSCommand SSCommand1 
      Height          =   375
      Left            =   4560
      TabIndex        =   0
      Top             =   5520
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   661
      _Version        =   196610
      PictureFrames   =   1
      Picture         =   "frmconfig.frx":8019
      Caption         =   "摧扁"
      PictureAlignment=   10
   End
   Begin Threed.SSCommand SSCommand2 
      Height          =   375
      Left            =   2760
      TabIndex        =   1
      Top             =   5520
      Width           =   1695
      _ExtentX        =   2990
      _ExtentY        =   661
      _Version        =   196610
      PictureFrames   =   1
      Picture         =   "frmconfig.frx":8173
      Caption         =   "券版汲沥 历厘"
      PictureAlignment=   10
   End
End
Attribute VB_Name = "frmconfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
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


'Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) 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
'Dim ADvrNum As Integer '靛扼捞宏狼 荐樊阑 盲农窍绰 窃荐
'Dim ADvr(25) As Integer '函荐蔼
'Dim CreatedANewKey As Boolean '货肺款 鞠龋拳虐甫 积己窍绰 可记蔼
'Dim UnLockKey As String '鞠龋拳虐
'Dim a, B, sIn '汽阑 框流捞霸 窍扁困茄 函荐甸...

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 '辑宏 努贰胶 积己


Dim timer_off As Boolean

Private Sub cmdStart_Click()
On Error Resume Next
Call BASS_ChannelStop(chan) '扁夯利栏肺 刚历 规价阑 辆丰茄促.

' If (cthread) Then   '楷搬等 惑怕扼搁
   ' frmlist.Listview1.Enabled = True '府胶飘轰甫 劝己拳矫挪促.
 '   Else
        '规价林家甫 烹秦辑 宏肺靛纳胶泼 辑滚 楷搬..
  Call BASS_ChannelStop(chan) '扁夯利栏肺 刚历 规价阑 辆丰茄促.

 If (cthread) Then   '楷搬等 惑怕扼搁
    Else
        Dim threadid As Long '胶饭靛 酒捞叼
        cthread = CreateThread(ByVal 0&, 0, AddressOf OpenURL, Me.TreeView1.SelectedItem.index - 1, 0, threadid)  '静饭靛 积己
        SSPanel10.Caption = Me.TreeView1.SelectedItem.Text
 End If
End Sub

Private Sub Dir1_Change()
On Error Resume Next
'叼泛配府 哪器惩飘甫 努腐沁阑锭 函拳登绰 蔼甸 扁废
    File1.Path = Dir1.Path
    Fill_List
    Writeini "USB_LOCK_THEMA", "DIRECTORY", Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error Resume Next
'靛扼捞宏甫 函版窍搁 叼泛配府档 促矫 佬绢咳
    Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
On Error Resume Next
'叼泛配府 哪器惩飘甫 努腐沁阑锭 函拳登绰 蔼甸 扁废
    File1.Path = Dir1.Path
    Fill_List
    Writeini "USB_LOCK_THEMA", "DIRECTORY", Dir1.Path
End Sub

Private Sub Fill_List()
Dim n As Integer
On Error Resume Next
'府胶飘冠胶俊 颇老冠胶俊辑 颇老甸父 惶酒辑 府胶飘冠胶俊 谎妨淋
    List1.Clear
    For n = 0 To File1.ListCount
        If Len(File1.List(n)) > 0 Then
            List1.AddItem (File1.List(n))
        End If
    Next
End Sub

Private Sub Form_Load() '汽捞 矫累登绰 捞亥飘
'On Error Resume Next
Dim Music_dir As String 'mp3 踌澜且 叼泛配府 急琶
    Music_dir = Readini("config", "Music_bangsong_Recode_Dir")
    
    'config 颇老俊辑 阂矾咳
If Music_dir = "" Then 'config 颇老俊 郴侩捞 历厘救登绢 乐促搁
   SSPanel6.Caption = "澜厩规价 踌澜且 叼泛配府 急琶"
   Else 'config 颇老捞 历厘登绢乐促搁
   SSPanel6.Caption = Music_dir 'config 颇老俊辑 叼泛配府甫 阂矾柯促.
End If
        
       
Dim image_type As String '捞固瘤び 屈怕 汲沥
    image_type = Readini("USB_LOCK_THEMA", "Teama_image_type") '鸥涝捞 汲沥救登绢 乐促搁
    If image_type = "" Then
       Me.SSOption2.value = True
       Me.SSOption1.value = False
       Me.SSOption3.value = False
    Else
    End If
    
    If image_type = "type1" Or image_type = UCase("type1") Then '鸥涝捞 1捞扼搁 捧疙
       Me.SSOption1.value = True
       Me.SSOption2.value = False
       Me.SSOption3.value = False
       Else
    End If
       
    If image_type = "type2" Or image_type = UCase("type2") Then '鸥涝捞 2扼搁 老馆