Zum Inhalt springen

arbeitsspeicherauslastung


jasso

Empfohlene Beiträge

du bist schon auf dem richtigen weg.

der kernel32-export namens GlobalMemoryStatus ist auch in VB einsetzbar, die methoden und properties sind ebenfalls dieselben. du musst die aufrufe nur adaptieren.


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 Declare Sub GlobalMemoryStatus Lib "kernel32" ( _

            lpBuffer As MEMORYSTATUS)


Private Sub Form_Timer()

    Dim Memoire As MEMORYSTATUS

    GlobalMemoryStatus Memoire

    Me.Totale = Format(Memoire.dwTotalPhys \ 1048576, "#### Mo")

    Me.Libre = Format(Memoire.dwAvailPhys \ 1048576, "#### Mo")

    Me.Pourcent = Int((Memoire.dwAvailPhys / Memoire.dwTotalPhys) * 100) & " %"

    Me.TotaleApp = Format(Memoire.dwTotalVirtual \ 1048576, "#### Mo")

End Sub

s'Amstel

Link zu diesem Kommentar
Auf anderen Seiten teilen

ok jetzt wirds suspekt^^

die dwTotalPageFile ist negativ

die dwAvailPageFile ist negativ

aber die differenz stimmt mit dem wert im taskmanager überein (dwTotalPagefile - dwAvailPageFile)

wenn ich allerdings etwas von dem speicher nutze indem ich einfach ein word-document mit ständigen copy-jobs vollpumpe, wird der dwAvailPageFile plötzlich positiv, wordurch die differenz natürlich nicht mehr stimmen kann.

das is echt verwirrend :rolleyes:

fällt dir oder sonstwem dazu was ein?

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...