frmshow.frm

来自「Usb Key loock vb soucrse code. ocx not f」· FRM 代码 · 共 100 行

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash10a.ocx"
Begin VB.Form frmshow 
   BackColor       =   &H8000000A&
   BorderStyle     =   1  '窜老 绊沥
   ClientHeight    =   5055
   ClientLeft      =   15
   ClientTop       =   15
   ClientWidth     =   5655
   ControlBox      =   0   'False
   Icon            =   "frmshow.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmshow.frx":0442
   ScaleHeight     =   5055
   ScaleWidth      =   5655
   StartUpPosition =   3  'Windows 扁夯蔼
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1 
      Height          =   5055
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5655
      _cx             =   9975
      _cy             =   8916
      FlashVars       =   ""
      Movie           =   ""
      Src             =   ""
      WMode           =   "Window"
      Play            =   "-1"
      Loop            =   "-1"
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   "-1"
      Base            =   ""
      AllowScriptAccess=   ""
      Scale           =   "ShowAll"
      DeviceFont      =   "0"
      EmbedMovie      =   "0"
      BGColor         =   ""
      SWRemote        =   ""
      MovieData       =   ""
      SeamlessTabbing =   "1"
      Profile         =   "0"
      ProfileAddress  =   ""
      ProfilePort     =   "0"
      AllowNetworking =   "all"
      AllowFullScreen =   "false"
   End
End
Attribute VB_Name = "frmshow"
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

Private Sub Form_Load()
'汽阑 吝居俊 坷霸窃
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2

SetTopMostWnd Me.hwnd, True

ShockwaveFlash1.Movie = App.Path & "\Graphics\Hanulsoft.swf"
ShockwaveFlash1.Play

'Dim t As Single
't = Timer

'汽俊 棵妨柳 侨媚甫 汽狼 祸惑俊 嘎眠绢 SHAP 扁瓷栏肺 捧疙拳 矫糯
'If Me.Picture <> 0 Then '侨媚啊 粮犁茄促搁
'  Call SetAutoRgn(Me) 'SHAP扁瓷 备泅
'End If

End Sub