推荐回答
仅仅几行代码实现取得本机CPU序列号,可以使用此序列号实现程序的注册功能。个人感觉使用CPU序列号注册比使用硬盘序列号更为适合。引用MicrosoftWMIScriptingv1.1Library''添加Command1PrivateSubCommand1_ClickDimcpuSetAsSWbemObjectSetDimcpuAsSWbemObjectSetcpuSet=GetObject"winmgmts:{impersonationLevel=impersonate}".InstancesOf"Win32_Processor"ForEachcpuIncpuSetMsgBox"CPU系列号:"&cpu.ProcessorId取得CPU序列号NextEndSub''---------------------------------------如果没有那个MicrosoftWMIScriptingv1.1Library,你也可以添加工程,添加两个command和一个text,然后代码:PrivateTypeOSVERSIONINFOdwOSVersionInfoSizeAsLongdwMajorVersionAsLongdwMinorVersionAsLongdwBuildNumberAsLongdwPlatformIdAsLongszCSDVersionAsString*128''MaintenancestringforPSSusageEndTypePrivateDeclareFunctionGetVersionExLib"kernel32"Alias"GetVersionExA"lpVersionInformationAsOSVERSIONINFOAsLongPrivateDeclareFunctionGetComputerNameLib"kernel32"Alias"GetComputerNameA"ByVallpBufferAsString,nSizeAsLongAsLongPrivateConstVER_PLATFORM_WIN32_NT=2PrivateConstVER_PLATFORM_WIN32_WINDOWS=1PrivateConstVER_PLATFORM_WIN32s=0PrivateSubCommand1_ClickDimlen5AsLong,aaAsLongDimcmprNameAsStringDimosverAsOSVERSIONINFO''取得ComputerNamecmprName=String255,0len5=256aa=GetComputerNamecmprName,len5cmprName=LeftcmprName,InStr1,cmprName,Chr0-1Computer=cmprName''取得CPU端口号SetCPUs=GetObject"winmgmts:{impersonationLevel=impersonate}!\\"&Computer&"oot\cimv2".ExecQuery"select*fromWin32_Processor"ForEachmycpuInCPUsText1.Text=mycpu.ProcessorIdNextEndSubPrivateSubCommand2_ClickUnloadMeEndSub。
黄登红2019-10-15 11:05:19
卓优商学提示您:回答为网友贡献,仅供参考。