vb问题

badtou 2003-01-09 09:41:22

请问在vb中如何对到cpu的类型;主版的类型;显卡的类型;bios的版本

...全文

20 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

suntt 2003-01-10

打赏
举报

呵呵，同意，用汇编吧

zyl910 2003-01-09

打赏
举报

不要为简单二字放弃了程序的质量

zyl910 2003-01-09

打赏
举报

要明白各种技术的局限！

thirdapple 2003-01-09

打赏
举报

我倒同意Zyl910，用API是根本无法知道你的CPU的真实情况，GetSystemInfo取得的不准确。

Keng 2003-01-09

打赏
举报

MS提供接口就是让程序员用的。。不同意楼上的看法。。汇编现在大学里大多都作为基础课来讲。。但是我认为汇编很重要，是一们到死也不能放弃的科目。因为这个东西含盖了很多计算机地层的东西。。不过照楼上的说法每个人写一些较地层的程序都要从汇编开始那就不合情理了。毕竟有现成的东西。。至于个人的变成能力那要看个人自己的造化了。

zyl910 2003-01-09

打赏
举报

这种情况用VB是绝对的错误！

API只是Windows提供的一个接口而已！

starbaby 2003-01-09

打赏
举报

VB5.0的，要是有问题自己研究一下哦~~~~-
--- 1.测试CPU类型

---- 使用GetSystemInfo API函数可以测试CPU类型，而且还能知道当前系统的处理器个数。

Option Explicit
Private Type CPU_Type
a As Long
b As Long
c As Long
d As Long
Processormask As Long
Number_of_Processors As Long
ProcessorType As Long
e As Long
f As Long
End Type
Private Declare Sub GetSystemInfo
Lib "kernel32" (CPUinfo As CPU_Type)
Private Sub Form_Click()
Dim CPU As CPU_Type
GetSystemInfo CPU
Print "CPU类型为:";CPU.ProcessorType
Print "CPU个数:";CPU.Number_of_Processors
End Sub

　

---- 2.测试驱动器类型

---- 用GetDriverType API函数来确定用户计算机驱动器类型

Option Explicit
Private Declare Function GetDriveType Lib
"kernel32" Alias "GetDriveTypeA"
(ByVal drive_ As String) As Long
Private Sub Form_Click()
DIM PF$,drv,i
For i = 0 To 25 ‘
所有可能的驱动器个数 A: 到 Z:
PF = Chr$(i + 65) & ":"
drv = GetDriveType(PF)
Select Case drv
Case 2
Print "驱动器" & PF & "is removable"
Case 3
Print "驱动器" & PF & "is fixed"
Case 4
Print "驱动器" & PF & "is remote"
Case 5
Print "驱动器" & PF & "CD-ROM"
Case 6
Print "驱动器" & PF & "is RAM disk"
Case Else
End Select
Next
End Sub

badtou 2003-01-09