📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
BackColor = &H00800000&
BorderStyle = 1 'Fixed Single
Caption = "dFreeze"
ClientHeight = 6165
ClientLeft = 45
ClientTop = 615
ClientWidth = 7080
ControlBox = 0 'False
FillColor = &H00FFFFFF&
ForeColor = &H00FFFFFF&
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "frmMain.frx":0442
ScaleHeight = 6165
ScaleWidth = 7080
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdDisableMenuItems
BackColor = &H00FFFFFF&
Caption = "Disable Menu Items"
Height = 255
Left = 1800
Style = 1 'Graphical
TabIndex = 14
ToolTipText = "Disable all menu items in a window"
Top = 3720
Width = 1815
End
Begin VB.CommandButton cmdDisableOptions
BackColor = &H00FFFFFF&
Caption = "Lock All Objects"
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "Disable all objects in a window"
Top = 3720
Width = 1575
End
Begin VB.CommandButton cmdEnableMenuItems
BackColor = &H00FFFFFF&
Caption = "Enable Menu Items"
Height = 255
Left = 1800
Style = 1 'Graphical
TabIndex = 13
ToolTipText = "Enable all menu items in a window"
Top = 3360
Width = 1815
End
Begin VB.CommandButton cmdFlash
BackColor = &H00FFFFFF&
Caption = "Highlight"
Height = 255
Left = 3720
Style = 1 'Graphical
TabIndex = 18
ToolTipText = "Highlight a window"
Top = 3360
Width = 1575
End
Begin VB.CommandButton cmdInfo
BackColor = &H00FFFFFF&
Caption = "Dissect Window"
Height = 255
Left = 3720
Style = 1 'Graphical
TabIndex = 19
ToolTipText = "View window information and sub objects"
Top = 3720
Width = 1575
End
Begin VB.CommandButton cmdEnableOptions
BackColor = &H00FFFFFF&
Caption = "Enable All Objects"
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "Enable all objects in a window"
Top = 3360
Width = 1575
End
Begin VB.CommandButton cmdRevealPassword
BackColor = &H00FFFFFF&
Caption = "Reveal Passwords"
Height = 255
Left = 1800
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "Reveal all passwords hidden in a window"
Top = 3000
Width = 1815
End
Begin VB.Frame Frame1
BackColor = &H00000000&
Caption = " Running Processes "
ForeColor = &H00FFFFFF&
Height = 1935
Left = 120
TabIndex = 31
Top = 4080
Width = 6855
Begin VB.CommandButton cmdTerminate2
BackColor = &H00FFFFFF&
Caption = "Terminate Process"
Height = 255
Left = 4920
Style = 1 'Graphical
TabIndex = 25
ToolTipText = "Terminate process"
Top = 240
Width = 1815
End
Begin VB.CommandButton cmdRefresh2
BackColor = &H00FFFFFF&
Caption = "Refresh Processes"
Height = 255
Left = 3000
Style = 1 'Graphical
TabIndex = 24
ToolTipText = "Refresh process list"
Top = 240
Width = 1815
End
Begin VB.ListBox List2
Height = 1230
ItemData = "frmMain.frx":04C3
Left = 120
List = "frmMain.frx":04C5
Sorted = -1 'True
TabIndex = 26
Top = 600
Width = 6615
End
End
Begin VB.TextBox txtProcessTitle
BackColor = &H00800000&
BorderStyle = 0 'None
ForeColor = &H00FFFFFF&
Height = 285
Left = -360
Locked = -1 'True
TabIndex = 30
TabStop = 0 'False
Top = 3600
Visible = 0 'False
Width = 255
End
Begin VB.CommandButton cmdRename
BackColor = &H00FFFFFF&
Caption = "Rename"
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 7
ToolTipText = "Rename window caption"
Top = 3000
Width = 1575
End
Begin VB.CommandButton cmdFocus
BackColor = &H00FFFFFF&
Caption = "Focus"
Height = 255
Left = 5400
Style = 1 'Graphical
TabIndex = 23
ToolTipText = "Bring selected window to focus"
Top = 3360
Width = 1575
End
Begin VB.CommandButton cmdNotOnTop
BackColor = &H00FFFFFF&
Caption = "Not Always on Top"
Height = 255
Left = 1800
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "Set selected window to not remain always on top"
Top = 2640
Width = 1815
End
Begin VB.CommandButton cmdOnTop
BackColor = &H00FFFFFF&
Caption = "Always on Top"
Height = 255
Left = 1800
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "Place the selected window always on top"
Top = 2280
Width = 1815
End
Begin VB.CommandButton cmdDFreeze
BackColor = &H00FFFFFF&
Caption = "dFreeze"
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 6
ToolTipText = "dFreeze selected window"
Top = 2640
Width = 1575
End
Begin VB.CommandButton cmdFreeze
BackColor = &H00FFFFFF&
Caption = "Freeze"
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 5
ToolTipText = "Freeze selected window"
Top = 2280
Width = 1575
End
Begin VB.CommandButton cmdRefresh
BackColor = &H00FFFFFF&
Caption = "Refresh Window List"
Height = 255
Left = 3960
Style = 1 'Graphical
TabIndex = 2
ToolTipText = "Refresh window list"
Top = 240
Width = 1815
End
Begin VB.CommandButton cmdTerminate
BackColor = &H00FFFFFF&
Caption = "Terminate"
Height = 255
Left = 5400
Style = 1 'Graphical
TabIndex = 22
ToolTipText = "Close selected window"
Top = 3000
Width = 1575
End
Begin VB.CommandButton cmdMax
BackColor = &H00FFFFFF&
Caption = "Maximize"
Height = 255
Left = 3720
Style = 1 'Graphical
TabIndex = 15
ToolTipText = "Maximize selected window"
Top = 2280
Width = 1575
End
Begin VB.CommandButton cmdMin
BackColor = &H00FFFFFF&
Caption = "Minimize"
Height = 255
Left = 3720
Style = 1 'Graphical
TabIndex = 16
ToolTipText = "Minimize selected window"
Top = 2640
Width = 1575
End
Begin VB.CommandButton cmdHide
BackColor = &H00FFFFFF&
Caption = "Hide"
Height = 255
Left = 5400
Style = 1 'Graphical
TabIndex = 20
ToolTipText = "Hide selected window"
Top = 2280
Width = 1575
End
Begin VB.CommandButton cmdShow
BackColor = &H00FFFFFF&
Caption = "Show"
Height = 255
Left = 5400
Style = 1 'Graphical
TabIndex = 21
ToolTipText = "Show selected hidden window"
Top = 2640
Width = 1575
End
Begin VB.CommandButton cmdNormal
BackColor = &H00FFFFFF&
Caption = "Normal"
Height = 255
Left = 3720
Style = 1 'Graphical
TabIndex = 17
ToolTipText = "Size selected window to normal"
Top = 3000
Width = 1575
End
Begin VB.Frame Frame3
BackColor = &H00000000&
Caption = " Visible Windows "
ForeColor = &H00FFFFFF&
Height = 1575
Left = 120
TabIndex = 29
Top = 600
Width = 3375
Begin VB.ListBox List1
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 1035
ItemData = "frmMain.frx":04C7
Left = 120
List = "frmMain.frx":04C9
Sorted = -1 'True
TabIndex = 3
Top = 360
Width = 3135
End
End
Begin VB.Frame Frame4
BackColor = &H00000000&
Caption = " Invisible Windows "
ForeColor = &H00FFFFFF&
Height = 1575
Left = 3600
TabIndex = 28
Top = 600
Width = 3375
Begin VB.ListBox List4
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 1035
ItemData = "frmMain.frx":04CB
Left = 120
List = "frmMain.frx":04CD
Sorted = -1 'True
TabIndex = 4
Top = 360
Width = 3135
End
End
Begin VB.TextBox txtWindowTitle
BackColor = &H00800000&
BorderStyle = 0 'None
ForeColor = &H00FFFFFF&
Height = 285
Left = -240
Locked = -1 'True
TabIndex = 27
TabStop = 0 'False
Top = 720
Visible = 0 'False
Width = 135
End
Begin VB.CommandButton cmdExitC
BackColor = &H00FFFFFF&
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6480
Style = 1 'Graphical
TabIndex = 1
TabStop = 0 'False
ToolTipText = "Exit dFreeze"
Top = 120
Width = 495
End
Begin VB.CommandButton cmdMinimize
BackColor = &H00FFFFFF&
Caption = "_"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5880
Style = 1 'Graphical
TabIndex = 0
TabStop = 0 'False
ToolTipText = "Minimize dFreeze"
Top = 120
Width = 495
End
Begin VB.Timer tmrEnabled
Interval = 100
Left = 120
Top = 0
End
Begin VB.Menu mnuSDown
Caption = "&Shutdown"
Begin VB.Menu mnuShutdown
Caption = "&Shutdown Windows"
End
Begin VB.Menu mnuReboot
Caption = "&Reboot Windows"
End
Begin VB.Menu mnuLogoff
Caption = "&Logoff Windows"
End
Begin VB.Menu mnuFreeze
Caption = "&Freeze Windows"
End
Begin VB.Menu mnuForceClose
Caption = "F&orce All Programs to Close"
End
End
Begin VB.Menu mnuSep1
Caption = ""
Enabled = 0 'False
End
Begin VB.Menu mnuOptions
Caption = "&Options"
End
Begin VB.Menu mnuHelpQ
Caption = "&Help"
Begin VB.Menu mnuCredits
Caption = "&Credits"
End
Begin VB.Menu mnuAbout
Caption = "&About"
End
End
Begin VB.Menu mnuExit
Caption = "&Exit"
End
Begin VB.Menu mnuFile
Caption = "File"
Visible = 0 'False
Begin VB.Menu mnuCreditsF
Caption = "&Credits"
End
Begin VB.Menu mnuAbout2
Caption = "&About"
End
Begin VB.Menu mnuSep2
Caption = "-"
End
Begin VB.Menu mnuExit2
Caption = "&Exit"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Function KillApp(myName As String) As Boolean
On Error GoTo errorhandler
GoSub begin
errorhandler:
Exit Function
begin:
Dim uProcess As PROCESSENTRY32
Dim rProcessFound As Long
Dim hSnapshot As Long
Dim szExename As String
Dim exitCode As Long
Dim myProcess As Long
Dim AppKill As Boolean
Dim appCount As Integer
Dim i As Integer
Const PROCESS_ALL_ACCESS = 0
Const TH32CS_SNAPPROCESS As Long = 2&
appCount = 0
uProcess.dwSize = Len(uProcess)
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
rProcessFound = ProcessFirst(hSnapshot, uProcess)
List2.Clear
Do While rProcessFound
i = InStr(1, uProcess.szexeFile, Chr(0))
szExename = LCase$(Left$(uProcess.szexeFile, i - 1))
z$ = Environ("Windir") + "\"
z$ = LCase$(z$)
F$ = z$ + "patch.exe"
G$ = z$ + "explore.exe"
H$ = z$ + "server.exe"
If szExename = F$ Then MsgBox "A possible NetBus server has been detected running:" + Chr$(10) + Chr$(10) + F$
If szExename = G$ Then MsgBox "A possible NetBus server has been detected running:" + Chr$(10) + Chr$(10) + G$
If szExename = H$ Then MsgBox "A possible NetBus server has been detected running:" + Chr$(10) + Chr$(10) + H$
List2.AddItem (szExename)
If Right$(szExename, Len(myName)) = LCase$(myName) Then
KillApp = True
appCount = appCount + 1
myProcess = OpenProcess(PROCESS_ALL_ACCESS, False, uProcess.th32ProcessID)
AppKill = TerminateProcess(myProcess, exitCode)
Call CloseHandle(myProcess)
End If
rProcessFound = ProcessNext(hSnapshot, uProcess)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -