vb 获取计算机硬件,VB.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)

二、得到特殊文件夹的路径

'"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)

五、得到计算机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: " &a