1 tane buton ekleyin ve aşağıdaki kod yapıştırın !
Kod :
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Private Sub Command1_Click()
Dim bellek As MEMORYSTATUS
GlobalMemoryStatus bellek
Print "Toplam Bellek Alanı: " & bellek.dwTotalPhys / 1024 / 1024
Print "Kullanılabilir Bellek Alanı: " & bellek.dwAvailPhys
Print "Alan Kullanımı : %" & bellek.dwMemoryLoad
Print "Toplam Virtual Memory : " & bellek.dwTotalVirtual
Print "Kullanılabilir Virtual Memory : " & bellek.dwAvailVirtual
End Sub
==========bukadar===============
Emeğe Saygı
Kod :
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Private Sub Command1_Click()
Dim bellek As MEMORYSTATUS
GlobalMemoryStatus bellek
Print "Toplam Bellek Alanı: " & bellek.dwTotalPhys / 1024 / 1024
Print "Kullanılabilir Bellek Alanı: " & bellek.dwAvailPhys
Print "Alan Kullanımı : %" & bellek.dwMemoryLoad
Print "Toplam Virtual Memory : " & bellek.dwTotalVirtual
Print "Kullanılabilir Virtual Memory : " & bellek.dwAvailVirtual
End Sub
==========bukadar===============
Emeğe Saygı
