VB.NET中得到计算机硬件信息

最新推荐文章于 2021-07-26 11:35:52 发布
原创 最新推荐文章于 2021-07-26 11:35:52 发布 · 1.9k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#vb.net #components #windows #button #integer #object

博客未提供核心信息技术内容，仅提及作者孟宪会及出处【孟宪会之精彩世界】。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

作者：孟宪会 出自：【孟宪会之精彩世界】

 ?
得到显示器分辨率 
 Dim  X  As   Short   =  System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
 Dim  Y  As   Short   =  System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
 MsgBox ( " 您的显示器分辨率是： "   &  X  &   "  X  "   &  Y)

 

 

得到特殊文件夹的路径 
 ' "Desktop"桌面文件夹路径
MsgBox (Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory))
 ' "Favorites"收藏夹路径
MsgBox (Environment.GetFolderPath(Environment.SpecialFolder.Favorites))
 ' "Application Data"路径
MsgBox (Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData))

 ' 通用写法
' Dim SPEC As String = Environment.GetFolderPath(Environment.SpecialFolder.XXXXXXX)
' XXXXXXX是特殊文件夹的名字

 

 

得到操作系统版本信息 
 MsgBox (Environment.OSVersion.ToString)

 

 

得到当前登录的用户名 
 MsgBox (Environment.UserName)

得到当前应用程序的路径 
 MsgBox (Environment.CurrentDirectory)

 

 

打开和关闭CD - ROM 
 ' 先新建模块
Module mciAPIModule
  Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
  (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
End Module

' 打开CD-ROM 
Dim  lRet  As   Long
lRet  =  mciSendString( " set cdAudio door open " ,  0 & ,  0 ,  0 )

 ' 关闭CD-ROM 
Dim  lRet  As   Long
lRet  =  mciSendString( " set cdAudio door Closed " ,  0 & ,  0 ,  0 )
 ' 更多请参见
http: //msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/mmcmdstr_8eyc.asp

 

 

得到计算机IP和计算机全名 
 Dim  MYIP  As  System.Net.IPHostEntry  =  System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
 MsgBox ( " 您的IP地址： "   &  (MYIP.AddressList.GetValue( 0 ).ToString))
 MsgBox ( " 您的计算机全名： "   &  (MYIP.HostName.ToString))

使用win32_operatingSystem (wmi  Class)得到计算机信息 
'添加ListBox在Form1_Load事件里，并引用system.Managment
Dim opSearch As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
Dim opInfo As ManagementObject
For Each opInfo In opSearch.Get()
  ListBox1.Items.Add("Name: " & opInfo("name").ToString())
  ListBox1.Items.Add("Version: " & opInfo("version").ToString())
  ListBox1.Items.Add("Manufacturer: " & opInfo("manufacturer").ToString())
  ListBox1.Items.Add("Computer name: " & opInfo("csname").ToString())
  ListBox1.Items.Add("Windows Directory: " & opInfo("windowsdirectory").ToString())

 

 

列出计算机安装的全部字体，并添加到ListBox 
 ' 新建Form并添加ListBox和Button
Private   Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fntCollection As InstalledFontCollection = New InstalledFontCollection()
Dim fntFamily() As FontFamily
fntFamily = fntCollection.Families
ListBox1.Items.Clear()
Dim i As Integer = 0
For i = 0 To fntFamily.Length - 1 
  ListBox1.Items.Add(fntFamily(i).Name)
Next
End Sub

 

 

使用Win32_Processor列出处理器的信息 
 Imports  System.Management
 Public   Class Form1
  Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

  Public Sub New()
    MyBase.New()

    '该调用是 Windows 窗体设计器所必需的。
    InitializeComponent()

    '在 InitializeComponent() 调用之后添加任何初始化

  End Sub

  '窗体重写 dispose 以清理组件列表。
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub

  'Windows 窗体设计器所必需的
  Private components As System.ComponentModel.IContainer

  '注意: 以下过程是 Windows 窗体设计器所必需的
  '可以使用 Windows 窗体设计器修改此过程。
  '不要使用代码编辑器修改它。
  Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
  Friend WithEvents Button1 As System.Windows.Forms.Button
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.ListBox1 = New System.Windows.Forms.ListBox
    Me.Button1 = New System.Windows.Forms.Button
    Me.SuspendLayout()
    '
    'ListBox1
    '
    Me.ListBox1.Location = New System.Drawing.Point(8, 8)
    Me.ListBox1.Name = "ListBox1"
    Me.ListBox1.Size = New System.Drawing.Size(280, 186)
    Me.ListBox1.TabIndex = 0
    '
    'Button1
    '
    Me.Button1.Location = New System.Drawing.Point(56, 208)
    Me.Button1.Name = "Button1"
    Me.Button1.Size = New System.Drawing.Size(168, 32)
    Me.Button1.TabIndex = 1
    Me.Button1.Text = "装载计算机处理器信息"
    '
    'Form1
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(296, 254)
    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.ListBox1})
    Me.Text = "计算机处理器信息"
    Me.ResumeLayout(False)

  End Sub

#End Region

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles Button1.Click

    Dim ProcQuery As New SelectQuery("Win32_Processor")
    Dim ProcSearch As New ManagementObjectSearcher(ProcQuery)
    Dim ProcInfo As ManagementObject

    For Each ProcInfo In ProcSearch.Get()
      Call processorfamily(ProcInfo("Family").ToString)
      ListBox1.Items.Add("Description: " & ProcInfo("Description").ToString())
      ListBox1.Items.Add("caption: " & ProcInfo("caption").ToString())
      ListBox1.Items.Add("Architecture: " & ProcInfo("Architecture").ToString())
      Call processortype(ProcInfo("ProcessorType").ToString())
      Call CpuStat(ProcInfo("CpuStatus").ToString)
      ListBox1.Items.Add("MaxClockSpeed: " & ProcInfo("MaxClockSpeed").ToString() & "MHZ")
      ListBox1.Items.Add("L2CacheSpeed: " & ProcInfo("L2CacheSpeed").ToString() & "MHZ")
      ListBox1.Items.Add("ExtClock: " & ProcInfo("L2CacheSpeed").ToString() & "MHZ")
      ListBox1.Items.Add("ProcessorId: " & ProcInfo("ProcessorId").ToString())
      ListBox1.Items.Add("AddressWidth: " & ProcInfo("AddressWidth").ToString() & "Bits")
      ListBox1.Items.Add("DataWidth: " & ProcInfo("DataWidth").ToString() & "Bits")
      ListBox1.Items.Add("Version: " & ProcInfo("Version").ToString())
      ListBox1.Items.Add("ExtClock: " & ProcInfo("ExtClock").ToString() & "MHZ")
    Next
  End Sub
  Function processorfamily(ByVal procssfam)
    Dim processtype
    Select Case procssfam
      Case 1
        processtype = "Other"
      Case 2
        processtype = "Unknown "
      Case 3
        processtype = "8086 "
      Case 4
        processtype = "80286 "
      Case 5
        processtype = "80386 "
      Case 6
        processtype = "80486 "
      Case 7
        processtype = "8087 "
      Case 8
        processtype = "80287 "
      Case 9
        processtype = "80387 "
      Case 10
        processtype = "80487 "
      Case 11
        processtype = "Pentium brand "
      Case 12
        processtype = "Pentium Pro "
      Case 13
        processtype = "Pentium II "
      Case 14
        processtype = "Pentium processor with MMX technology "
      Case 15
        processtype = "Celeron "
      Case 16
        processtype = "Pentium II Xeon "
      Case 17
        processtype = "Pentium III "
      Case 18
        processtype = "M1 Family "
      Case 19
        processtype = "M2 Family "
      Case 24
        processtype = "K5 Family "
      Case 25
        processtype = "K6 Family "
      Case 26
        processtype = "K6-2 "
      Case 27
        processtype = "K6-3 "
      Case 28
        processtype = "AMD Athlon Processor Family "
      Case 29
        processtype = "AMD Duron Processor "
      Case 30
        processtype = "AMD2900 Family "
      Case 31
        processtype = "K6-2+ "
      Case 32
        processtype = "Power PC Family "
      Case 33
        processtype = "Power PC 601 "
      Case 34
        processtype = "Power PC 603 "
      Case 35
        processtype = "Power PC 603+ "
      Case 36
        processtype = "Power PC 604 "
      Case 37
        processtype = "Power PC 620 "
      Case 38
        processtype = "Power PC X704 "
      Case 39
        processtype = "Power PC 750 "
      Case 48
        processtype = "Alpha Family "
      Case 49
        processtype = "Alpha 21064 "
      Case 50
        processtype = "Alpha 21066 "
      Case 51
        processtype = "Alpha 21164 "
      Case 52
        processtype = "Alpha 21164PC "
      Case 53
        processtype = "Alpha 21164a "
      Case 54
        processtype = "Alpha 21264 "
      Case 55
        processtype = "Alpha 21364 "
      Case 64
        processtype = "MIPS Family "
      Case 65
        processtype = "MIPS R4000 "
      Case 66
        processtype = "MIPS R4200 "
      Case 67
        processtype = "MIPS R4400 "
      Case 68
        processtype = "MIPS R4600 "
      Case 69
        processtype = "MIPS R10000 "
      Case 80
        processtype = "SPARC Family "
      Case 81
        processtype = "SuperSPARC "
      Case 82
        processtype = "microSPARC II "
      Case 83
        processtype = "microSPARC IIep "
      Case 84
        processtype = "UltraSPARC "
      Case 85
        processtype = "UltraSPARC II "
      Case 86
        processtype = "UltraSPARC IIi "
      Case 87
        processtype = "UltraSPARC III "
      Case 88
        processtype = "UltraSPARC IIIi "
      Case 96
        processtype = "68040 "
      Case 97
        processtype = "68xxx Family "
      Case 98
        processtype = "68000 "
      Case 99
        processtype = "68010 "
      Case 100
        processtype = "68020 "
      Case 101
        processtype = "68030 "
      Case 112
        processtype = "Hobbit Family "
      Case 120
        processtype = "Crusoe TM5000 Family "
      Case 121
        processtype = "Crusoe TM3000 Family "
      Case 128
        processtype = "Weitek "
      Case 130
        processtype = "Itanium Processor "
      Case 144
        processtype = "PA-RISC Family "
      Case 145
        processtype = "PA-RISC 8500 "
      Case 146
        processtype = "PA-RISC 8000 "
      Case 147
        processtype = "PA-RISC 7300LC "
      Case 148
        processtype = "PA-RISC 7200 "
      Case 149
        processtype = "PA-RISC 7100LC "
      Case 150
        processtype = "PA-RISC 7100 "
      Case 160
        processtype = "V30 Family "
      Case 176
        processtype = "Pentium III Xeon "
      Case 177
        processtype = "Pentium III Processor with Intel SpeedStep Technology "
      Case 178
        processtype = "Pentium 4 "
      Case 179
        processtype = "Intel Xeon "
      Case 180
        processtype = "AS400 Family "
      Case 181
        processtype = "Intel Xeon processor MP "
      Case 182
        processtype = "AMD AthlonXP Family "
      Case 183
        processtype = "AMD AthlonMP Family "
      Case 184
        processtype = "Intel Itanium 2 "
      Case 185
        processtype = "AMD Opteron Family "
      Case 190
        processtype = "K7 "
      Case 200
        processtype = "IBM390 Family "
      Case 201
        processtype = "G4 "
      Case 202
        processtype = "G5 "
      Case 250
        processtype = "i860 "
      Case 251
        processtype = "i960 "
      Case 260
        processtype = "SH-3 "
      Case 261
        processtype = "SH-4 "
      Case 280
        processtype = "ARM "
      Case 281
        processtype = "StrongARM "
      Case 300
        processtype = "6x86 "
      Case 301
        processtype = "MediaGX "
      Case 302
        processtype = "MII "
      Case 320
        processtype = "WinChip "
      Case 350
        processtype = "DSP "
      Case 500
        processtype = "Video Processor "
    End Select
    ListBox1.Items.Add("Family: " & processtype)

  End Function
  Function CpuStat(ByVal CpuStNUM)
    Dim stat
    Select Case CpuStNUM
      Case 0
        stat = "Unknown "
      Case 1
        stat = "CPU Enabled "
      Case 2
        stat = "CPU Disabled by User via BIOS Setup "
      Case 3
        stat = "CPU Disabled By BIOS (POST Error) "
      Case 4
        stat = "CPU is Idle "
      Case 5
        stat = "Reserved "
      Case 6
        stat = "Reserved "
      Case 7
        stat = "Other "
    End Select
    ListBox1.Items.Add("CpuStatus: " & stat)
  End Function
  Function processortype(ByVal proctypenum)
    Dim proctype
    Select Case proctypenum
      Case 1
        proctype = "Other "
      Case 2
        proctype = "Unknown "
      Case 3
        proctype = "Central Processor "
      Case 4
        proctype = "Math Processor "
      Case 5
        proctype = "DSP Processor "
      Case 6
        proctype = "Video Processor "
    End Select
    ListBox1.Items.Add("Processor Type: " & proctype)

  End Function
