📄 frmselect.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmSelect
BorderStyle = 1 'Fixed Single
Caption = "Window Selection"
ClientHeight = 7875
ClientLeft = 45
ClientTop = 330
ClientWidth = 9555
Icon = "frmSelect.frx":0000
MaxButton = 0 'False
ScaleHeight = 7875
ScaleWidth = 9555
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdAbout
Caption = "&About"
Height = 555
Left = 7260
TabIndex = 39
Top = 6960
Width = 2235
End
Begin VB.CommandButton cmdTerminate
Caption = "Forcefully &Terminate Process"
Height = 555
Left = 7260
TabIndex = 38
Top = 5640
Width = 2235
End
Begin VB.CommandButton cmdMouse
Caption = "&Select Window"
Height = 555
Left = 7260
TabIndex = 9
Top = 4320
Width = 2235
End
Begin VB.Frame frameInfo
Caption = "Information on Currently Selected Item"
Height = 2835
Left = 60
TabIndex = 6
Top = 4680
Width = 7035
Begin VB.TextBox txtWindRect
BackColor = &H00C0C0C0&
Height = 315
Index = 1
Left = 5820
Locked = -1 'True
TabIndex = 37
Top = 2040
Width = 1035
End
Begin VB.TextBox txtClientRect
BackColor = &H00C0C0C0&
Height = 315
Index = 1
Left = 5820
Locked = -1 'True
TabIndex = 36
Top = 1680
Width = 1035
End
Begin VB.TextBox txtOther
BackColor = &H00C0C0C0&
Height = 315
Left = 1440
Locked = -1 'True
TabIndex = 35
Top = 2400
Width = 2115
End
Begin VB.TextBox txtClientRect
BackColor = &H00C0C0C0&
Height = 315
Index = 0
Left = 4740
Locked = -1 'True
TabIndex = 33
Top = 1680
Width = 1035
End
Begin VB.TextBox txtWndText
BackColor = &H00C0C0C0&
Height = 315
Left = 4740
Locked = -1 'True
TabIndex = 32
Top = 1320
Width = 2115
End
Begin VB.TextBox txtThreadID
BackColor = &H00C0C0C0&
Height = 315
Left = 4740
Locked = -1 'True
TabIndex = 31
Top = 960
Width = 2115
End
Begin VB.TextBox txtProcessID
BackColor = &H00C0C0C0&
Height = 315
Left = 4740
Locked = -1 'True
TabIndex = 30
Top = 600
Width = 2115
End
Begin VB.TextBox txtWindRect
BackColor = &H00C0C0C0&
Height = 315
Index = 0
Left = 4740
Locked = -1 'True
TabIndex = 29
Top = 2040
Width = 1035
End
Begin VB.CheckBox chkEnabled
Enabled = 0 'False
Height = 315
Left = 5280
TabIndex = 28
Top = 2400
Width = 315
End
Begin VB.CheckBox chkVisible
Enabled = 0 'False
Height = 315
Left = 4020
TabIndex = 27
Top = 2400
Width = 255
End
Begin VB.TextBox txtProcessName
BackColor = &H00C0C0C0&
Height = 315
Left = 4740
Locked = -1 'True
TabIndex = 21
Top = 240
Width = 2115
End
Begin VB.TextBox txtProgClass
BackColor = &H00C0C0C0&
Height = 315
Left = 1440
Locked = -1 'True
TabIndex = 20
Top = 2040
Width = 2115
End
Begin VB.TextBox txtProghWnd
BackColor = &H00C0C0C0&
Height = 315
Left = 1440
Locked = -1 'True
TabIndex = 19
Top = 1680
Width = 2115
End
Begin VB.TextBox txtParClass
BackColor = &H00C0C0C0&
Height = 315
Left = 1440
Locked = -1 'True
TabIndex = 18
Top = 1320
Width = 2115
End
Begin VB.TextBox txtParhWnd
BackColor = &H00C0C0C0&
Height = 315
Left = 1440
Locked = -1 'True
TabIndex = 17
Top = 960
Width = 2115
End
Begin VB.TextBox txtClass
BackColor = &H00C0C0C0&
Height = 315
Left = 1440
Locked = -1 'True
TabIndex = 16
Top = 600
Width = 2115
End
Begin VB.TextBox txthWnd
BackColor = &H00C0C0C0&
Height = 315
Left = 1440
Locked = -1 'True
TabIndex = 8
Top = 240
Width = 2115
End
Begin VB.Label lblEnabled
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Is Enabled"
Height = 195
Left = 5580
TabIndex = 41
Top = 2460
Width = 750
End
Begin VB.Label lblVisible
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Is Visible"
Height = 195
Left = 4320
TabIndex = 40
Top = 2460
Width = 615
End
Begin VB.Label lblOther
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Other Info:"
Height = 195
Left = 120
TabIndex = 34
Top = 2460
Width = 750
End
Begin VB.Label lblWindRect
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Window Rect:"
Height = 195
Left = 3660
TabIndex = 26
Top = 2100
Width = 1020
End
Begin VB.Label lblClientRect
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Client Rect:"
Height = 195
Left = 3660
TabIndex = 25
Top = 1740
Width = 825
End
Begin VB.Label lblWindowText
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Window Text:"
Height = 195
Left = 3660
TabIndex = 24
Top = 1380
Width = 990
End
Begin VB.Label LabelThreadID
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Thread ID:"
Height = 195
Left = 3660
TabIndex = 23
Top = 1020
Width = 765
End
Begin VB.Label lblProcessID
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Process ID:"
Height = 195
Left = 3660
TabIndex = 22
Top = 660
Width = 825
End
Begin VB.Label lblParhWnd
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Parent hWnd:"
Height = 195
Left = 120
TabIndex = 15
Top = 1020
Width = 990
End
Begin VB.Label lblProghWnd
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Progenitor hWnd:"
Height = 195
Left = 120
TabIndex = 14
Top = 1740
Width = 1245
End
Begin VB.Label lblProcess
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Process:"
Height = 195
Left = 3660
TabIndex = 13
Top = 300
Width = 615
End
Begin VB.Label lblClass
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Class:"
Height = 195
Left = 120
TabIndex = 12
Top = 660
Width = 420
End
Begin VB.Label lblParClass
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Parent Class:"
Height = 195
Left = 120
TabIndex = 11
Top = 1380
Width = 930
End
Begin VB.Label lblProgClass
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Progenitor Class:"
Height = 195
Left = 120
TabIndex = 10
Top = 2100
Width = 1185
End
Begin VB.Label lblhWnd
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "hWnd:"
Height = 195
Left = 120
TabIndex = 7
Top = 300
Width = 480
End
End
Begin VB.CommandButton cmdNext
Caption = "&Next --->"
Height = 555
Left = 7260
TabIndex = 5
Top = 6300
Width = 2235
End
Begin MSComctlLib.ImageList imgListTreeView
Left = 7680
Top = 240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSelect.frx":030A
Key = "Desktop"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSelect.frx":0466
Key = "Process"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSelect.frx":05C2
Key = "Thread"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSelect.frx":071E
Key = "Window"
EndProperty
EndProperty
End
Begin VB.CommandButton cmdEnum
Caption = "&Enumerate Windows"
Height = 555
Left = 7260
TabIndex = 1
Top = 4980
Width = 2235
End
Begin MSComctlLib.TreeView TreeviewWindows
Height = 4215
Left = 60
TabIndex = 0
Top = 60
Width = 9435
_ExtentX = 16642
_ExtentY = 7435
_Version = 393217
HideSelection = 0 'False
Indentation = 476
LabelEdit = 1
LineStyle = 1
Sorted = -1 'True
Style = 7
ImageList = "imgListTreeView"
Appearance = 1
End
Begin VB.Label lblNOTE
AutoSize = -1 'True
Caption = "Please note that although a window belongs to a certain process, it's parent might be a window of another process."
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -