📄 frminfo.frm
字号:
VERSION 5.00
Begin VB.Form frmInfo
BackColor = &H00800000&
Caption = "Dissect Window"
ClientHeight = 5325
ClientLeft = 60
ClientTop = 345
ClientWidth = 5310
ControlBox = 0 'False
LinkTopic = "Form1"
ScaleHeight = 5325
ScaleWidth = 5310
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdShowObject
BackColor = &H00FFFFFF&
Caption = "Show Object"
Height = 255
Left = 3720
Style = 1 'Graphical
TabIndex = 7
Top = 3840
Width = 1455
End
Begin VB.CommandButton cmdHideObject
BackColor = &H00FFFFFF&
Caption = "Hide Object"
Height = 255
Left = 3720
Style = 1 'Graphical
TabIndex = 6
Top = 3480
Width = 1455
End
Begin VB.Frame Frame3
BackColor = &H00000000&
Caption = " Invisible Objects "
ForeColor = &H00FFFFFF&
Height = 1335
Left = 120
TabIndex = 16
Top = 2040
Width = 5055
Begin VB.ListBox List2
Height = 840
ItemData = "frmInfo.frx":0000
Left = 120
List = "frmInfo.frx":0002
Sorted = -1 'True
TabIndex = 1
Top = 360
Width = 4815
End
End
Begin VB.Frame Frame2
BackColor = &H00000000&
Caption = " Visible Objects "
ForeColor = &H00FFFFFF&
Height = 1335
Left = 120
TabIndex = 15
Top = 600
Width = 5055
Begin VB.ListBox List1
Height = 840
ItemData = "frmInfo.frx":0004
Left = 120
List = "frmInfo.frx":0006
Sorted = -1 'True
TabIndex = 0
Top = 360
Width = 4815
End
End
Begin VB.CommandButton cmdDisableObject
BackColor = &H00FFFFFF&
Caption = "Disable Object"
Height = 255
Left = 1920
Style = 1 'Graphical
TabIndex = 5
Top = 3840
Width = 1695
End
Begin VB.CommandButton cmdEnableObject
BackColor = &H00FFFFFF&
Caption = "Enable Object"
Height = 255
Left = 1920
Style = 1 'Graphical
TabIndex = 4
Top = 3480
Width = 1695
End
Begin VB.Timer Timer1
Interval = 100
Left = 0
Top = 0
End
Begin VB.CommandButton cmdRefreshObject
BackColor = &H00FFFFFF&
Caption = "Refresh Objects"
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 3
Top = 3840
Width = 1695
End
Begin VB.CommandButton cmdRenameChildren
BackColor = &H00FFFFFF&
Caption = "Rename Object"
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 2
Top = 3480
Width = 1695
End
Begin VB.Frame Frame1
BackColor = &H00000000&
Height = 1095
Left = 120
TabIndex = 10
Top = 4200
Width = 3615
Begin VB.Label Label6
BackStyle = 0 'Transparent
ForeColor = &H00FFFFFF&
Height = 255
Left = 2280
TabIndex = 18
Top = 720
Width = 855
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Window character set:"
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 17
Top = 720
Width = 1815
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Window is frozen:"
ForeColor = &H00FFFFFF&
Height = 255
Left = 480
TabIndex = 14
Top = 240
Width = 1455
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Window is visible:"
ForeColor = &H00FFFFFF&
Height = 255
Left = 480
TabIndex = 13
Top = 480
Width = 1455
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "No"
ForeColor = &H00FFFFFF&
Height = 255
Left = 2280
TabIndex = 12
Top = 240
Width = 495
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "No"
ForeColor = &H00FFFFFF&
Height = 255
Left = 2280
TabIndex = 11
Top = 480
Width = 495
End
End
Begin VB.CommandButton OKButton
BackColor = &H00FFFFFF&
Caption = "OK"
Height = 255
Left = 4080
Style = 1 'Graphical
TabIndex = 8
Top = 4920
Width = 1095
End
Begin VB.TextBox txtTitle
Height = 285
Left = 120
Locked = -1 'True
TabIndex = 9
TabStop = 0 'False
Top = 120
Width = 5055
End
End
Attribute VB_Name = "frmInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdDisableObject_Click()
Dim ALong As Long
ALong = FilterWnd
If ALong = 0 Then Exit Sub
EnableWindow ALong, 0
DoEvents
cmdRefreshObject_Click
End Sub
Private Sub cmdEnableObject_Click()
Dim ALong As Long
ALong = FilterWnd
If ALong = 0 Then Exit Sub
EnableWindow ALong, 1
DoEvents
cmdRefreshObject_Click
End Sub
Private Sub cmdHideObject_Click()
Dim ALong As Long
ALong = FilterWnd
If ALong = 0 Then Exit Sub
WindowHandle ALong, 2
DoEvents
cmdRefreshObject_Click
End Sub
Private Sub cmdRefreshObject_Click()
On Error GoTo errorhandler
GoSub begin
errorhandler:
Exit Sub
begin:
List1.Clear
List2.Clear
DoEvents
Dim A As Long
A = FindWindow(vbNullString, txtTitle)
If A = 0 Then Unload Me
EnumerateChildren A, 3
If IsWindowEnabled(A) = 0 Then Label4.Caption = "Yes" Else Label4.Caption = "No"
If IsWindowVisible(A) = 0 Then Label5.Caption = "No" Else Label5.Caption = "Yes"
End Sub
Private Sub cmdRenameChildren_Click()
On Error GoTo errorhandler
GoSub begin
errorhandler:
Exit Sub
begin:
Dim ALong As Long, BString As String, RenameText As String
ALong = FilterWnd
BString = FilterText
If ALong > 0 And BString <> "" Then
RenameText = InputBox("Rename object to:", "Rename Object", BString)
If RenameText = "" Then Exit Sub
SetWindowText ALong, RenameText
DoEvents
cmdRefreshObject_Click
End If
End Sub
Private Sub cmdShowObject_Click()
Dim ALong As Long
ALong = FilterWnd
If ALong = 0 Then Exit Sub
WindowHandle ALong, 1
DoEvents
cmdRefreshObject_Click
End Sub
Private Sub Form_Load()
On Error GoTo errorhandler
GoSub begin
errorhandler:
Unload Me
Exit Sub
begin:
If frmMain.Visible = False Then Unload Me
Dim A As Long
A = FindWindow(vbNullString, frmMain.txtWindowTitle)
If A = 0 Then Unload Me
txtTitle.Text = GetWindowTitle(A)
EnumerateChildren A, 3
If IsWindowEnabled(A) = 0 Then Label4.Caption = "Yes" Else Label4.Caption = "No"
If IsWindowVisible(A) = 0 Then Label5.Caption = "No" Else Label5.Caption = "Yes"
If IsWindowUnicode(A) = 0 Then Label6.Caption = "ANSI" Else Label6.Caption = "Unicode"
End Sub
Private Sub List1_Click()
List2.ListIndex = -1
End Sub
Private Sub List2_Click()
List1.ListIndex = -1
End Sub
Private Sub OKButton_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
A = FindWindow(vbNullString, frmMain.txtWindowTitle)
If A = 0 Then
cmdRenameChildren.Enabled = False
cmdEnableObject.Enabled = False
cmdDisableObject.Enabled = False
cmdHideObject.Enabled = False
cmdShowObject.Enabled = False
txtTitle.Text = ""
List1.Clear
List2.Clear
DoEvents
Timer1.Enabled = False
End If
If List1.Text <> vbNullString Then List1.ToolTipText = List1.Text Else List1.ToolTipText = ""
If List2.Text <> vbNullString Then List2.ToolTipText = List2.Text Else List2.ToolTipText = ""
If List1.Text = "" And List2.Text = "" Then
cmdRenameChildren.Enabled = False
cmdEnableObject.Enabled = False
cmdDisableObject.Enabled = False
cmdHideObject.Enabled = False
cmdShowObject.Enabled = False
ElseIf List1.Text <> "" Or List2.Text <> "" Then
cmdRenameChildren.Enabled = True
cmdEnableObject.Enabled = True
cmdDisableObject.Enabled = True
cmdHideObject.Enabled = True
cmdShowObject.Enabled = True
End If
End Sub
Public Function FilterWnd() As Long
Dim ListText As String, iLoop As Integer, Temp As String, Wnd As String, aWnd As Long
If List1.ListIndex > -1 Then ListText = List1.Text
If List2.ListIndex > -1 Then ListText = List2.Text
For iLoop = 1 To (Len(ListText) - 1)
Temp = Mid$(ListText, iLoop, 2)
If Temp = " " Then
Wnd = Left$(ListText, iLoop)
Exit For
End If
Next iLoop
If IsNumeric(Wnd) = True Then aWnd = Val(Wnd)
If aWnd >= 0 Then FilterWnd = aWnd Else FilterWnd = 0
End Function
Public Function FilterText() As String
Dim ListText As String, iLoop As Integer, Temp As String, Wnd As String, sTemp As Long, dTitle As String
If List1.ListIndex > -1 Then ListText = List1.Text
If List2.ListIndex > -1 Then ListText = List2.Text
If Right$(ListText, 13) = " [Disabled]" Then
ARemove = Len(ListText) - 13
ListText = Left$(ListText, ARemove)
End If
For iLoop = 1 To (Len(ListText) - 1)
Temp = Mid$(ListText, iLoop, 2)
If Temp = " " Then
sTemp = iLoop + 2
sTemp = Len(ListText) - sTemp
dTitle = Right$(ListText, sTemp)
Exit For
End If
Next iLoop
FilterText = dTitle
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -