根据给定的信息，我们可以整理出以下关于如何在.NET框架中获取计算机硬件信息的相关知识点：
### 一、获取屏幕分辨率
在.NET中，可以利用`System.Windows.Forms.Screen`类来获取当前主屏幕的宽度和高度。这通常用于适配不同的显示设备。
```vb
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)
```
这里通过`System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width`和`System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height`分别获取了屏幕的宽度和高度，并将结果存储在变量`X`和`Y`中。
### 二、获取特殊文件夹路径
.NET提供了多种方法来获取系统的特殊文件夹路径，例如桌面、收藏夹等。这些路径可以通过`Environment.GetFolderPath`方法获得。
```vb
MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)) ' 获取桌面路径
MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.Favorites)) ' 获取收藏夹路径
MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) # 获取应用程序数据路径
```
其中`Environment.SpecialFolder`枚举定义了各种特殊文件夹类型，可以根据需求选择合适的类型获取相应的路径。
### 三、获取操作系统版本信息
可以通过`Environment.OSVersion`属性来获取操作系统的版本信息。
```vb
MsgBox(Environment.OSVersion.ToString)
```
该属性返回一个`OSVersion`对象，包含了操作系统的版本详情，如版本号、平台等信息。
### 四、获取用户名
获取当前用户的登录名可以通过`Environment.UserName`属性实现。
```vb
MsgBox(Environment.UserName)
```
这将返回当前登录用户的名称。
### 五、获取当前工作目录
可以通过`Environment.CurrentDirectory`属性来获取当前的工作目录。
```vb
MsgBox(Environment.CurrentDirectory)
```
这个目录通常是应用程序运行时的默认目录。
### 六、控制CD-ROM
.NET还提供了与多媒体设备交互的功能，如控制CD-ROM。
```vb
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
Dim lRet As Long
lRet = mciSendString("set cdaudio door open", "", 0, 0) ' 打开CD-ROM
lRet = mciSendString("set cdaudio door closed", "", 0, 0) ' 关闭CD-ROM
```
这里通过调用`mciSendString`函数实现了对CD-ROM的操作。
### 七、获取IP地址及主机名
.NET框架还可以用来获取网络信息，例如本地IP地址和主机名。
```vb
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)
```
这里首先通过`System.Net.Dns.GetHostName()`获取了主机名，再通过`System.Net.Dns.GetHostByName()`获取了对应的`IPHostEntry`对象，进而获取IP地址和主机名。
### 八、使用WMI获取系统信息
.NET还支持使用Windows Management Instrumentation (WMI)来查询系统信息。
```vb
Dim opSearch As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
Dim opInfo As ManagementObject
For Each opInfo In opSearch.Get()
ListBox1.Items.Add("Name: " & opInfo("Caption").ToString())
ListBox1.Items.Add("Version: " & opInfo("Version").ToString())
ListBox1.Items.Add("Manufacturer: " & opInfo("Manufacturer").ToString())
ListBox1.Items.Add("Computername: " & opInfo("CSName").ToString())
ListBox1.Items.Add("WindowsDirectory: " & opInfo("WindowsDirectory").ToString())
Next
```
这里使用了`ManagementObjectSearcher`类来执行WMI查询，从而获取了操作系统的信息，并将其添加到`ListBox`控件中。
在.NET框架下，开发者可以通过多种方式轻松地访问和获取计算机硬件及相关系统信息，这对于开发需要与硬件或系统深度交互的应用程序非常有帮助。
angle40362014-07-24谢谢分享！
