afficher le système d'exploitationRésolu

Question

salut les gars 
je veux que mon programme m'affiche le système sur le que je travaille 
je veux dire xp , vista ou seven 
et merci d avance

cs_ghuysmans99 · Accepted Answer

Utilise l'API GetVersionEx ...

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

cs_ShayW · Answer

Salut

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      '  Maintenance string for PSS usage
End Type
Private Function getverswindows() As String
Dim version As String
Dim os As OSVERSIONINFO ' receives version information
Dim retval As Long ' return value
os.dwOSVersionInfoSize = Len(os) ' set the size of the structure
retval = GetVersionEx(os) ' read Windows's version information
version = os.dwPlatformId & "." & os.dwMajorVersion & "." & os.dwMinorVersion
Select Case version
Case "1.4.0"
GetWindowsVersion = "Win 95"
Case "1.4.10"
GetWindowsVersion = "Win 98"
Case "1.4.98"
GetWindowsVersion = "Win ME"
Case "2.3.51"
GetWindowsVersion = "Win NT 3"
Case "2.4.0"
GetWindowsVersion = "Win NT 4"
Case "2.5.0"
GetWindowsVersion = "Win 2000"
Case "2.5.1"
GetWindowsVersion = "Win XP"
Case "2.6.0"
GetWindowsVersion = "Win Vista"
Case "2.6.1"
GetWindowsVersion = "Win Seven"
Case Else
GetWindowsVersion = "Unknown"

End Select

End Function

le1scorpion1noir · Answer

un petit coup  de mai stp jai pas pu récupérer le résultat dans un textbox 
Text1.Text = getverswindows(GetWindowsVersion)
lol je suis q'un débutant

cs_ghuysmans99 · Answer

Retire ce que tu as mis entre parenthèses et ça ira . Je vois pas pourquoi t'as mis quelque chose là mais bon ...

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

le1scorpion1noir · Answer

j'ai déjà essayer mai le problème c'est qu'il m affiche un textbox vide  
c'est pour sa que j'ai écrit sa 
et quand je met la function dans un module sa m'écrit
sub or function not defined

cs_ghuysmans99 · Answer

@ShayW : Ca t'arrive de tester ce que tu postes ou de dire que tu ne l'as pas fait ?

Copie ça (via le textarea en dessous) dans un module nommé modWinVer et dans ton form, fais Me.tonChamp.Text = modWinVer.GetWindowsVersion(). Avec un peu de chances ça devrait aller maintenant 

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

le1scorpion1noir · Answer

merci bcp pour ton aide 
non je lai essayer avant de poster ma réponse normalement sa me met text1 dans le champ mai la il me le met vide je veux dire avec sa 
Text1.Text = getverswindows() 
je te met ma réponse bientôt  pour ta dernière poste

le1scorpion1noir · Answer

c'est il fonctionne bien avec ton code 
merci bcp bcp

cs_ShayW · Answer

ghuysmans99

Je teste toujours le code que je poste meme s'il
n'est pas toujours de moi

le1scorpion1noir · Answer

ton code fonctionne mai j'ai pas pu faire l'appel

cs_ShayW · Answer

Salut
J'avoue j'ai oublié de poster une ligne
voila tout le code 

 Private Function getverswindows() As String
Dim version As String
Dim os As OSVERSIONINFO ' receives version information
Dim retval As Long ' return value
os.dwOSVersionInfoSize = Len(os) ' set the size of the structure
retval = GetVersionEx(os) ' read Windows's version information
version = os.dwPlatformId & "." & os.dwMajorVersion & "." & os.dwMinorVersion
Select Case version
Case "1.4.0"
GetWindowsVersion = "Win 95"
Case "1.4.10"
GetWindowsVersion = "Win 98"
Case "1.4.98"
GetWindowsVersion = "Win ME"
Case "2.3.51"
GetWindowsVersion = "Win NT 3"
Case "2.4.0"
GetWindowsVersion = "Win NT 4"
Case "2.5.0"
GetWindowsVersion = "Win 2000"
Case "2.5.1"
GetWindowsVersion = "Win XP"
Case "2.6.0"
GetWindowsVersion = "Win Vista"
Case "2.6.1"
GetWindowsVersion = "Win Seven"
Case Else
GetWindowsVersion = "Unknown"
End Select
getverswindows = GetWindowsVersion
End Function

dim ver as string
ver = getverswindows()

le1scorpion1noir · Answer

merci bcp

Afficher le système d'exploitation

12 réponses

Votre réponse

Discussions similaires