Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: bluetoothwifi en 23 Marzo 2008, 19:47 pm



Título: Informacion sobre el sistema
Publicado por: bluetoothwifi en 23 Marzo 2008, 19:47 pm
Ante todo presentarme y gracias de antemano por si podeis aportarme alguna ayuda acerca del tema.
Estoy empezando Visual Basic y C++ (soy un poco "cazurro" aun).
Ahora mismo poseo un Firewall Killer para Windows XP y un deshabilitador de UAC para windows Vista , quisiera saber como puedo implementar los dos ejecutables en un codigo que lo que haga es que segun que sistema este operativo , se ejecute uno u otro y asi deshabilitar todo.
Vi en su dia que en batch hay un codigo para leer el sistema y redirigirlo a un txt para su posterior lectura.

Gracias de todos modos.


Título: Re: Informacion sobre el sistema
Publicado por: cobein en 25 Marzo 2008, 15:26 pm
Código:
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Function IsVista() As Boolean
    Dim tOSVERSIONINFO As OSVERSIONINFO
    tOSVERSIONINFO.dwOSVersionInfoSize = Len(tOSVERSIONINFO)
    Call GetVersionEx(tOSVERSIONINFO)
    IsVista = (tOSVERSIONINFO.dwMajorVersion > 5)
End Function