Question

在VB中如何获取电脑主板序列号，请指导。听说API函数中能查得，如何查得。谢谢

Answer 1

Function GetMainboardSerialNumber()As String
On Error Resume Next
Dim strComputer
Dim objWMIService
Dim objItem
Dim strOption
Dim colItems
GetMainboardSerialNumber=""
strComputer="."
Set objWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select*fromWin32_BaseBoard")
For Each objItem In colItems
If objItem.SerialNumber<>"" Then GetMainboardSerialNumber=objItem.SerialNumber
Exit Function
End If
Next
End Function
Private Sub Command1_Click()
MsgBox GetMainboardSerialNumber
End Sub

追问

运行有问题，请试验指正

追答

补充回答：就是几个空格没有插入而已。
Function GetMainboardSerialNumber() As String
On Error Resume Next
Dim strComputer
Dim objWMIService
Dim objItem
Dim strOption
Dim colItems
GetMainboardSerialNumber = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objItem In colItems
If objItem.SerialNumber "" Then
GetMainboardSerialNumber = objItem.SerialNumber
Exit Function
End If
Next
End Function
Private Sub Command1_Click()
MsgBox GetMainboardSerialNumber
End Sub

追问

你好，再改一改，试验一下
显示序列号为空白
谢谢

追答

不要再追问我！
我提出的三个方案，你置之不理还继续追问，是不是有些太那个了？
要么，远程，我看你操作；
要么，把你的工程发给我看；
要么，具体说明你的全部代码和界面布置。
你都不肯，几天来，有就缠个没完，
我说过了，百度Hi里面我已经将你列入黑名单了
你发新问题也不要指向我。

Answer 2

留QQ 我告诉你

追问

QQ594470615