این سورس کجاش ایراد داره اررور میده ؟ تشخیص سیستم عامل

[elimiz]

سلام دوستان عزیز
توی کد زیر چطوری میشه وقتی مقدار text1 برابر بود با Windows_NT. مقدار text2 برابر بشه با xp و در غیر اینصورت مقدارش بشه seven
ممنون میشم راهنمایی کنید
ضروری نیاز دارم



Private Sub Command1_Click()
If Text1.Text = Windows_NT Then
Text2.Text = "xp"
Else
Text2.Text = "seven"
End Sub

Private Sub Form_Load()
Text1.Text = Environ("OS")
End Sub

[vb6_man]

به این کد تغییرش بده


Private Sub Command1_Click()

Text1.Text = Environ("OS")

If Text1.Text = "Windows_NT" Then
Text2.Text = "xp"
Else
Text2.Text = "seven"
End If


End Sub

[M.T.P]

شاید این کد جواب سوال شما نباشه ، اما برای اینکه بدونیم برنامه تو چه ویندوزی اجرا شده...

کد ماژول:


Option Explicit

Private Declare Function GetVersionExA Lib "kernel32" _
(lpVersionInformation As OSVERSIONINFO) As Integer

Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Public Function GetOSVersion() As String
Dim osinfo As OSVERSIONINFO
Dim retvalue As Integer
Dim StrRet As String

osinfo.dwOSVersionInfoSize = 148
osinfo.szCSDVersion = Space$(128)
retvalue = GetVersionExA(osinfo)

With osinfo
Select Case .dwPlatformId
Case 1
Select Case .dwMinorVersion
Case 0
StrRet = "Windows 95"
Case 10
StrRet = "Windows 98"
Case 90
StrRet = "Windows Millennium"
End Select
Case 2
Select Case .dwMajorVersion
Case 3
StrRet = "Windows NT 3.51"
Case 4
StrRet = "Windows NT 4.0"
Case 5
If .dwMinorVersion = 0 Then
StrRet = "Windows 2000"
Else
StrRet = "Windows XP"
End If
Case 6
If .dwMinorVersion = 0 Then
StrRet = "Windows Vista"
Else
StrRet = "Windows 7"
End If
End Select
Case Else
StrRet = "Failed"
End Select
End With

GetOSVersion = StrRet
End Function

استفاده:


MsgBox GetOSVersion()