نوشته شده توسط
ROSTAM2
سلام
من برای تشخیص راه انداز سیستم ویندوز این کد رو نوشتم اگر ویندوزتون متفاوت از 10 و 11 هست تست کنید ببینید دستور کامل هست یا نه؟
با تشکر....
Enum OperatingSystems
Unknown = -1
WindowsXP = 0
Windows7 = 1
Windows8 = 2
Windows10 = 3
Windows11 = 4
End Enum
Function OperatingSystem() As OperatingSystems
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 Function
نحوه بکارگیری برای دستور شرطی
If Not OperatingSystem() = OperatingSystems.Windows10 Then
Me.SelectedButton.ForeColor = Color.MidnightBlue
End If
یا:
Select Case OperatingSystem()
Case OperatingSystems.Unknown
Case OperatingSystems.Windows10
Case OperatingSystems.Windows11
Case OperatingSystems.Windows7
Case OperatingSystems.Windows8
Case OperatingSystems.WindowsXP
End Select
MsgBox(OperatingSystem.ToString)