Public Function 内存信息() As String
Set objWMI = GetObject("winmgmts:\\" & "." & "\root\cimv2")
Set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
For Each objOS In colOS
总内存 = Round(objOS.TotalVisibleMemorySize / 1024) & " MB"
可用内存 = Round(objOS.