Visitante
Ingresar
Registrarse
Underc0de - Hacking y seguridad informática
Menu
Inicio
Website
Blog
Buscar
Calendario
Ingresar
Registrarse
Underc0de - Hacking y seguridad informática
»
Programación General
»
C# - VB.NET
[VB.NET] NativeOsVersion
Imprimir
Páginas: [
1
]
Ir Abajo
« anterior
próximo »
[VB.NET] NativeOsVersion
0 Respuestas
2470 Vistas
0 Usuarios y 1 Visitante están viendo este tema.
fudmario
Underc0der
Mensajes: 198
Actividad:
0%
Reputación 13
Skype: fudmario
[VB.NET] NativeOsVersion
en: Enero 12, 2017, 08:00:25 pm
Alternativa a
Environment.OsVersion.Version
, para aplicaciones que no se han manifestado para Windows 8.1 o Windows 10.
Código: vb.net
<
DllImport
(
"Ntdll.dll"
, CharSet:
=
CharSet
.
Unicode
, ExactSpelling:
=
True
)
>
Friend
Shared
Function
RtlGetVersion
(
<
[
In
]
, Out
>
ByVal
osversion
As
RtlOsVersionInfoExW
)
As
Integer
End
Function
<
StructLayout
(
LayoutKind
.
Sequential
)
>
Public
Class
RtlOsVersionInfoExW
Public
dwOSVersionInfoSize
As
UInt32
Public
dwMajorVersion
As
UInt32
Public
dwMinorVersion
As
UInt32
Public
dwBuildNumber
As
UInt32
Public
dwPlataformId
As
UInt32
<
MarshalAs
(
UnmanagedType
.
ByValTStr
, SizeConst:
=
128
)
>
Public
szCSDVersion
As
String
Public
wServicePackMajor
As
UInt16
Public
wServicePackMinor
As
UInt16
Public
wSuiteMask
As
UInt16
Public
bProductType
As
Byte
Public
bReserved
As
Byte
End
Class
Public
Function
NativeOsVersion
(
)
As
Version
Dim
osVersionInfo
As
New
RtlOsVersionInfoExW
(
)
osVersionInfo
.
dwOSVersionInfoSize
=
Marshal
.
SizeOf
(
GetType
(
RtlOsVersionInfoExW
)
)
Dim
status
As
Integer
=
RtlGetVersion
(
osVersionInfo
)
If
status
<>
0
Then
' Throw New Win32Exception(RtlNtStatusToDosError(status))
Return
Environment
.
OSVersion
.
Version
End
If
Return
New
Version
(
osVersionInfo
.
dwMajorVersion
,
osVersionInfo
.
dwMinorVersion
,
osVersionInfo
.
dwBuildNumber
)
End
Function
En línea
Imprimir
Páginas: [
1
]
Ir Arriba
« anterior
próximo »
Sponsors
Zerpens
Kali-Linux
Club Hacker
ANTRAX-LABS
Ingresar
×
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
. ¿Perdiste tu
email de activación
?
1 Hora
1 Día
1 Semana
1 Mes
Siempre
Ingresar con nombre de usuario, contraseña y duración de la sesión