vb.net获取内存总量，已使用量，

总量：My.Computer.Info.TotalPhysicalMemory

创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于网站建设、网站设计、册亨网络推广、微信平台小程序开发、册亨网络营销、册亨企业策划、册亨品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供册亨建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com

可用的：My.Computer .Info .AvailablePhysicalMemory

已使用量=总量-可用的

vb.net 写入内存值不正确

Imports System.Runtime.InteropServices

Public Class MemoryEditor

Inherits WINAPI.NativeMethods

Private phwnd As IntPtr

Private Buffer As Byte()

Private BytesRead As IntPtr

Private BytesWrite As IntPtr

''' summary创建内存编辑器/summary

''' param name="processHwnd"进程句柄/param

Sub New(processHwnd As IntPtr)

Me.phwnd = processHwnd

End Sub

''' summary根据指定偏移量读取内存基址/summary

''' param name="addr"内存地址/param

''' param name="offsets"偏移量数组/param

Public Function ReadBaseAddress(addr As IntPtr, offsets() As Integer) As IntPtr

Dim address As IntPtr = ReadMemoryToInteger(addr)

For Each offset As Integer In offsets

address = address.ToInt32 + offset

address = ReadMemoryToInteger(address)

If address = IntPtr.Zero Then

Dim errInfo As String = "内存偏移量[" Hex(offset) "]错误！"

Throw New Exception(errInfo)

End If

Next

Return address

End Function

''' summary读取4字节内存数值/summary

''' param name="addr"内存地址/param

Public Function ReadMemoryToInteger(addr As IntPtr) As Integer

Buffer = New Byte(3) {}

ReadProcessMemory(phwnd, addr, Buffer, 4, BytesRead)

Return BitConverter.ToInt32(Buffer, 0)

End Function

''' summary读取4字节内存数组/summary

''' param name="addr"内存地址/param

Public Function ReadMemoryToBytes(addr As IntPtr) As Byte()

Buffer = New Byte(3) {}

ReadProcessMemory(phwnd, addr, Buffer, 4, BytesRead)

Return Buffer

End Function

''' summary将内存值数组写入指定地址/summary

''' param name="addr"内存地址/param

''' param name="buffer"内存值数组/param

Public Function WriteMemoryByBytes(addr As IntPtr, buffer As Byte()) As Boolean

Return WriteProcessMemory(phwnd, addr, buffer, buffer.Length, BytesWrite)

End Function

End Class

Namespace WINAPI

Public MustInherit Class NativeMethods

DllImport("kernel32.dll", SetLastError:=True) _

Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, _

ByVal lpBaseAddress As IntPtr, _

Out() ByVal lpBuffer() As Byte, _

ByVal dwSize As Integer, _

ByRef lpBytesRead As Integer) As Boolean

End Function

DllImport("kernel32.dll", SetLastError:=True) _

Public Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, _

ByVal lpBaseAddress As IntPtr, _

ByVal lpBuffer As Byte(), _

ByVal nSize As Integer, _

Out() ByRef lpBytesWritten As IntPtr) As Boolean

End Function

End Class

End Namespace

是不是内存读写代码有问题！用上面的代码试试，我以前写的；

调用方法：

Dim mem As New MemoryEditor(进程句柄)

Dim offsets As Integer() = {H1, H2, H3} '{一级基址，二级基址，三级基址}

Dim baseaddr As IntPtr = mem.ReadBaseAddress(内存地址, offsets)

Dim value As Integer = mem.ReadMemoryToInteger(baseaddr)

vb.net 未写任何代码 运行 占用内存也要8M多

1.可以

一、应用程序没有检查内存分配失败

程序需要一块内存用以保存数据时，就需要调用操作系统提供的“功能函数”来申请，如果内存分配成功，函数就会将所新开辟的内存区地址返回给应用程序，应用程序就可以通过这个地址使用这块内存。这就是“动态内存分配”，内存地址也就是编程中的“指针”。

内存不是永远都招之即来、用之不尽的，有时候内存分配也会失败。当分配失败时系统函数会返回一个0值，这时返回值“0”已不表示新启用的指针，而是系统向应用程序发出的一个通知，告知出现了错误。作为应用程序，在每一次申请内存后都应该检查返回值是否为0，如果是，则意味着出现了故障，应该采取一些措施挽救，这就增强了程序的“健壮性”。

若应用程序没有检查这个错误，它就会按照“思维惯性”认为这个值是给它分配的可用指针，继续在之后的运行中使用这块内存。真正的0地址内存区保存的是计算机系统中最重要的“中断描述符表”，绝对不允许应用程序使用。在没有保护机制的操作系统下(如DOS)，写数据到这个地址会导致立即死机，而在健壮的操作系统中，如Windows等，这个操作会马上被系统的保护机制捕获，其结果就是由操作系统强行关闭出错的应用程序，以防止其错误扩大。这时候，就会出现上述的“写内存”错误，并指出被引用的内存地址为“0x00000000”。

内存分配失败故障的原因很多，内存不够、系统函数的版本不匹配等都可能有影响。因此，这种分配失败多见于操作系统使用很长时间后，安装了多种应用程序(包括无意中“安装”的病毒程序)，更改了大量的系统参数和系统文件之后。

二、应用程序由于自身BUG引用了不正常的内存指针

在使用动态分配的应用程序中，有时会有这样的情况出现：程序试图读写一块“应该可用”的内存，但不知为什么，这个预料中可用的指针已经失效了。有可能是“忘记了”向操作系统要求分配，也可能是程序自己在某个时候已经注销了这块内存而“没有留意”等等。注销了的内存被系统回收，其访问权已经不属于该应用程序，因此读写操作也同样会触发系统的保护机制，企图“违法”的程序唯一的下场就是被操作终止运行，回收全部资源。计算机世界的法律还是要比人类有效和严厉得多啊！ 像这样的情况都属于程序自身的BUG，你往往可在特定的操作顺序下重现错误。无效指针不一定总是0，因此错误提示中的内存地址也不一定为“0x00000000”，而是其他随机数字。

如果系统经常有所提到的错误提示，下面的建议可能会有帮助：

1.查看系统中是否有木马或病毒。这类程序为了控制系统往往不负责任地修改系统，从而导致操作系统异常。平常应加强信息安全意识，对来源不明的可执行程序绝不好奇。

2.更新操作系统，让操作系统的安装程序重新拷贝正确版本的系统文件、修正系统参数。有时候操作系统本身也会有BUG，要注意安装官方发行的升级程序。

3.试用新版本的应用程序。

要实现多窗口的话不用父窗体更好，直接用单独的多窗体。用窗体的“.visible”就可以实现。譬如，要启动Form1，则“Form1.show”；要隐藏Form1，则“Form1.hide”；要退出Form1，则“Unload form1”。

（对窗体使用Show时同时也用了Load，即读取了窗体，不用另外用Load方法）

文章标题：内存数vb.net 内存数据为什么会丢失
链接URL：http://hbruida.cn/article/doipije.html