Bonjour,
est-ce qu'il existe une fonction qui détermine quelle est la version de l'OS, par exemple faire la différence entre vista et XP, mais également entre un XP version us et version fr
Bonjour,
est-ce qu'il existe une fonction qui détermine quelle est la version de l'OS, par exemple faire la différence entre vista et XP, mais également entre un XP version us et version fr
Biensur !Envoyé par poussin_44
Deux solutions soit si tu es avec VB.NET 2003, tu utilisesN'oublit pas de faire l'import system.environment
Code : Sélectionner tout - Visualiser dans une fenêtre à part Environment.OSVersion
Sinon en VB.NET 2005, tout est dans l'espace My
merci à toi Aspic
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 Option Strict On Imports System.Environment Module Module1 Private osInfo As OperatingSystem Sub Main() Console.WriteLine(getVersion()) End Sub Public Function getVersion() As String osInfo = OSVersion With osInfo Select Case .Platform Case .Platform.Win32Windows Select Case (.Version.Minor) Case 0 getVersion = "Windows 95" Case 10 If .Version.Revision.ToString() = "2222A" Then getVersion = "Windows 98 Second Edition" Else getVersion = "Windows 98" End If Case 90 getVersion = "Windows Me" End Select Case .Platform.Win32NT Select Case (.Version.Major) Case 3 getVersion = "Windows NT 3.51" Case 4 getVersion = "Windows NT 4.0" Case 5 Select Case (.Version.Minor) Case 0 getVersion = "Windows 2000" Case 1 getVersion = "Windows XP" Case 2 getVersion = "Windows Server 2003" End Select Case Else getVersion = "Failed" End Select End Select End With End Function End Module
Merci à toi pour le code, sympa pour les autres membres![]()
Excusez moi de réouvrir ce post, mais quel serai le code si l'on rajoutait "Windows Vista" ?
Je ne sais pas si la fonction prends en compte Windows Vista...Envoyé par smyley
Pour prendre en compte Vista, il faut rajouter un "case 6" pour la plateforme NT :Envoyé par smyley
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54 Option Strict On Imports System.Environment Module Module1 Private osInfo As OperatingSystem Sub Main() Console.WriteLine(getVersion()) End Sub Public Function getVersion() As String osInfo = OSVersion With osInfo Select Case .Platform Case .Platform.Win32Windows Select Case (.Version.Minor) Case 0 getVersion = "Windows 95" Case 10 If .Version.Revision.ToString() = "2222A" Then getVersion = "Windows 98 Second Edition" Else getVersion = "Windows 98" End If Case 90 getVersion = "Windows Me" End Select Case .Platform.Win32NT Select Case (.Version.Major) Case 3 getVersion = "Windows NT 3.51" Case 4 getVersion = "Windows NT 4.0" Case 5 Select Case (.Version.Minor) Case 0 getVersion = "Windows 2000" Case 1 getVersion = "Windows XP" Case 2 getVersion = "Windows Server 2003" End Select Case 6 getVersion = "Windows Vista" Case Else getVersion = "Failed" End Select End Select End With End Function End Module
je ne sais pas encore dans quoi, mais je suis sur que ce code me sera très utile
![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager