kwhw.net
相关文档
当前位置:首页 >> gEtsystEminFo vB >>

gEtsystEminFo vB

到文库 看看 Windows API一日一练2

Private Sub Command1_Click() Dim TEXzh() n = 0 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48) For Each ...

VB声明 Declare Sub GetSystemInfo Lib "kernel32" Alias "GetSystemInfo" (lpSystemInfo As SYSTEM_INFO) 说明 在一个SYSTEM_INFO结构中载入与底层硬件平台有关的信息 参数表 参数 类型及说明 lpSystemInfo SYSTEM_INFO,指定一个结构,用于装...

用api函数 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 dw...

先使用 System.IO.DriveInfo.GetDrives()获取System.IO.DriveInfo,存入ds() 然后遍历ds,获取各个信息部分。 Dim ds() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives() For i As Integer = 0 To ds.Length - 1 TextBox1.Text = Text...

首先使用 System.IO.DriveInfo.GetDrives()获取System.IO.DriveInfo,存入ds() 然后遍历ds,获取各个信息部分。 Dim ds() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives() For i As Integer = 0 To ds.Length - 1 TextBox1.Text = Te...

网站首页 | 网站地图
All rights reserved Powered by www.kwhw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com