📄 fox-info1.frm
字号:
Top = 2485
Width = 135
End
Begin VB.Label ramfreelbl
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 = 16
Top = 3571
Width = 135
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "剩余物理内存 (RAM) :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = -74640
TabIndex = 15
Top = 3600
Width = 2220
End
Begin VB.Label ramlbl
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 = 14
Top = 3209
Width = 135
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "总计物理内存 (RAM) :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = -74640
TabIndex = 13
Top = 3240
Width = 2220
End
Begin VB.Label WinOSlbl
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 = 12
Top = 2847
Width = 135
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "操作系统 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = -74640
TabIndex = 11
Top = 2880
Width = 1080
End
Begin VB.Label wanIPADDRESSlbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "狐狸硬件信息无法获取您的广域网 Ip 地址"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 255
Left = -72246
MouseIcon = "Fox-Info1.frx":097C
TabIndex = 9
Top = 1806
Width = 4110
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "广域网Ip 地址 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = -74640
TabIndex = 8
Top = 1800
Width = 1650
End
Begin VB.Label processorlbl
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 = -72240
TabIndex = 7
Top = 720
Width = 135
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "处理器 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = -74640
TabIndex = 6
Top = 720
Width = 870
End
End
Begin VB.Label lblCheckedHDSPACE
Caption = "0"
Height = 135
Left = 9360
TabIndex = 23
Top = 240
Visible = 0 'False
Width = 135
End
Begin VB.Label CPUPercentage
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "CPU USAGE"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 10080
TabIndex = 5
Top = 0
Width = 1320
End
Begin VB.Shape CPUBAR
BorderWidth = 2
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Left = 1560
Top = 7920
Width = 8295
End
Begin VB.Shape Shape1
BorderWidth = 2
Height = 375
Left = 1560
Top = 7920
Width = 8295
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "CPU 使用率"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 3
Top = 8040
Width = 1110
End
Begin VB.Image Image1
Height = 1200
Left = 0
Picture = "Fox-Info1.frx":0ACE
Top = 0
Width = 1200
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "狐狸硬件信息 v 1.0"
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1200
TabIndex = 0
Top = 360
Width = 3420
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuLog1
Caption = "生成硬件信息日志"
Shortcut = {F1}
End
Begin VB.Menu mnuLog2
Caption = "生成系统信息日志"
Shortcut = {F2}
End
Begin VB.Menu mnuExit
Caption = "退出"
Shortcut = ^Q
End
End
Begin VB.Menu mnuOptions
Caption = "选项(&O)"
Begin VB.Menu mnuMinimizeFoxInfo
Caption = "最小化"
Shortcut = ^M
End
Begin VB.Menu mnuAlwaysOnTop
Caption = "始终最上面"
Checked = -1 'True
Shortcut = ^T
End
Begin VB.Menu mnuSEPARATOR
Caption = "-"
End
Begin VB.Menu mnuOptions2
Caption = "选项"
Shortcut = ^O
End
End
Begin VB.Menu mnuAbout
Caption = "关于"
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Download by http://www.codefans.net
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal numBytes As Long)
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long
Private Declare Function GetTickCount Lib "Kernel32.dll" () As Long
Dim Information As New GetInfomation
Private Type CounterInfo
hCounter As Long
strName As String
End Type
Dim db As Database
Dim rs As Recordset
Dim WS As Workspace
Dim RProgramS
Dim PRINTERA
Dim datata
Dim VERSIATANABIOS
Dim DbFile
Dim PwdString
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -