تشخیص راه انداز سیستم (Operating System)

[ROSTAM2]

ازونجایی که کلاسی با نام OperatingSystem داریم پس تابع رو به Property (خصوصیت) تغییر دادم و نامش رو هم گذاشتم SystemOperator:

    Public ReadOnly Property SystemOperator() As OperatingSystems

        Get

            Dim OSN As String = "Microsoft Windows"

            If My.Computer.Info.OSFullName.StartsWith(OSN + " XP") Then

                Return OperatingSystems.WindowsXP

            ElseIf My.Computer.Info.OSFullName.StartsWith(OSN + " 7") Then

                Return OperatingSystems.Windows7

            ElseIf My.Computer.Info.OSFullName.StartsWith(OSN + " 8") Then

                Return OperatingSystems.Windows8

            ElseIf My.Computer.Info.OSFullName.StartsWith(OSN + " 10") Then

                Return OperatingSystems.Windows10

            ElseIf My.Computer.Info.OSFullName.StartsWith(OSN + " 11") Then

                Return OperatingSystems.Windows11

            Else

                Return OperatingSystems.Unknown

            End If

        End Get

    End Property