Hej undrar hur man ska göra (om det går) för att få reda på hur mycket av det fysiska minnet som för tillfället används.

Med följande kod kan jag få reda på _hur_ mycket minne jag har

        Dim searchRAM As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMemory")
        Dim MemoryInfo As ManagementObject
        Dim Memory As Long

        For Each MemoryInfo In searchRAM.Get
            Messagebox.show(MemoryInfo("Capacity"))
        Next

http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_perfformatteddata_perfos_memory.asp?frame=true

Performance counters

Tack för länken, men jag får tyvärr inte det att fungera :(

Har testat med <b>("SELECT * FROM Win32_PerfFormattedData_PerfOS_Memory")</b> men får ogiltlig klass. Jag har även testat med <b>("SELECT * FROM Win32_PerfFormattedData")</b> där hittar jag lite, men inte hur mycket minne som används.

Gör jag på fel sätt eller?

Läs;
> he original data source is the PerfOS performance library. The corresponding raw data class is Win32_PerfRawData_PerfOS_Memory

Annars, som jag sa, performance counters

Testade me Win32_PerfRawData_PerfOS_Memory och får fortfarande "Oglitlig klass" :(

> Annars, som jag sa, performance counters
Vad menar du med det? Performance counters?

System.Diagnostics.Performance*

http://www.google.com/search?client=firefox-a&rls=org.mozilla%3Aen-US%3Aofficial_s&hl=en&q=c%23+performance+counter+memory&btnG=Google+Search

Humm, när jag kör med <b>PerformanceCounter("Memory", "Available Bytes")</b> får jag Kategorin hittades inte när jag skriver ut resultatet.

Jag har Imports System.Diagnostics med längst upp i mitt projekt

Vad kan jag ha missat?

Jag fann att det var mycket enkelt:

Messagebox.show("Available Physical Memory: " & My.Computer.Info.AvailablePhysicalMemory.ToString & " bytes")

Messagebox.show("" Available Virtual Memory: " & My.Computer.Info.AvailableVirtualMemory.ToString & " bytes")

Du måste skapa en PerformanceCounter själv.

Som jag tolkar det, inget du gör i koden:

MSDN:
Performance counters should not be created and immediately used.
There is a latency time to enable the counters, they should be created
prior to executing the application that uses the counters.</info>

Mycket enkelt, ja iaf om man kör vb.net 2005. För dom som fortfarande kör vb.net 2003 går att göra följande.

 Dim perf As New PerformanceCounter("Minne", "Tillgängliga byte")
 MsgBox(perf.RawValue / 1024)

Har en knapp med följande kod inuti

Try
            Dim infomem As New PerformanceCounter("Memory", "Available Bytes")
            Messagebox.show(infomem)
        Catch ex As Exception
            MsgBox("Debugg" & Chr(13) & ex.Message)
        End Try

> Men jag vill gärna veta vad som var fel på min <b>...PerformanceCounter..</b> del :)

Tja, du kan ju läsa exempelkoden t.ex. ;)

> Messagebox.show(infomem)
ska vara:
Messagebox.show(infomem.NextValue().ToString())

Med exemplet nedan kan du hämta alla tillgängliga kategorier, räknare och instanser. Det som behövs är tre comboboxar(cboCategories,cboInstances,cboCounters) och en commandbutton(btnPerf).

Private Sub btnPerf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPerf.Click
        Dim cat As String
        If cboCategories.SelectedIndex >= 0 Then
            cat = cboCategories.Items.Item(cboCategories.SelectedIndex)
        End If
        Dim cnt As String
        If cboCounters.SelectedIndex >= 0 Then
            cnt = cboCounters.Items.Item(cboCounters.SelectedIndex)
        End If
        Dim inst As String
        If cboInstances.SelectedIndex >= 0 Then
            inst = cboInstances.Items.Item(cboInstances.SelectedIndex)
        End If

        Dim perf As New PerformanceCounter
        perf.CategoryName = cat
        perf.CounterName = cnt
        If inst <> "" Then
            perf.InstanceName = inst
        End If
        MsgBox(perf.NextValue.ToString)
        perf.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cat As PerformanceCounterCategory()
        Dim i As Integer
        '## Hämta kategorier
        cboCategories.Items.Clear()
        cat = PerformanceCounterCategory.GetCategories()
        For i = 0 To cat.Length - 1
            cboCategories.Items.Add(cat(i).CategoryName)
        Next
    End Sub

    Private Sub cboCategories_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCategories.SelectedIndexChanged
        Dim cnt As PerformanceCounter()
        Dim inst As String()
        Dim i As Integer

        '## Hämta instanser
        cboInstances.Items.Clear()
        inst = New PerformanceCounterCategory(cboCategories.Items.Item(cboCategories.SelectedIndex)).GetInstanceNames()
        For i = 0 To inst.Length - 1
            cboInstances.Items.Add(inst(i))
        Next

        '## Hämta räknare
        cboCounters.Items.Clear()
        If cboInstances.Items.Count > 0 Then
            cnt = New PerformanceCounterCategory(cboCategories.Items.Item(cboCategories.SelectedIndex)).GetCounters(cboInstances.Items.Item(0))
        Else
            cnt = New PerformanceCounterCategory(cboCategories.Items.Item(cboCategories.SelectedIndex)).GetCounters()
        End If
        For i = 0 To cnt.Length - 1
            cboCounters.Items.Add(cnt(i).CounterName)
        Next
    End Sub

Tusen tack alla för er hjälp!

Jag nöjer mig med

Messagebox.show("Available Physical Memory: " & My.Computer.Info.AvailablePhysicalMemory.ToString & " bytes")