用最简单的代码获取系统信息包括（系统盘符，系统目录，用户名，系统引导等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

 

发表于 @ 2007年04月24日　12:47:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:sql 锁 | 新一篇:HTML文件中也玩include文件包含