在.NET中得到计算机硬件信息的一些功能 在.NET中得到计算机硬件信息的一些功能

  在.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: " & opInfo("csname").ToString())   ListBox1.Items.Add("Windows Directory: " & opInfo("windowsdirectory").ToString()) 
Next