📄 fox-info1.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "ComDlg32.OCX"
Begin VB.Form Form2
BorderStyle = 3 'Fixed Dialog
Caption = "狐狸硬件信息 v 1.0"
ClientHeight = 8430
ClientLeft = 45
ClientTop = 735
ClientWidth = 10095
Icon = "Fox-Info1.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8430
ScaleWidth = 10095
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text1
Height = 195
Left = 9240
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 30
Text = "Fox-Info1.frx":08CA
Top = 360
Visible = 0 'False
Width = 150
End
Begin MSComDlg.CommonDialog LogSave
Left = 7965
Top = 105
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.ListBox LISTFORIP
Height = 240
Left = 9240
TabIndex = 10
Top = 120
Visible = 0 'False
Width = 150
End
Begin VB.Timer Timer1
Interval = 1000
Left = 9555
Top = 120
End
Begin MSComctlLib.ProgressBar PB1
Height = 135
Left = 9360
TabIndex = 4
Top = 120
Visible = 0 'False
Width = 135
_ExtentX = 238
_ExtentY = 238
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin TabDlg.SSTab SSTab1
Height = 6375
Left = 240
TabIndex = 1
Top = 1440
Width = 9615
_ExtentX = 16960
_ExtentY = 11245
_Version = 393216
Tabs = 5
TabsPerRow = 5
TabHeight = 520
ShowFocusRect = 0 'False
MouseIcon = "Fox-Info1.frx":08D0
TabCaption(0) = "计算机信息"
TabPicture(0) = "Fox-Info1.frx":08EC
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "List1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "系统信息"
TabPicture(1) = "Fox-Info1.frx":0908
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label3"
Tab(1).Control(1)= "processorlbl"
Tab(1).Control(2)= "Label4"
Tab(1).Control(3)= "wanIPADDRESSlbl"
Tab(1).Control(4)= "Label5"
Tab(1).Control(5)= "WinOSlbl"
Tab(1).Control(6)= "Label6"
Tab(1).Control(7)= "ramlbl"
Tab(1).Control(8)= "Label7"
Tab(1).Control(9)= "ramfreelbl"
Tab(1).Control(10)= "ScreenResolutionLBL"
Tab(1).Control(11)= "Label8"
Tab(1).Control(12)= "Label9"
Tab(1).Control(13)= "numberofprocessorslbl"
Tab(1).Control(14)= "Label10"
Tab(1).Control(15)= "systemdrivelbl"
Tab(1).Control(16)= "Label11"
Tab(1).Control(17)= "runningprogramslbl"
Tab(1).Control(18)= "Label12"
Tab(1).Control(19)= "printerlbl"
Tab(1).Control(20)= "Label15"
Tab(1).Control(21)= "DXVERSIONlbl"
Tab(1).Control(22)= "Label13"
Tab(1).Control(23)= "totalpagingfilelbl"
Tab(1).Control(24)= "Label14"
Tab(1).Control(25)= "freepagingfilelbl"
Tab(1).Control(26)= "Label16"
Tab(1).Control(27)= "networkipaddresslBl"
Tab(1).Control(28)= "RAMtimer"
Tab(1).Control(29)= "Timer3"
Tab(1).ControlCount= 30
TabCaption(2) = "驱动器信息"
TabPicture(2) = "Fox-Info1.frx":0924
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "lvwHD"
Tab(2).Control(1)= "Command2"
Tab(2).ControlCount= 2
TabCaption(3) = "进程信息"
TabPicture(3) = "Fox-Info1.frx":0940
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "LabelProcesses"
Tab(3).Control(1)= "Processeslbl"
Tab(3).Control(2)= "LvW"
Tab(3).Control(3)= "terminateprocess"
Tab(3).Control(4)= "Command1"
Tab(3).Control(5)= "Timer2"
Tab(3).ControlCount= 6
TabCaption(4) = "Bios 信息"
TabPicture(4) = "Fox-Info1.frx":095C
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "ListView1"
Tab(4).Control(1)= "Command3"
Tab(4).ControlCount= 2
Begin VB.Timer Timer3
Interval = 1000
Left = -66000
Top = 960
End
Begin VB.CommandButton Command3
Caption = "获取 Bios 信息"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = -74760
TabIndex = 39
Top = 5640
Width = 2175
End
Begin MSComctlLib.ListView ListView1
Height = 5055
Left = -74760
TabIndex = 38
Top = 480
Width = 9135
_ExtentX = 16113
_ExtentY = 8916
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.CommandButton Command2
Caption = "清空回收站"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = -68280
TabIndex = 31
Top = 5640
Width = 2655
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 1000
Left = -65880
Top = 360
End
Begin VB.CommandButton Command1
Caption = "刷新列表"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = -70920
TabIndex = 29
Top = 5400
Width = 2295
End
Begin VB.CommandButton terminateprocess
Caption = "中止进程"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = -68520
TabIndex = 28
Top = 5400
Width = 2655
End
Begin MSComctlLib.ListView LvW
Height = 4575
Left = -74520
TabIndex = 19
Top = 720
Width = 8655
_ExtentX = 15266
_ExtentY = 8070
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 14737632
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin MSComctlLib.ListView lvwHD
Height = 4935
Left = -74760
TabIndex = 18
Top = 600
Width = 9135
_ExtentX = 16113
_ExtentY = 8705
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = 0
BackColor = 12648447
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.Timer RAMtimer
Enabled = 0 'False
Interval = 1000
Left = -66000
Top = 480
End
Begin VB.ListBox List1
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5310
ItemData = "Fox-Info1.frx":0978
Left = 360
List = "Fox-Info1.frx":097A
TabIndex = 2
Top = 600
Width = 8895
End
Begin VB.Label networkipaddresslBl
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 300
Left = -72246
TabIndex = 45
Top = 2123
Width = 135
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "局域网Ip地址 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -