frmshowwind.frm

Windows超级黑客得到windows运行程序的信息,很经典的

VERSION 5.00
Begin VB.Form frmShowWind 
   BackColor       =   &H000000FF&
   BorderStyle     =   0  'None
   ClientHeight    =   3195
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   ControlBox      =   0   'False
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   213
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   312
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.Label lblKey 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "PRESS ESCAPE TO CLOSE"
      Height          =   195
      Left            =   240
      TabIndex        =   0
      Top             =   300
      Width           =   2055
   End
End
Attribute VB_Name = "frmShowWind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'
'  I have been to great troubles to learn all of the techniques in this program.
'  I have spent many, many hours and late nights coding the many functions which I
'  have included. As much as I resent it, Planet Source Code requires that I put
'  the source code in the zip file. So I have placed it in here for you to view.
'  Please use it wisely. And give me credit for all of the hard work that I have
'  done. My biggest fear is that somebody will do an almost straight rip of this
'  code, and take the credit for themselves. Please do not let this happening. I'm
'  placing a lot of trust there. So please, use this program, use this code, and
'  give me credit for it. If anybody rips all my routines, then my secret spy's
'  (and I have a lot of them, as soon as I hire them) will tell me, and I'll get
'  into my private jet (as soon as I buy it) and track you down over the whole
'  world and eventually KILL YOU. You get the idea? Thanks. Read on for something
'  a little more interesting!
'
' Code is Copyright Jolyon Bloomfield, February 2000
'

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

Public Sub DoStuph(ByVal hWnd As Long)
Load Me
Dim Enumit As Enumerator
Set Enumit = New Enumerator
If Enumit.IsValidWindow(hWnd) = False Then Unload Me

Dim Positions As RECT
Positions = modConst.GetWindowRects(hWnd)

Left = Positions.Left * Screen.TwipsPerPixelX
Top = Positions.Top * Screen.TwipsPerPixelY
Width = (Positions.Right - Positions.Left) * Screen.TwipsPerPixelX
Height = (Positions.Bottom - Positions.Top) * Screen.TwipsPerPixelY
lblKey.Left = (ScaleWidth - lblKey.Width) / 2
lblKey.Top = (ScaleHeight - lblKey.Height) / 2

SetWindowPos Me.hWnd, -1, 0&, 0&, 0&, 0&, 3

Me.Show 1

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
Me.Hide
frmProperty.Show
End Sub