Rubrik: System/Windows | VB-Versionen: VB2010 - VB2015 | 15.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 Kheder | Bewertung: | Views: 4.164 |
www.bk-software.de | System: Win7, Win8, Win10, Win11 | kein 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