Question

用VB写一个小程序

需要一个程序实现如下功能，
双击这个程序然后在当前目录生成一个文本，文本里面的内容是当前电脑CPU序列信息。
大致过程是这样：运行程序---生成cpu序列信息文本（如：cpu.txt）---结束
文本里面只有一串数字。软件运行的时候，不需要任何界面，或显示。也不需要是、否之类
就是一运行当前目录就会出现一个cpu.txt 就可以了
我在网上找到一个VB源码，但是不会用，高手请看看：expo020.com/cpu.rar
我不会用VB，哪位高手做好之后发给我一下：achao07@qq.com

Answer 1

'取得CPU序列号

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "高轿燃GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32s = 0

Private Sub Form_Load()
Form1.Hide
Dim len5 As Long, aa As Long
Dim cmprName As String
Dim osver As OSVERSIONINFO
'取得Computer Name
Open "cpu.txt" For Output As #1
cmprName = String(255, 0)
len5 = 256
aa = GetComputerName(cmprName, len5)
cmprName = Left(cmprName, InStr(1, cmprName, Chr(0)) - 1)
Computer = cmprName '取得CPU端口号
Set CPUs = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2").ExecQuery("select * from Win32_Processor")
For Each mycpu In CPUs
Print #1, mycpu.ProcessorId
Next
Close #1
End
End Sub
这是在你的基戚虚础上改的，还有把form1的visible的帆州值改为false

Answer 2

用这个吧链唯侍:

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "山胡GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32s = 0

Private Sub Form_Load()
Dim len5 As Long, aa As Long
Dim cmprName As String, cpuID As String
Dim osver As OSVERSIONINFO
cmprName = String(255, 0)
len5 = 256
aa = GetComputerName(cmprName, len5)
cmprName = Left(cmprName, InStr(1, cmprName, Chr(0)) - 1)
Computer = cmprName
Set CPUs = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2").ExecQuery("select * from Win32_Processor")
For Each mycpu In CPUs
cpuID = mycpu.ProcessorId
Next
Open App.Path & "棚吵\CPU.txt" For Append As #1
Print #1, cpuID
Close #1
End
End Sub

Answer 3

Private Sub Form_Load()
Form1.Visible = False
Dim cpuSet
Dim cpu
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
a = (cpu.ProcessorId)
Next
Open "d:\cpu.txt" For Output As #1
Print #1, a
Close
End Sub