在VB里利用API查看内存信息怎么做？

Question

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) 
'声明常量 
Dim meminfo As memorystatus Private Sub Form_Load() 
'获取内存信息 
Call globalmemorystatus(meminfo) 
Label1.Caption = Int(meminfo.dwtotalphys / 1024 / 1024) 
Label2.Caption = Int(meminfo.dwavailphys / 1024 / 1024) 
Label3.Caption = Int(meminfo.dwtotalvirtual / 1024 / 1024) 
End Sub 我这段程序编译出错，大概提示找不到kernel32的DLL还是找不到入口点什么的

Answer 1

Option Explicit
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'检查内存状态g
Private Declare Sub GlobalMemoryStatus Lib "kernel32" _
                (lpBuffer As MEMORYSTATUS)
'声明常量
Dim meminfo As MEMORYSTATUSPrivate Sub Form_Load()
'获取内存信息
Call GlobalMemoryStatus(meminfo)
Label1.Caption = Int(meminfo.dwTotalPhys / 1024 / 1024)
Label2.Caption = Int(meminfo.dwAvailPhys / 1024 / 1024)
Label3.Caption = Int(meminfo.dwTotalVirtual / 1024 / 1024)
End Sub

Answer 2

这里资料给你参考:
http://topic.csdn.net/u/20080421/14/1e6fb8f3-c2c1-4fd9-a3bf-6fe9b78926fc.html

Answer 3

globalmemorystatus 
GlobalMemoryStatus 
看出来不同了吧！API是C语言编的，区分大小写，你定义时没加别名（Alias)，函数名就认为是别名，这样就出问题了！