📄 frmmain.frm
字号:
Caption = "分页"
ForeColor = &H00000000&
Height = 195
Left = 360
TabIndex = 9
Top = 480
Width = 795
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "虚拟内存"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 120
TabIndex = 8
Top = 720
Width = 1155
End
End
Begin VB.PictureBox picGraph
BackColor = &H80000012&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1455
Left = 840
ScaleHeight = 93
ScaleMode = 3 'Pixel
ScaleWidth = 425
TabIndex = 5
Top = 4200
Width = 6435
Begin ComctlLib.ImageList ImageList1
Left = 600
Top = 480
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 8
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":67E2
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":74BC
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":8196
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":8E70
Key = "Win"
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":9B4A
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":A824
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":B4FE
Key = "Proc"
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":C1D8
Key = ""
EndProperty
EndProperty
End
End
Begin VB.PictureBox picBack
BackColor = &H00000000&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2235
Left = 120
ScaleHeight = 145
ScaleMode = 3 'Pixel
ScaleWidth = 33
TabIndex = 3
Top = 4200
Width = 555
Begin VB.PictureBox picLoad
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1935
Left = 90
Picture = "FrmMain.frx":129CA
ScaleHeight = 129
ScaleMode = 3 'Pixel
ScaleWidth = 20
TabIndex = 4
Top = 120
Width = 300
End
End
Begin VB.Timer Timer1
Interval = 1000
Left = 240
Top = 480
End
Begin ComctlLib.ListView ListView1
Height = 3375
Left = 120
TabIndex = 1
Top = 720
Width = 7215
_ExtentX = 12726
_ExtentY = 5953
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 5
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "进程名称"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = "进程句柄"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 2
Key = ""
Object.Tag = ""
Text = "优先级"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(4) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 3
Key = ""
Object.Tag = ""
Text = "线程数"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(5) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 4
Key = ""
Object.Tag = ""
Text = "父进程句柄"
Object.Width = 1587
EndProperty
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 300
Left = 0
Negotiate = -1 'True
TabIndex = 0
Top = 6990
Width = 7440
_ExtentX = 13123
_ExtentY = 529
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 2
Picture = "FrmMain.frx":157FE
Text = ""
TextSave = ""
Key = ""
Object.Tag = ""
Object.ToolTipText = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
TextSave = "19:59"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
AutoSize = 2
TextSave = "2006-6-29"
Key = ""
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblLoad
Alignment = 2 'Center
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "100%"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 120
TabIndex = 6
Top = 6480
Width = 555
End
Begin VB.Menu EndProcess
Caption = "EndProcess"
Visible = 0 'False
Begin VB.Menu EnPro
Caption = "结束进程"
End
Begin VB.Menu sp3
Caption = "-"
End
Begin VB.Menu StopRefresh
Caption = "停止刷新"
End
End
Begin VB.Menu WinOptions
Caption = "WinOptions"
Visible = 0 'False
Begin VB.Menu WinHide
Caption = "隐藏窗口"
End
Begin VB.Menu WinRename
Caption = "显示窗口"
End
Begin VB.Menu WinClose
Caption = "关闭窗口"
End
Begin VB.Menu sp1
Caption = "-"
End
Begin VB.Menu WinMax
Caption = "最大化窗口"
End
Begin VB.Menu WinMin
Caption = "最小化窗口"
End
Begin VB.Menu WinNor
Caption = "还原窗口"
End
Begin VB.Menu sp2
Caption = "-"
End
Begin VB.Menu WinPassword
Caption = "显示密码"
End
Begin VB.Menu RefreshCtls
Caption = "激活控件"
End
Begin VB.Menu sp4
Caption = "-"
End
Begin VB.Menu StopRefresh1
Caption = "停止刷新"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, _
ByVal nWidth As Long, _
ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, _
ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hDC As Long, _
ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hDC As Long, _
ByVal X As Long, _
ByVal Y As Long, _
lpPoint As POINTAPI) As Long
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Dim tMemStat As MEMORYSTATUS
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim tPoint As POINTAPI
Dim intStoreX As Integer
Dim intStoreY As Integer
Dim lngPen As Long
Dim NewX As Long
Dim NewY As Long
Private Sub EnPro_Click()
On Error Resume Next
Call Toolbar1_ButtonClick(Toolbar1.Buttons(3))
End Sub
Private Sub Form_Initialize()
InitCommonControls
End Sub
Private Sub EnumProcess(Optional ByVal sExeName As String = "")
On Error Resume Next
Dim lSnapShot As Long
Dim lNextProcess As Long
Dim tPE As PROCESSENTRY32
lSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
If lSnapShot <> -1 Then
ListView1.ListItems.Clear
tPE.dwSize = Len(tPE)
lNextProcess = Process32First(lSnapShot, tPE)
Do While lNextProcess
If sExeName = Left$(tPE.szexeFile, Len(sExeName)) And Len(sExeName) > 0 Then
Dim lProcess As Long
Dim lExitCode As Long
lProcess = OpenProcess(0, False, tPE.th32ProcessID)
TerminateProcess lProcess, lExitCode
CloseHandle lProcess
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -