RAM bellek hakkında bilgi alma

Başlatan BlueCode, 25 Nisan 2011, 03:34:53

BlueCode

1 adet textbox
1 adet button
dwMemoryLoad= Kullanılan Bellek Miktarı
ullTotalphys=toplam Bellek Miktarı
ullAvailphys=Boş bellek Miktarı
ullTotalPageFile=Toplam Page File Miktarı
ullAvailPageFile=Boş Page File Miktarı
ullTotalVirtual= Toplam Sanal Bellek Miktarı
ullAvailVirtual= Boş Sanal Bellek Miktarı

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport(\"Kernel32.dll\", CharSet:=CharSet.Auto, SetLastError:=True)> Public Shared Function GlobalMemoryStatusEx(ByRef IpBuffer As MEMORYSTATUEX) As <MarshalAs(UnmanagedType.Bool)> Boolean

    End Function
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> Public Structure MEMORYSTATUEX
        Public dwLength As UInteger
        Public dwMemoryLoad As UInteger
        Public ullTotalPhys As ULong
        Public ullAvailPhys As ULong
        Public ullTotalPageFile As ULong
        Public ullAvailPageFile As ULong
        Public ullTotalVirtual As ULong
        Public ullAvailVirtual As ULong
        Public ullAvailExtendedVirtual As ULong
    End Structure
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hafıza As New MEMORYSTATUEX()
        hafıza.dwLength = 64
        Dim b As Boolean = GlobalMemoryStatusEx(hafıza)
        TextBox1.Text = TextBox1.Text + \"Kullanılan Bellek Mikterı= \" & (hafıza.dwMemoryLoad) & vbCrLf
        TextBox1.Text = TextBox1.Text + \"Toplam Bellek Miktarı= \" & (hafıza.ullTotalPhys  (1024 * 1024)) & \" mb\" & vbCrLf
        TextBox1.Text = TextBox1.Text + \"Boş Bellek Miktarı= \" & (hafıza.ullAvailPhys  (1024 * 1024)) & \" mb\" & vbCrLf
        TextBox1.Text = TextBox1.Text + \"Toplam Page File Miktarı= \" & (hafıza.ullTotalPageFile  (1024 * 1024)) & \" mb\" & vbCrLf
        TextBox1.Text = TextBox1.Text + \"Boş Page File= \" & (hafıza.ullAvailPageFile  (1024 * 1024)) & \" mb\" & vbCrLf
        TextBox1.Text = TextBox1.Text + \"Toplam Sanal Bellek Miktarı= \" & (hafıza.ullTotalVirtual  (1024 * 1024)) & \" mb\" & vbCrLf
        TextBox1.Text = TextBox1.Text + \"Boş Sanal Bellek Miktarı= \" & (hafıza.ullAvailVirtual  (1024 * 1024)) & \" mb\"
    End Sub
End Class

Hızlı Yanıt

Not: Bu konu bir moderatör tarafından onaylanmadan görüntülenmeyecektir.

Adı:
E-Posta:
Doğrulama:
Lütfen bu kutuyu boş bırakın:
IRFP250 Nedir:
kısayollar: göndermek için alt+s veya önizleme yapmak için alt+p'ye basın