用最简单的代码获取系统信息包括(系统盘符,系统目录,用户名,系统引导等26项配置信息!!)
Option Explicit
'设置Text1的MultiLine属性为True
'设置Text1的ScrollBars属性为 2 - Vertical
Private Sub Form_Load()
Dim i As Integer
Dim txt As String
For i = 1 To 10000
If Environ(i) <> "" Then
txt = txt & Environ(i) & vbCrLf
Else
Exit For
End If
Next i
Text1.Text = txt
End Sub