End Class

 

 

得到CD - ROM信息 
 Imports  System.Management
 Public   Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

  Public Sub New()
    MyBase.New()

    '该调用是 Windows 窗体设计器所必需的。
    InitializeComponent()

    '在 InitializeComponent() 调用之后添加任何初始化

  End Sub

  '窗体重写 dispose 以清理组件列表。
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub

  'Windows 窗体设计器所必需的
  '注意: 以下过程是 Windows 窗体设计器所必需的
  '可以使用 Windows 窗体设计器修改此过程。
  '不要使用代码编辑器修改它。
  Private components As System.ComponentModel.IContainer
  Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.ListBox1 = New System.Windows.Forms.ListBox
    Me.SuspendLayout()
    '
    'ListBox1
    '
    Me.ListBox1.Location = New System.Drawing.Point(24, 16)
    Me.ListBox1.Name = "ListBox1"
    Me.ListBox1.Size = New System.Drawing.Size(416, 173)
    Me.ListBox1.TabIndex = 0
    '
    'Form1
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(456, 206)
    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox1})
    Me.Name = "Form1"
    Me.Text = "Form1"
    Me.ResumeLayout(False)

  End Sub

#End Region

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
    On Error Resume Next
    Dim SoundDeviceQuery As New SelectQuery("Win32_CDROMDrive")
    Dim SoundDeviceSearch As New ManagementObjectSearcher(SoundDeviceQuery)
    Dim SoundDeviceInfo As ManagementObject
    For Each SoundDeviceInfo In SoundDeviceSearch.Get()
      Dim SizeInMBs As Long = (Val(SoundDeviceInfo("Size").ToString()))
      SizeInMBs = Int((SizeInMBs / (1024 * 1024)))
      ListBox1.Items.Add("CD-Rom Description: " & SoundDeviceInfo("caption").ToString())
      ListBox1.Items.Add("CD-Rom Manufacturer: " & SoundDeviceInfo("Manufacturer").ToString())
      ListBox1.Items.Add("CD-Rom Drive: " & SoundDeviceInfo("drive").ToString())
      ListBox1.Items.Add("CD-Rom Media Loaded: " & SoundDeviceInfo("MediaLoaded").ToString())
      ListBox1.Items.Add("CD-Rom Media Type: " & SoundDeviceInfo("MediaType").ToString())
      ListBox1.Items.Add("CD-Rom Volume Name: " & SoundDeviceInfo("VolumeName").ToString())
      ListBox1.Items.Add("CD-Rom Size: " & SizeInMBs & " MBytes")
      ListBox1.Items.Add("CD-Rom Status: " & SoundDeviceInfo("Status").ToString())
      ListBox1.Items.Add("CD-Rom MaxMediaSize: " & SoundDeviceInfo("MaxMediaSize").ToString())
      ListBox1.Items.Add("CD-Rom Id: " & SoundDeviceInfo("Id").ToString())
      ListBox1.Items.Add("CD-Rom TransferRate: "+Int(SoundDeviceInfo("TransferRate").ToString())+" KBs/秒")
    Next
  End Sub
End Class

 

 

得到硬盘信息 
 Imports  System.Management
 Public   Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

  Public Sub New()
    MyBase.New()
    InitializeComponent()
  End Sub

  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub
  Private components As System.ComponentModel.IContainer
  Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.ListBox1 = New System.Windows.Forms.ListBox
    Me.SuspendLayout()
    '
    'ListBox1
    '
    Me.ListBox1.Location = New System.Drawing.Point(8, 8)
    Me.ListBox1.Name = "ListBox1"
    Me.ListBox1.Size = New System.Drawing.Size(272, 212)
    Me.ListBox1.TabIndex = 0
    '
    'Form1
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 238)
    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox1})
    Me.Name = "Form1"
    Me.Text = "Form1"
    Me.ResumeLayout(False)

  End Sub

#End Region

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    On Error Resume Next
    Dim HDDDeviceQuery As New SelectQuery("Win32_DiskDrive")
    Dim HDDDeviceSearch As New ManagementObjectSearcher(HDDDeviceQuery)
    Dim HDDDeviceInfo As ManagementObject
    For Each HDDDeviceInfo In HDDDeviceSearch.Get()
      ListBox1.Items.Add("HDD Description: " & HDDDeviceInfo("caption").ToString())
      ListBox1.Items.Add("HDD BytesPerSector: " & HDDDeviceInfo("BytesPerSector").ToString())
      ListBox1.Items.Add("HDD CompressionMethod: " & HDDDeviceInfo("CompressionMethod").ToString())
      ListBox1.Items.Add("HDD Index: " & HDDDeviceInfo("Index").ToString())
      ListBox1.Items.Add("HDD InstallDate: " & HDDDeviceInfo("InstallDate").ToString())
      ListBox1.Items.Add("HDD Manufacturer: " & HDDDeviceInfo("Manufacturer").ToString())
      ListBox1.Items.Add("HDD Partitions: " & HDDDeviceInfo("Partitions").ToString())
      ListBox1.Items.Add("HDD Size: " & Int(Val(HDDDeviceInfo("Size").ToString()) / 2 ^ 30) & "  GBytes")
      ListBox1.Items.Add("HDD TotalCylinders: " & HDDDeviceInfo("TotalCylinders").ToString())
      ListBox1.Items.Add("HDD TotalSectors: " & HDDDeviceInfo("TotalSectors").ToString())
      ListBox1.Items.Add("HDD TracksPerCylinder: " & HDDDeviceInfo("TracksPerCylinder").ToString())
      ListBox1.Items.Add("HDD TotalHeads: " & HDDDeviceInfo("TotalHeads").ToString())
      ListBox1.Items.Add("HDD TotalTracks: " & HDDDeviceInfo("TotalTracks").ToString())
      ListBox1.Items.Add("HDD SectorsPerTrack: " & HDDDeviceInfo("SectorsPerTrack").ToString())
      ListBox1.Items.Add("HDD SCSILogicalUnit: " & HDDDeviceInfo("SCSILogicalUnit").ToString())
    Next
  End Sub
End Class

 

 

得到声卡信息 
 Imports  System.Management
 Public   Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

  Public Sub New()
    MyBase.New()
    InitializeComponent()
  End Sub

  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub
  Private components As System.ComponentModel.IContainer
  Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.ListBox1 = New System.Windows.Forms.ListBox
    Me.SuspendLayout()
    '
    'ListBox1
    '
    Me.ListBox1.Location = New System.Drawing.Point(8, 8)
    Me.ListBox1.Name = "ListBox1"
    Me.ListBox1.Size = New System.Drawing.Size(272, 212)
    Me.ListBox1.TabIndex = 0
    '
    'Form1
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 238)
    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox1})
    Me.Name = "Form1"
    Me.Text = "Form1"
    Me.ResumeLayout(False)

  End Sub

#End Region

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim SoundDeviceQuery As New SelectQuery("Win32_SoundDevice")
    Dim SoundDeviceSearch As New ManagementObjectSearcher(SoundDeviceQuery)
    Dim SoundDeviceInfo As ManagementObject
    For Each SoundDeviceInfo In SoundDeviceSearch.Get()
      ListBox1.Items.Add("Sound Device Description: " & SoundDeviceInfo("Caption").ToString())
      ListBox1.Items.Add("Sound Device Status: " & SoundDeviceInfo("status").ToString())
      ListBox1.Items.Add("Sound Device Manufacturer: " & SoundDeviceInfo("Manufacturer").ToString())
    Next
  End Sub

End Class

