用VB写一个小程序

'取得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()

Form1Hide

Dim len5 As Long, aa As Long

Dim cmprName As String

Dim osver As OSVERSIONINFO

'取得Computer Name

Open "cputxt" 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, mycpuProcessorId

Next

Close #1

End

End Sub

这是在你的基础上改的，还有把form1的visible的值改为false

不知道你是要遍历这些组合还是像普通的**一样随机生成，一组或者几组？

遍历的话用7个for 嵌套，估计会死机的吧

如果随机的话，这样的程序已经在知道里很多，搜索下**，很多的，

以上就是关于用VB写一个小程序全部的内容，包括:用VB写一个小程序、请教用VB做个简单的小程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！