Start / Tipps / VB 5/6-Tipp 0270: SysInfo-Control Demo
 
Startseite Up-/Download Tutorials Club Das Team
Rubriken Foren Bücher Tips 'n Tricks Suche


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


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 1 Verwendete API-Aufrufe:
keine
Download des Beispielprojektes Download des Beispielprojektes [2,54 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 --------------
Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?
Ja, funktioniert! Windows-Version:
Nein, funktioniert nicht bei mir! VB-Version:

Ihre Meinung

Falls Sie Fragen zu oder Erfahrungen mit diesem Tipp haben, dann sollten Sie diese hier posten. Für alles weitere melden Sie sich bitte in einem zum Thema passendem Forum.

Falls Sie in ihren Kommentar Quellcode einbinden wollen, verwenden Sie bitte Pseudotags: Quellcode für VB5/VB6 wird durch ein vorangestelltes [code] markiert und durch [/code] abgeschlossen.

Ihr Name:   
Ihre E-Mailadresse:   
 
Bitte folgende Kontrollnummer eingeben: 2457
Kontrolle:   
 
Ihre Frage/Ihr Kommentar:
Ja, ich möchte weitere Beiträge per E-Mail erhalten
Von Martin Wagner am 06.10.2003 um 15:24
Ich verwende Windows ME und das Programm meint Windows 95 ..??
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!

Erstellt: 15.06.2003
Aktualisierung: 15.06.2003
  Autor: ActiveVB
E-Mail: Tipps@ActiveVB.de



Copyright © 1998-2010 by ActiveVB
Alle Rechte vorbehalten.