vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Sch?tzen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück
Rubrik: System/Windows   |   VB-Versionen: VB2010 - VB201515.01.21
Prüfe die installierte Windows 10 Version

Mit diesen Code können Sie einfach herausfinden, welche Windows 10 Version installiert ist.

Autor:   Samir Ben KhederBewertung:     [ Jetzt bewerten ]Views:  2.055 
www.bk-software.deSystem:  Vista, Win7, Win8, Win10kein Beispielprojekt 

Mit diesen Code können Sie einfach herausfinden, welche Windows 10 Version installiert ist.

Leider konnte ich diesen Code nicht auf allen Versionen testen.
Getestet sind 20H2, 2004, 1909, 1903.

Public Function IstWindows10() As Boolean
  Return (My.Computer.Info.OSFullName.ToString).Contains("Windows 10")
End Function
Public Sub CheckeWindows10Build()
  If Not IstWindows10() Then Exit Sub
 
  Dim winbuild As Integer = 0
  Try
    Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWAREMicrosoftWindows NTCurrentVersion")
    winbuild = RegKey.GetValue("CurrentBuild")
  Catch
  End Try
 
  Select Case winbuild
    Case 19042
      MessageBox.Show("20H2 - 19042.572 October 2020 Update October 20, 2020")
    Case 19041
      MessageBox.Show("2004 - 19041.264 May 2020 Update May 27, 2020")
    Case 18363
      MessageBox.Show("1909 - 18363.476 November 2019 Update November 12, 2019")
    Case 18362
      MessageBox.Show("1903 - 18362.116 May 2019 Update May 21, 2019")
    Case 17763
      MessageBox.Show("1809 - 17763.1 October 2018 Update October 2, 2018 November 13, 2018 (re-released)")
    Case 17134
      MessageBox.Show("1803 - 17134.1 April 2018 Update April 30, 2018")
    Case 16299
      MessageBox.Show("1709 - 16299.15 Fall Creators Update October 17, 2017")
    Case 15063
      MessageBox.Show("1703 - 15063 Creators Update April 5, 2017")
    Case 14393
      MessageBox.Show("1607 - 14393 Anniversary Update August 2, 2016")
    Case 10586
      MessageBox.Show("1511 - 10586 November Update November 10, 2015")
    Case 10240
      MessageBox.Show("1507 - 10240 Threshold 1 July 29, 2015")
    Case Else
      MessageBox.Show("Ihre Windows 10 Version ist noch unbekannt!")
  End Select
 
  ' Quelle:
  ' https://www.tenforums.com/tutorials/23975-find-windows-10-build-number.html
End Sub

Dieser Tipp wurde bereits 2.055 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel