Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: apoeti en 24 Julio 2012, 22:35 pm

Título: Sysinfo.ocx
Publicado por: apoeti en 24 Julio 2012, 22:35 pm

¡Hola! Esta librería tiene como fin informar sobre el sistema sobre el que se ejecuta el programa que la contiene. Una de sus opciones, osplatform, dice sobre qué sistema operativo concreto de Microsoft se ejecuta. Mi pregunta es ¿Hay alguna versión actualizada de este .ocx que diga también si el sistema operativo es Windows Vista o 7? (La que tengo solo dice hasta XP)

Saludos.

Título: Re: Sysinfo.ocx
Publicado por: Dessa en 25 Julio 2012, 00:12 am

Hola, un provisorio. ?

Código:


'KERNEL32
Private Declare Function GetVersion Lib "KERNEL32" () As Long


Private Sub Form_Load()
  MsgBox (GetVersion And &HFF) & "." & (GetVersion() And &HFF00&) \ &H100
End Sub

Título: Re: Sysinfo.ocx
Publicado por: oads en 1 Agosto 2012, 16:38 pm

No eso no tiene mucho que ver
utiliza la llamadas a las DLL
IMPROVISA

PRIVATE FUNCTION [NOMBRE DE LA FUNCION] LIB [NOMBRE DE LA DLL][ESTRUCTURA DE LA FUNCION]

Y MIRA EL VISOR DE API DE VB 6.0
(http://www.monografias.com/trabajos81/tutorial-programacion-avanzada-visual-basic-6-0/image039.jpg)