Ram bilgilerini öğrenmek

[Carizmatic]

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As              RamBilgileri)
            Private Type RamBilgileri
            boyut As Long
            yuzderam As Long
            toplamram As Long
            bosram As Long
            End Type
            Private Sub Timer1_Timer()
            Dim bilgiler As RamBilgileri
            GlobalMemoryStatus bilgiler
            Text1.Text = "% " & bilgiler.yuzderam 'yüzde ram kullanımı
            Text2.Text = bilgiler.toplamram / 1024 / 1024 & " MB" 'toplam ram
            Text3.Text = bilgiler.toplamram / 1024 / 1024 - bilgiler.bosram /              1024 / 1024 & " MB" 'kullanılan ram
            Text4.Text = bilgiler.bosram / 1024 / 1024 & " MB" ' boş ram
            End Sub

Bir adet timer ve 4 adet textbox ekleyin, Timerin intervalini 1000 yapın

 

[scorpi0n]

Teşekkürler hocam kod arşivime alıyorum