VisualBasic Memoria disponible

Mensaje por **h0ax Verified** » Sab, 11 Abr 2026, 21:19

Este código de Visual Basic 6.0 pide información al sistema acerca de cuánta memoria dispone. Para el mismo solo se requiere de un formulario y un control de tiempo, el cual cada un intervalo determinado por el usuario, refrescará el contenido de la barra de títulos del programa.
Además se le ha dado la propiedad al modo en que permanece constantemente minimizada, ya que el valor mostrado se representará en la barra de título y este puede verse en la barra de tareas de Windows. Este código sirve también para ilustar de mejor forma el artículo sobre las estructuras.

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"
If Me.WindowState = 0 Then Me.WindowState = 1
End Sub

gMemoria disponible.zip: (2.71 KiB) Descargado 7 veces

gMemoria disponible.zip: (2.71 KiB) Descargado 7 veces