Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: 777Rubenix777 en 13 Julio 2010, 22:04 pm



Título: Como puedo saber el sistema operativo que esta usando
Publicado por: 777Rubenix777 en 13 Julio 2010, 22:04 pm
Esque necesito saber como mostrar en un msgbox el sistema operativo utilizado en vb 6.
El problema esk e visto codigos pero solo muestran si es como muxo un XP no hay ningun codigo que sea asta 7.. y QUERIA saber como añadir a esos codigos el vista y el win7
gracias!!!
un saludo!!


Título: Re: Como puedo saber el sistema operativo que esta usando
Publicado por: BlackZeroX (Astaroth) en 13 Julio 2010, 22:31 pm
Código
  1.  
  2. option explicit
  3.  
  4. private Declare Function RtlGetVersion Lib "NTDLL" (ByRef lpVersionInformation As Long) As Long
  5. Public Function NativeGetVersion() As String
  6.    Dim tOSVw(&H54)     As Long
  7.    tOSVw(0) = &H54 * &H4
  8.    Call RtlGetVersion(tOSVw(0))
  9.    NativeGetVersion = Join(Array(tOSVw(4), tOSVw(1), tOSVw(2)), ".")
  10. End Function
  11.  
  12. Public Function VersionToName(ByRef sVersion As String) As String
  13.    Select Case sVersion
  14.        Case "1.0.0":     VersionToName = "Windows 95"
  15.        Case "1.1.0":     VersionToName = "Windows 98"
  16.        Case "1.9.0":     VersionToName = "Windows Millenium"
  17.        Case "2.3.0":     VersionToName = "Windows NT 3.51"
  18.        Case "2.4.0":     VersionToName = "Windows NT 4.0"
  19.        Case "2.5.0":     VersionToName = "Windows 2000"
  20.        Case "2.5.1":     VersionToName = "Windows XP"
  21.        Case "2.5.3":     VersionToName = "Windows 2003 (SERVER)"
  22.        Case "2.6.0":     VersionToName = "Windows Vista"
  23.        Case "2.6.1":     VersionToName = "Windows 7"
  24.        Case Else:        VersionToName = "Unknown"
  25.    End Select
  26. End Function
  27.  
  28.  

Ejemplo:

Código
  1.  
  2.    Call MsgBox(VersionToName(NativeGetVersion))
  3.  
  4.  

Sangriento Infierno Lunar!¡.


Título: Re: Como puedo saber el sistema operativo que esta usando
Publicado por: 777Rubenix777 en 13 Julio 2010, 22:33 pm
Gracias!!! tio!!!
un abrazo!!