應(yīng)用里添加?System.Management
成都創(chuàng)新互聯(lián)是一家成都網(wǎng)站設(shè)計、成都網(wǎng)站制作,提供網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,網(wǎng)站制作,建網(wǎng)站,按需網(wǎng)站開發(fā),網(wǎng)站開發(fā)公司,公司2013年成立是互聯(lián)行業(yè)建設(shè)者,服務(wù)者。以提升客戶品牌價值為核心業(yè)務(wù),全程參與項目的網(wǎng)站策劃設(shè)計制作,前端開發(fā),后臺程序制作以及后期項目運營并提出專業(yè)建議和思路。
文件前加上
Imports?System.Management
'''?summary
'''?獲取系統(tǒng)內(nèi)存大小
'''?/summary
'''?returns內(nèi)存大?。▎挝籅yte)/returns
Private?shared?Function?GetPhisicalMemory()As?Long
dim?searcher?=?new?ManagementObjectSearcher()???'用于查詢一些如系統(tǒng)信息的管理對象
searcher.Query?=?new?SelectQuery("Win32_PhysicalMemory?",?"",?new?string()?{?"Capacity"?})'設(shè)置查詢條件?
dim?collection?=?searcher.Get()???'獲取內(nèi)存容量?
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
這個可以實現(xiàn),但VB中很難。
如果要實現(xiàn)兩個程序共享信息,最簡單的方法有共享文件和共享注冊表的方法來互通信息。
如果你使用VB.NET編寫程序,則可以在4.0中選擇內(nèi)存文件映射來共享一片內(nèi)存
vb.net 根本就訪問不了內(nèi)存,只能通過調(diào)用api函數(shù)方式,不光是vb.net ,C#也是,主要是為了安全,微軟在net里面不容許直接訪問內(nèi)存。
如果是數(shù)據(jù)共享:
數(shù)據(jù)庫。。
文本。。
如果是要用函數(shù)之類的用接口:
WEBSERVICE
DLL引用等等
你說的不太清楚~~~
補充下最好
kyd3000 00:27:08
如果沒有時效性又不即時更新的數(shù)據(jù)
kyd3000 00:27:53
就寫在XML文件里吧,A程序?qū)?,B以后的程序都讀他就行了。
kyd3000 00:32:36
如果想性能好點可以用內(nèi)存共享:
太大,而且訪問頻率不高的話還是用文件來交互吧!
首先,要告訴你的是;大部分時候我們都不需要考慮內(nèi)存這個因素,通常來說你寫的代碼和你程序的應(yīng)用場景并不需要你對一個變量做這樣的要求
其次,你可以了解一下值類型和引用類型;直接創(chuàng)建
創(chuàng)建一個新變量并使用舊變量賦值時通常傳遞的都是引用,并不會占用額外空間