frmnokey.frm

Usb Key loock vb soucrse code. ocx not found

VERSION 5.00
Object = "{065E6FD1-1BF9-11D2-BAE8-00104B9E0792}#3.0#0"; "ssa3d30.ocx"
Begin VB.Form frmnokey 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  '窜老 绊沥
   Caption         =   "皋技瘤 冠胶"
   ClientHeight    =   2625
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7620
   Icon            =   "frmnokey.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2625
   ScaleWidth      =   7620
   StartUpPosition =   3  'Windows 扁夯蔼
   Begin VB.PictureBox Picture12 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  '绝澜
      Height          =   750
      Left            =   4200
      Picture         =   "frmnokey.frx":014A
      ScaleHeight     =   750
      ScaleWidth      =   3000
      TabIndex        =   1
      Top             =   0
      Width           =   3000
   End
   Begin Threed.SSCommand SSCommand8 
      Height          =   375
      Left            =   6240
      TabIndex        =   0
      Top             =   2160
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   661
      _Version        =   196610
      PictureFrames   =   1
      Picture         =   "frmnokey.frx":0A00
      Caption         =   "摧扁"
      PictureAlignment=   10
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "           USB 靛扼捞宏父 瘤盔 钦聪促."
      Height          =   180
      Index           =   4
      Left            =   240
      TabIndex        =   6
      Top             =   1920
      Width           =   3060
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "           付澜措肺 官操瘤 付绞矫坷. 坷流 鞠龋拳虐绰 蜡老茄 窍唱狼 "
      Height          =   180
      Index           =   3
      Left            =   240
      TabIndex        =   5
      Top             =   1680
      Width           =   5460
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   " [吝夸] 鞠龋拳虐甫 积己茄 USB 靛扼捞宏狼 Volume 疙苞 Device 疙阑 扩档快 券版俊辑"
      Height          =   180
      Index           =   2
      Left            =   240
      TabIndex        =   4
      Top             =   1440
      Width           =   7095
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "             鞠龋拳虐 积己 橇肺弊伐栏肺 刚历 鞠龋拳虐甫 积己窍咯 林绞矫坷."
      Height          =   180
      Index           =   1
      Left            =   120
      TabIndex        =   3
      Top             =   1080
      Width           =   6060
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  '捧疙
      Caption         =   "[救郴巩] 鞠龋拳虐 颇老捞 昏力 登菌芭唱, 趣篮 盒角 登菌嚼聪促."
      Height          =   180
      Index           =   0
      Left            =   120
      TabIndex        =   2
      Top             =   840
      Width           =   5220
   End
End
Attribute VB_Name = "frmnokey"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'汽阑 吝居俊 坷霸窃
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2

EnableCloseButton Me.hwnd, False
'//辆丰 滚畔阑 阜绰促.
End Sub

Private Sub SSCommand8_Click()
frmmain.tmrCheck = False
Dim MSG As String
    MSG = MsgBox("鞠龋拳虐 积己 橇肺弊伐阑 角青窍咯 鞠龋拳虐甫 货酚霸 父甸鳖夸?" & vbCrLf & _
        "" & vbCrLf & _
        "鞠龋拳虐 积己 橇肺弊伐阑 备悼窍扁傈俊 刚历, USB 靛扼捞宏 甫 楷搬窍绞矫坷.", vbYesNo + vbQuestion, Me.Caption)
If MSG = vbYes Then
   frmmain.tmrCheck = False
   Call program_runs
   End
Else
   frmmain.tmrCheck = True
   Me.Hide
End If
End Sub


'On Error Resume Next
'Dim Msg As String
'    Msg = MsgBox("鞠龋拳虐 积己阑 辆丰 且鳖夸? " & vbCrLf & _
'    "" & vbCrLf & _
'    "鞠龋拳 虐甫 积己窍瘤 臼栏搁, 沥惑 累悼 窍瘤 臼嚼聪促.", vbYesNo + vbQuestion, Me.Caption)
'    Timer2.Enabled = False
'If Msg = vbYes Then
'   Timer2.Enabled = False
'   End '// yes 滚畔阑 穿福搁 橇肺弊伐阑 辆丰钦聪促.
'   Else
'   Timer2.Enabled = True
'End If

Private Sub program_runs()
 Dim Result As Long '搬苞
               Dim file_run As String '角青且 颇老函荐
              ' Dim file_check As Boolean '颇老捞 粮犁窍绰瘤 眉农窍绰 函荐
               If Right$(App.Path, 1) = "\" Then '父距俊 风飘 叼泛配府扼搁...
                  file_run = App.Path & "USB_System_PassWizard.exe"
                   Result = ShellAPI(frmmain.hwnd, vbNullString, file_run, vbNullString, vbNullString, vbNormalFocus) '寇何 橇肺弊伐 备悼                                   <颇扼皋磐蔼 : SlefUpdate.exe /update>'
               '   file_check = True
               Else
                  file_run = App.Path & "\USB_System_PassWizard.exe"
                   Result = ShellAPI(frmmain.hwnd, vbNullString, file_run, vbNullString, vbNullString, vbNormalFocus) '寇何 橇肺弊伐 备悼                                   <颇扼皋磐蔼 : SlefUpdate.exe /update>
               '   file_check = False
               End If
End Sub