Foxtable(狐表)用户栏目专家坐堂 → 可以获取硬件更多信息么


  共有5253人关注过本帖树形打印复制链接

主题:可以获取硬件更多信息么

帅哥哟,离线,有人找我吗?
煜杭
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:94 积分:828 威望:0 精华:0 注册:2017/11/13 18:42:00
可以获取硬件更多信息么  发帖心情 Post By:2018/1/24 10:47:00 [显示全部帖子]

If HardWareInfo.Ready = False '如果没有初始化
    HardWareInfo.Initialize '初始化HardWareInfo,提取硬件信息
End If

Output.Show(
"CPU信息")
With
 HardWareInfo.CPU
    Output.Show(
"制造商:" & .Manufacturer)
    Output.Show(
"品名:" & .Name)
    Output.Show(
"型号:" & .Description)
    Output.Show(
"序列号:" & .ProcessorId)
End
 With
Output.Show(Chr(
13) & Chr(10))
Output.Show(
"主板信息")
With
 HardWareInfo.BaseBoard
    Output.Show(
"制造商:" & .Manufacturer)
    Output.Show(
"型号:" & .Product)
    Output.Show(
"序列号:" & .SerialNumber)
End
 With
Output.Show(Chr(
13) & Chr(10))
Output.Show(
"硬盘信息")
With
 HardWareInfo.Disk
    Output.Show(
"型号:" & .Model)
    Output.Show(
"序列号:" & .Signature)
End
 With
Output.Show(Chr(
13) & Chr(10))
Output.Show(
"BIOS信息")
With
 HardWareInfo.Bios
    Output.Show(
"厂商:" & .Manufacturer)
    Output.Show(
"序列号:" & .SerialNumber)
End
 With

想获取硬盘容量,内存容量要怎么写?

 回到顶部
帅哥哟,离线,有人找我吗?
煜杭
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:94 积分:828 威望:0 精华:0 注册:2017/11/13 18:42:00
  发帖心情 Post By:2018/1/24 13:11:00 [显示全部帖子]

感谢 

 回到顶部