应用里添加 System.Management
创新互联主要从事成都做网站、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务青秀,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
文件前加上
Imports System.Management
''' summary
''' 获取系统内存大小
''' /summary
''' returns内存大小(单位Byte)/returns
Private shared Function GetPhisicalMemory()As Long
dim searcher = new ManagementObjectSearcher() '用于查询一些如系统信息的管理对象
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中很难。
如果要实现两个程序共享信息,最简单的方法有共享文件和共享注册表的方法来互通信息。
如果你使用VB.NET编写程序,则可以在4.0中选择内存文件映射来共享一片内存
vb.net 根本就访问不了内存,只能通过调用api函数方式,不光是vb.net ,C#也是,主要是为了安全,微软在net里面不容许直接访问内存。