Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0270: SysInfo-Control Demo

 von 

Beschreibung 

Tja und da gibst es noch das FindelKind SysInfo. Es ist vielleicht bereits etwas betagt und bietet teilweise überholte Funktionen. Besitzt aber hervorragende Möglichkeiten etwas über die Energieversorgung eines Rechners zu erfahren. Darüberhinaus sind einige nützliche Events verfügbar, wie zum Beispiel das bei Änderung der Systemzeit.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [2,65 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
' Die Komponente ' (SYSINFO.OCX)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Systeminfosteuerelement "SysInfo1"
' Steuerelement: Beschriftungsfeld "Label27"
' Steuerelement: Beschriftungsfeld "Label12"
' Steuerelement: Beschriftungsfeld "Label26"
' Steuerelement: Beschriftungsfeld "Label25"
' Steuerelement: Beschriftungsfeld "Label24"
' Steuerelement: Beschriftungsfeld "Label22"
' Steuerelement: Beschriftungsfeld "Label21"
' Steuerelement: Beschriftungsfeld "Label20"
' Steuerelement: Beschriftungsfeld "Label19"
' Steuerelement: Beschriftungsfeld "Label18"
' Steuerelement: Beschriftungsfeld "Label8"
' Steuerelement: Beschriftungsfeld "Label17"
' Steuerelement: Beschriftungsfeld "Label13"
' Steuerelement: Beschriftungsfeld "Label11"
' Steuerelement: Beschriftungsfeld "Label10"
' Steuerelement: Beschriftungsfeld "Label9"
' Steuerelement: Beschriftungsfeld "Label7"
' Steuerelement: Beschriftungsfeld "Label6"
' Steuerelement: Beschriftungsfeld "Label5"
' Steuerelement: Beschriftungsfeld "Label4"
' Steuerelement: Beschriftungsfeld "Label3"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label1"
' Steuerelement: Beschriftungsfeld "Label14"
' Steuerelement: Beschriftungsfeld "Label15"
' Steuerelement: Beschriftungsfeld "Label16"
' Steuerelement: Beschriftungsfeld "Label23"

Option Explicit

Private Sub Form_Load()
  Call GetSysInfo
End Sub

Private Sub GetSysInfo()
  Dim x&, aa$
  
    With SysInfo1
      Label1.Caption = .OSBuild
      Label2.Caption = .OSVersion
      
      x = .OSPlatform
      Select Case x
        Case 0: aa = "Win32s"
        Case 1: aa = "Windows 95"
        Case 2: aa = "Windows NT"
      End Select
      Label3.Caption = aa
      
      Label4.Caption = .ScrollBarSize / Screen.TwipsPerPixelX
      
      Label5.Caption = .WorkAreaLeft / Screen.TwipsPerPixelX
      Label6.Caption = .WorkAreaTop / Screen.TwipsPerPixelY
      Label7.Caption = .WorkAreaWidth / Screen.TwipsPerPixelX
      Label8.Caption = .WorkAreaHeight / Screen.TwipsPerPixelY
  
      x = .ACStatus
      Select Case x
        Case 0: aa = "nicht mit Netzspannung"
        Case 1: aa = "mit Netzspannung"
        Case 255: aa = "Netzstromversorgung unbekannt"
      End Select
      Label9.Caption = aa
  
      x = .BatteryFullTime
      If x = -1 Then
        Label10.Caption = "Nicht bekannt"
      Else
        Label10.Caption = x & " sec."
      End If
  
      x = .BatteryLifePercent
      If x <= 100 Then
        Label11.Caption = x & "%"
      Else
        Label11.Caption = "Unbekannt"
      End If
      
      x = .BatteryLifeTime
      If x = -1 Then
        Label12.Caption = "Nicht bekannt"
      Else
        Label12.Caption = x & " sec."
      End If
      
      x = .BatteryStatus
      Select Case x
        Case 1: aa = "Batterieladung hoch"
        Case 2: aa = "Batterieladung niedrig"
        Case 4: aa = "Batterieladung kritisch"
        Case 8: aa = "Batterie wird geladen"
        Case 128: aa = "Keine Batterie vorhanden"
        Case 255: aa = "Unbekannt"
      End Select
      Label13.Caption = aa
  
    End With
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 2 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Martin Wagner am 06.10.2003 um 15:24

Ich verwende Windows ME und das Programm meint Windows 95 ..??

Kommentar von JoWi am 05.05.2002 um 16:29

Betagt ist gar kein Ausdruck ;-)
Warnung:
Die Windowsversionen sind, wie ihr sehen könnt nur auf "Win95" "Win 32s" und "WinNT" begrenzt, als für diese zwecke besser einen anderen Tipp nutzen!