VB取得系统信息代码

来源：百度文库编辑：神马文学网时间：2024/06/03 12:34:46

Private 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
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Sub Command1_Click()
Dim len5 As Long, aa As Long
Dim sysinfo As SYSTEM_INFO
Call GetSystemInfo(sysinfo)
End Sub
注：
dwProcessorType
Platform Value
============    ===============================
Windows 95 PROCESSOR_INTEL_386    =    386
PROCESSOR_INTEL_486    =    486
PROCESSOR_INTEL_PENTIUM =   586
Windows NT PROCESSOR_INTEL_386
PROCESSOR_INTEL_486
PROCESSOR_INTEL_PENTIUM
PROCESSOR_MIPS_R4000        4000
PROCESSOR_ALPHA_21046       21046

VB取得系统信息代码 VB实用代码，收藏！！不错VB代码取得汉语拼音的函数(适用VB,VBA,VBS) 取得汉语拼音的函数(适用VB,VBA,VBS) DotNetNuke:Skin.vb代码流程分析图像二值化的VB代码1 VB截屏（拷贝屏幕图像）代码 VB.NET访问INI文件代码实现常用VB操作ACCESS数据库代码 VB获取网卡MAC地址代码 VB.net C# 代码转换工具 VB+Access设计图书管理系统 VB+Access设计图书管理系统1 图书管理系统VB+Access设计 VB+Access设计图书管理系统zz VB+Access设计图书管理系统123 VB+Access设计图书管理系统12312 五行脏腑系统信息五行脏腑系统信息系统垃圾清理代码 VB精品课程 - 济南铁道职业技术学院信息工程系? Limber Senovo VB,里的LIXTBOX 如何,引用数据库里的信息 VB或VBA代码转HTML的加载宏