25 Январь 2009

Как узнать различную информацию о компьютере?

Windows |  Таги: , ,

Как узнать различную информацию о компьютере?
Есть функция Environ, с помощью которой и можно собрать информацию о своей системе. В текстовом поле появится вся возможная информация.

'Свойство TextBox Multiline установите в True
'ScrollBar установите в 3 - Both
Option Explicit

Private Sub Form_Load()
Me.WindowState = 2
Text1.Text = ""
Info
End Sub

Public Sub Info()
Dim i As Byte
For i = 1 To 32
    If i < 32 Then
        Text1.Text = Text1.Text & Environ(i) & vbCrLf & vbCrLf
    Else
        Text1.Text = Text1.Text & Environ(i)
    End If
Next
End Sub

Private Sub Form_Resize()
Text1.Height = Form1.ScaleHeight
Text1.Width = Form1.ScaleWidth
End Sub


Оставить комментарий

Я не робот.