vb 获取计算机硬件,VB.NET中得到计算机硬件信息
weixin_30433439的博客
07-16 833
一、得到显示器分辨率Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.WidthDim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.HeightMsgBox("您的显示器分辨率是：" & X & " X " & Y...
VB.NET获取硬件序列号(CPU，主板硬盘等)
08-22
VB.NET获取计算机硬件序列号，内置示例获取 CPU，主板号，和硬盘
C#/VB.NET 获取电脑属性（硬盘ID、硬盘容量、Cpu序列号、MAC地址、系统类型）
weixin_33836223的博客
11-03 1347
在开发过程中，经常需要获取电脑的一些属性，如获取硬盘ID/CPU序列号/MAC地址作为来加密字符串。 1、硬盘 在我查看网上一些文档时，发现很多人对硬盘序列号很模糊~ 什么叫硬盘序列号？指的是作为一个硬盘的标识;但是有时候发现，同事的电脑硬盘序列号有重复的。所以硬盘标识我们可以试试用ID，这个如何获取下面讲解。 我们可以运行DOS命令，或者查看注册表，...
获得计算机硬件信息(VB.net)
c#专栏
04-26 3764
代码有点乱，不过你可以直接Copy后就能运行!Imports System.ManagementImports System.Drawing.TextImports System.IO 说明： Windows Management Instrumentation (WMI) 是可伸缩的系统管理结构，它采用一个 统一的、基于标准的、可扩展的面向对象接口。WMI 为您提供
VB.NET中如何得到计算机硬件信息
05-03
本文汇集了在.net中得到计算机硬件信息的一些功能。 　　得到显示器分辨率 　　Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width 　　Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height 　　MsgBox("您的显示器分辨率是：" & X & " X " & Y) 　　得到特殊文件夹的路径
VB.Net_Camera.rar_VB.NET 摄像头_vb.net 拍照_vb.net 摄像头_vb.net摄像头
09-23
在VB.NET编程环境中，开发摄像头相关的应用程序是一项常见的需求，尤其在多媒体、监控或者视频会议等领域。本项目"VB.Net_Camera.rar"提供了一个简单的实例，教你如何利用VB.NET实现摄像头拍照的功能。下面将详细...
VB.NET 获取U盘的物理序列号_获取物理磁盘_vb.net获取物理磁盘序列号_
10-03
在VB.NET编程环境中，开发人员有时需要访问计算机硬件的相关信息，比如磁盘的物理序列号。这在系统管理、设备追踪或安全应用中非常常见。本文将深入探讨如何使用VB.NET来获取U盘或者计算机物理磁盘的序列号。 首先...
利用VB.NET获取计算机硬件信息代码汇集.txt
06-13
利用VB.NET获取计算机硬件信息代码汇集
VB.NET利用特殊语法获取硬件信息
08-07
通过一系列语法得到显示器分辨率等硬件信息
vb.net获取cpuID 网卡地址 主板id 硬盘id 内存大小 电脑名称信息
12-22
亲测可用，获取主板，硬盘，CPU，网卡地址等序号，另外还可以获取内存大小，系统登录用户名称，电脑的计算机名称。每个按钮一个功能，信息现在文本框内。源码直接可用，编写软件vb.net 2010 适合新手。
VB获取硬件信息
09-24
VB获取硬件信息 计算机信息 系统信息 驱动器信息 进程信息 bios信息
vb.net获取系统设备及系统信息
06-07
非常惊艳的界面，可以获取CPU，BIOS，显卡声卡等各种驱动已经操作系统的完备信息，关键是还不带第三方控件，完全是net下的类 效果那真不是一般的好（和鲁大师同样的效果）
VB.NET 2008 获取本机IP、网卡MAC地址、计算机名
05-28
VB.NET 2008 获取本机IP、网卡MAC地址、计算机名。有问题请到我的博客交流 IT狼博客[ http://www.ITLang.com ]
vb.net 获取计算机信息,VB.NET中得到计算机硬件信息
weixin_39540426的博客
07-26 537
八、得到硬盘信息Imports System.ManagementPublic Class Form1Inherits System.Windows.Forms.Form#Region " Windows Form Designer generated code "Public Sub New()MyBase.New()InitializeComponent()End SubProtected O...
获取计算机硬件信息的VB.NET代码范例
wl58796351的专栏
08-19 3251
获取计算机硬件信息的VB.NET代码范例     得到显示器分辨率    本文相关代码如下： Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.
VB.NET下获取硬盘信息的几种方法
rainbowsoftware
03-17 1329
   1、用API函数GetDiskFreeSpaceEx获取磁盘空间     Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _        (ByVal lpDirectoryName As String, ByRef lpFreeBytesA
VB.NET编程：获取计算机硬件与系统信息实用代码
本文档汇集了关于如何在VB.NET编程环境中获取计算机硬件信息的一系列实用代码片段。VB.NET 是一种面向对象的编程语言，尤其适合Windows平台的应用开发。以下是一些关键知识点的详细解析： 1. **屏幕分辨率**： ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值