在VB中API函数获得系统信息

Question

有个函数很容易被忽略
Private Sub Form_Load()
  Dim i As Integer
  For i = 1 To 50
    list1.AddItem Environ(i)
  Next
End Sub
看看得到什么

Answer 1

得到当前用户的用户名,用的是API函数 GetComputerName？？GetComputerName是计算机名吧。

Answer 2

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long