vb.net獲取內存總量

應用里添加?System.Management

10余年的本溪網站建設經驗，針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務，響應快，48小時及時工作處理。成都全網營銷的優(yōu)勢是能夠根據用戶設備顯示端的尺寸不同，自動調整本溪建站的顯示方式，使網站能夠適用不同顯示終端，在瀏覽器中調整網站的寬度，無論在任何一種瀏覽器上瀏覽網站，都能展現優(yōu)雅布局與設計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)從事“本溪網站設計”,“本溪網站推廣”以來，每個客戶項目都認真落實執(zhí)行。

文件前加上

Imports?System.Management

'''?summary

'''?獲取系統(tǒng)內存大小

'''?/summary

'''?returns內存大小（單位Byte）/returns

Private?shared?Function?GetPhisicalMemory()As?Long

dim?searcher?=?new?ManagementObjectSearcher()???'用于查詢一些如系統(tǒng)信息的管理對象

searcher.Query?=?new?SelectQuery("Win32_PhysicalMemory?",?"",?new?string()?{?"Capacity"?})'設置查詢條件?

dim?collection?=?searcher.Get()???'獲取內存容量?

dim?em?=?collection.GetEnumerator()

dim?capacity?as?long=?0

While?(em.MoveNext())

dim?baseObj?=?em.Current

If?(baseObj.Properties("Capacity").Value?IsNot?Nothing)?Then????????????????????

Try

capacity?+=?long.Parse(baseObj.Properties("Capacity").Value.ToString())

Catch

return?0

End?Try

End?If?

End?While

return?capacity

End?Function

vb.net 讀取內存失敗 求高手解答

你是想讀取游戲進程吧 這個問題剛開始也 讓我郁悶了很久 其實很多 游戲對讀取內存做了特殊處理 常規(guī)的 調用api打開進程 讀取內存 無效可以嘗試 用token 直接調用就ok了 返回true說明調用成功下面是詳細代碼 Public Class ToKen

#Region "常數及結構聲明"

Private Const SE_PRIVILEGE_ENABLED As Int32 = 2

Private Const EWX_SHUTDOWN As Int32 = 1

Private Const EWX_REBOOT As Int32 = 2

Private Const EWX_LOGOFF As Int32 = 0

Private Structure LUID_AND_ATTRIBUTES

Public pLuid As LUID

Public Attributes As Integer

End Structure

Private Structure LUID

Dim LowPart As Int32

Dim HighPart As Int32

End Structure

Private Structure TOKEN_PRIVILEGES

Public PrivilegeCount As Integer

Public Privileges As LUID

Public Attributes As Int32

End Structure

#End Region#Region "API聲明"

Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Int32

Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As IntPtr, ByVal DisableAllPrivileges As Int32, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Int32, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Int32) As Int32

Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As IntPtr, ByVal DesiredAccess As Integer, ByRef TokenHandle As IntPtr) As Boolean

#End Region

#Region "獲取全部權限"

Public Function ToKenPrivileges() As Boolean

Dim hdlTokenHandle As Integer

Dim tmpLuid As LUID

Dim tkp As TOKEN_PRIVILEGES

Dim tkpNewButIgnored As TOKEN_PRIVILEGES

Dim lBufferNeeded As Integer

Dim currentProcess As Process = Process.GetCurrentProcess()

If OpenProcessToken(currentProcess.Handle, HF00FF, hdlTokenHandle) Then

LookupPrivilegeValue("", "SeDebugPrivilege", tmpLuid)

tkp.PrivilegeCount = 1

tkp.Privileges = tmpLuid

tkp.Attributes = SE_PRIVILEGE_ENABLED

Return AdjustTokenPrivileges(hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded)

End If

End Function

#End Region

End Class

vb.net嘗試讀取或寫入受保護的內存。這通常指示其他內存已損壞

這說明你調用 API 傳參存在問題。

首先有沒有設置結構體內存對齊？

[StructLayout(LayoutKind.Sequential)] 加了嗎？

COLORREF 不要用 Color 代替，用 int 代替

TCHAR cfFaceName[32] 定義為 Byte 數組也可以，帶在傳參前，必須初始化為 32 個長度