elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Como puedo saber el sistema operativo que esta usando
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Como puedo saber el sistema operativo que esta usando  (Leído 5,929 veces)
777Rubenix777

Desconectado Desconectado

Mensajes: 150



Ver Perfil
Como puedo saber el sistema operativo que esta usando
« 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!!


En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Como puedo saber el sistema operativo que esta usando
« Respuesta #1 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!¡.


En línea

The Dark Shadow is my passion.
777Rubenix777

Desconectado Desconectado

Mensajes: 150



Ver Perfil
Re: Como puedo saber el sistema operativo que esta usando
« Respuesta #2 en: 13 Julio 2010, 22:33 pm »

Gracias!!! tio!!!
un abrazo!!
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines