frm_usb_passwizard.frm

Usb Key loock vb soucrse code. ocx not found

            Caption         =   "USB 靛扼捞宏 楷搬矫 磊悼 八祸 扁瓷 阑 昏力 窍瘤 臼嚼聪促."
            Height          =   255
            Left            =   600
            TabIndex        =   25
            Top             =   1560
            Width           =   5295
         End
         Begin VB.OptionButton Option1 
            Caption         =   "USB 靛扼捞宏 楷搬矫 磊悼 八祸 扁瓷 阑 昏力 且鳖夸?"
            Height          =   255
            Left            =   600
            TabIndex        =   24
            Top             =   1200
            Width           =   5175
         End
         Begin VB.Label Label18 
            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            =   240
            TabIndex        =   20
            Top             =   480
            Width           =   3990
         End
         Begin VB.Label Label17 
            AutoSize        =   -1  'True
            BackStyle       =   0  '捧疙
            Caption         =   "救傈窍霸 USB 靛扼捞宏俊 鞠龋虐甫 积己窍看嚼聪促."
            Height          =   180
            Left            =   480
            TabIndex        =   19
            Top             =   840
            Width           =   4260
         End
      End
      Begin Threed.SSCommand SSCommand7 
         Height          =   375
         Left            =   120
         TabIndex        =   32
         Top             =   3120
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         _Version        =   196610
         PictureFrames   =   1
         Picture         =   "frm_usb_passwizard.frx":8ACD
         Caption         =   "档框富 "
         PictureAlignment=   10
      End
      Begin Threed.SSCommand SSCommand9 
         Height          =   375
         Left            =   4920
         TabIndex        =   33
         Top             =   3120
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         _Version        =   196610
         PictureFrames   =   1
         Picture         =   "frm_usb_passwizard.frx":8C27
         Caption         =   "辆 丰 "
         PictureAlignment=   10
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "辆丰 滚畔阑 喘矾 Key Wizard 甫 "
         Height          =   180
         Left            =   360
         TabIndex        =   23
         Top             =   480
         Width           =   2700
      End
      Begin VB.Label Label20 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "3.KEY 积己捞 肯丰登菌嚼聪促!"
         Height          =   180
         Left            =   240
         TabIndex        =   22
         Top             =   240
         Width           =   2490
      End
      Begin VB.Label Label19 
         AutoSize        =   -1  'True
         BackStyle       =   0  '捧疙
         Caption         =   "辆丰 窍绞矫坷."
         Height          =   180
         Left            =   360
         TabIndex        =   21
         Top             =   720
         Width           =   1200
      End
   End
   Begin VB.Menu 八祸厘摹 
      Caption         =   "厘摹八祸"
      Visible         =   0   'False
      Begin VB.Menu 叼官捞胶八祸 
         Caption         =   "叼官捞胶 八祸"
      End
      Begin VB.Menu 叼官捞胶八祸辆丰 
         Caption         =   "叼官捞胶 八祸 辆丰"
      End
   End
End
Attribute VB_Name = "frm_usb_passwizard"
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 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 driver_sirial_num 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 m_clsSubcls As cSubclass '辑宏 努贰胶 积己
Private usb_Serial As clsDriveSerial



Private Sub 叼官捞胶八祸_Click()
Timer2.Enabled = True
End Sub

Private Sub 叼官捞胶八祸辆丰_Click()
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
On Error Resume Next

Me.Caption = "鞠龋拳虐 积己 橇肺弊伐 " & "Ver." & App.Major & "." & App.Minor & "." & App.Revision
App.TaskVisible = True
EnableCloseButton Me.hwnd, False
'//辆丰 滚畔阑 阜绰促.

 Set m_clsSubcls = New cSubclass
     m_clsSubcls.Subclass Me.hwnd, Me
     m_clsSubcls.AddMsg Me.hwnd, WM_DEVICECHANGE
     '辑宏 努贰胶 积己茄促.

Call InterruptDuplicateExecution
'橇肺弊伐捞 吝汗登霸 角青登瘤 臼霸 茄促.

'汽阑 吝居俊 坷霸 钦聪促.
With Me
      .Top = (Screen.Height - Me.Height) / 2
      .Left = (Screen.Width - Me.Width) / 2
End With


 '货肺款 虐 积己阑 厚劝己拳茄促.
    CreatedANewKey = False
    
 '八祸茄 USB靛扼捞宏甸阑 府胶飘冠胶俊 阂矾柯促.
    Call ListADvr
    
 'USB 靛扼捞宏 厘馒矫 磊悼八祸 扁瓷阑 昏力窍绰巴阑 盔蘑栏肺 茄促.
 Me.Option1.Value = True
 Me.Option2.Value = False
 SSCommand3.Enabled = False
 '促澜栏肺 逞绢啊绰 巴阑 阜绰促.
 '靛扼捞宏甫 急琶秦具 逞绢哎荐乐档废 窍扁 困秦辑
 
 With Me.SSCommand11
        .Picture = ImageList1.ListImages.Item(12).Picture
 End With
 
End Sub

Private Sub Form_Unload(Cancel As Integer)
 m_clsSubcls.Terminate
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 RefreshDriveList() '叼官捞胶 靛扼捞宏狼 函拳俊 蝶弗 府胶飘轰 府敲饭浆 窍扁困窃
On Error Resume Next
    Dim strDriveBuffer  As String '靛官捞胶狼 鸥涝阑 沥狼 窍扁 困秦
    Dim strDrives()     As String '叼官捞胶狼 靛扼捞宏 免仿 窍扁 困秦
    Dim i               As Long
    Dim udtInfo         As DEVICE_INFORMATION '叼官捞胶 沥焊
    
    Dim sDrive() As String
    Dim sVoume As String
    Dim sFileSystem As String
    Dim sSerialNumber As String
    
    Set usb_Serial = New clsDriveSerial
    
    
    strDriveBuffer = Space(240) '傍埃阑 240 沥档肺 且寸茄促.
    strDriveBuffer = Left$(strDriveBuffer, GetLogicalDriveStrings(Len(strDriveBuffer), strDriveBuffer))
    strDrives = Split(strDriveBuffer, Chr$(0))

    lvwDrives.ListItems.Clear '府胶飘轰狼 檬扁拳

    For i = 0 To UBound(strDrives)   '叼官捞胶甫 八祸茄促.
    
        usb_Serial.GetDrives sDrive
        usb_Serial.GetDriveInfo sDrive(i), sVoume, sFileSystem, sSerialNumber
        With lvwDrives.ListItems.Add(Text:=strDrives(i)) '叼官捞胶狼 靛扼捞宏 免仿
            udtInfo = GetDevInfo(strDrives(i))
            
            If udtInfo.Valid Then
                Select Case udtInfo.BusType
                    Case BusTypeUsb:        .SubItems(1) = "USB"
                    Case BusType1394:       .SubItems(1) = "1394"
                    Case BusTypeAta:        .SubItems(1) = "ATA"
                    Case BusTypeAtapi:      .SubItems(1) = "ATAPI"
                    Case BusTypeFibre:      .SubItems(1) = "Fibre"
                    Case BusTypeRAID:       .SubItems(1) = "RAID"
                    Case BusTypeScsi:       .SubItems(1) = "SCSI"
                    Case BusTypeSsa:        .SubItems(1) = "SSA"
                    Case BusTypeUnknown:    .SubItems(1) = "Unknown"
                End Select
                
                .SubItems(2) = Trim$(udtInfo.VendorID & " " & udtInfo.ProductID & " " & udtInfo.ProductRevision)
                .SubItems(3) = sSerialNumber
                '辑宏(2)俊绰 叼官捞胶 疙阑 免仿窍霸 茄促.
               ' .Tag = strDrives(i) '抛弊甫 叼官捞胶 靛扼捞宏 肮荐父怒 霖促.
            End If
        End With
        
    Next
    

End Sub



Private Sub LstDriver_Click() '靛扼捞宏 格废阑 努腐沁促搁
On Error Resume Next
'父距俊 靛扼捞宏 格废捞 窍唱扼档 乐促搁 角矫埃 靛扼捞宏 格废阑 八祸窍绰 鸥捞赣甫 磷牢促.
'靛扼捞宏 格废捞 窍唱档 绝促搁 角矫埃 靛扼捞宏 格废阑 八祸窍绰 鸥捞赣甫 促矫 混赴促.

If LstDriver.Nodes.Count <> 0 Then
   Timer2.Enabled = False
   SSCommand3.Enabled = True
   Else
   Timer2.Enabled = True
   SSCommand3.Enabled = False
End If



End Sub



Private Sub lvwDrives_Click()
'//府胶飘轰甫 努腐窍搁 父距俊 府胶飘轰狼 蔼捞 乐栏搁 叼官捞胶 八祸 鸥捞赣甫 辆弸窍绊
'//蔼捞 窍唱档 绝促搁 叼官捞胶啊 楷搬捞 救登菌栏骨肺 促澜栏肺 逞绢啊瘤 给窍骨肺
'//鸥捞赣甫 累悼矫难 角矫埃栏肺 叼官捞胶甫 茫档废 茄促.
With lvwDrives
     If .ListItems.Count <> 0 Then
          Timer2.Enabled = False
          SSCommand3.Enabled = True
     Else
          Timer2.Enabled = True
          SSCommand3.Enabled = False
          MsgBox "叼官捞胶啊 窍唱档 绝嚼聪促." & vbCrLf & _
                 "" & vbCrLf & _
                 "叼官捞胶甫 八祸窍咯 林绞矫坷.", vbInformation, Me.Caption
     End If
End With

With lvwDrives
     If .SelectedItem.SubItems(1) <> "USB" Then
         MsgBox "USB厘摹啊 酒凑聪促." & vbCrLf & _
         "" & vbCrLf & _
         "促矫, 急琶秦 林绞矫坷.", vbInformation, Me.Caption
         Call RefreshDriveList
         Exit Sub
     End If
End With
End Sub

Private Sub SSCheck1_Click(Value As Integer)
'//角矫埃 八祸 眉农冠胶甫 公炼扒 劝己拳 窍扁 困秦...
With SSCheck1
     If .Value = ssCBUnchecked Then '眉农啊 登瘤 臼疽促搁
        .Value = ssCBChecked '眉农甫 窍霸 茄促.
     End If
End With
End Sub

Private Sub SSCommand10_Click() '//USB 磊悼八祸 辆丰俊 包茄 惑技茄 沥焊芒阑 焊咯霖促.
frmmsg.Show 1
End Sub

Private Sub SSCommand11_Click()
With Me.SSCommand11
     If .Picture = ImageList1.ListImages.Item(12).Picture Then
        .Picture = ImageList1.ListImages.Item(13).Picture
         LstDriver.Visible = False
         Me.lvwDrives.Width = 5920
     Else
        .Picture = ImageList1.ListImages.Item(12).Picture
         LstDriver.Visible = True
         Me.lvwDrives.Width = 3210
     End If
End With
End Sub

Private Sub SSCommand11_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Me
     .SSCommand11.ButtonStyle = ssActiveBorders