Nuestro xNova HackCuba siempre esta disponible para todos aquellos que quieran jugar https://xnova.hackcuba.net
En foro solo se deja sobre el Proyecto BlackHat los codigos, tips y guias menos importantes todo lo principal se encuentra en nuestra web principal https://hackcuba.net

Cantidad de memoria disponible

Responder
Avatar de Usuario
h0ax Verified
Administrador del Sitio
Mensajes: 72
Registrado: Dom, 01 Mar 2026, 16:33
Contactar:
Contactar h0ax

Cantidad de memoria disponible

Mensaje por h0ax Verified »

Visual Basic

Código: Seleccionar todo

Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Sub Timer1_Timer()
Dim MemStat As MEMORYSTATUS
GlobalMemoryStatus MemStat
Me.Caption = Str$(MemStat.dwAvailPhys / 1048576) & "  Mb  Libres"
End Sub
La lógica es el lenguaje del universo, el código es su traducción.
Arriba
Responder

Volver a “Codigos de BlackHat”