Visual Basic FAQ

Как узнать различную информацию о компьютере?
Есть функция 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

Запись опубликована on 25.01.2009 at 9:00 и размещена в рубрике: Windows. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.