module1.bas

来自「几个不错的VB例子」· BAS 代码 · 共 42 行

Attribute VB_Name = "Module1"

Option Explicit
Declare Function GetTickCount& Lib "kernel32" ()

Public Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Public Type SYSTEM_INFO
        dwOemID As Long
        dwPageSize As Long
        lpMinimumApplicationAddress As Long
        lpMaximumApplicationAddress As Long
        dwActiveProcessorMask As Long
        dwNumberOrfProcessors As Long
        dwProcessorType As Long
        dwAllocationGranularity As Long
        dwReserved As Long
End Type



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


Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As _
            MEMORYSTATUS)
            
  
Public Declare Function GetProcessorRawSpeed Lib "getcpu.dll" (ByVal RawSpeed As String) As Long

Public Declare Function GetProcessor Lib "getcpu.dll" (ByVal strCpu As String, ByVal strVendor As String, ByVal strL2Cache As String) As Long