Windows系统将很多重要的信息(比如计算机名和用户名)存储在环境变量中。访问这些变量来获取这些信息是很多程序中迟早要用到的功能,在这篇文章中,我将向您介绍如何使用vb.NET来获取环境变量的信息。
为了获取环境变量的信息,您需要获取相应的环境变量数值,在vb.NET中,您可以使用System.Environment类中的两个方法GetEnvironmentVariable和GetEnvironmentVariables。以下的例子为您展示了如何使用这些与环境变量相关的方法。
例1
在列表A中,我定义了一个名为strComputerName的变量,用它来存储计算机的名称,我使用了Environment类中的GetEnvironmentVariable方法来获取所需要的环境变量信息,这个例子的结果是"COMPUTERNAME"。
Private Sub GetEnvironmentVariable()
Dim strComputerName As String
strComputerName = Environment.GetEnvironmentVariable("COMPUTERNAME")
MessageBox.Show(strComputerName)
End Sub
列表A
例2
在这个例子中,我向表单中添加了一个列表控件ListBox1,参见列表B,我将变量dictEntry定义为一个DictionaryEntry,然后我我使用了Environment类中的GetEnvironmentVariable方法创建了一个循环来遍历所有的环境变量。对每一个条目,我都在列表框中添加一行写入条目的键值,当运行这些代码的时候,您会看到图1中的结果。
Private Sub GetEnvironmentVariables()
Dim dictEntry As System.Collections.DictionaryEntry
ForEach dictEntry In Environment.GetEnvironmentVariables()
ListBox1.Items.Add("Key: " & (dictEntry.Key.ToString()) & " Value: " & _
(dictEntry.Value.ToString()))
Next
End Sub
列表B
责任编辑:德东