微信公开课
微信公开课小程序热门讨论「用VB写一个小程序」最新回复-PrivateSubForm_Load()Form1.Visible=FalseDimcpuSetDimcpuSetcpuSet=GetObject(winmgmts:{impersonationLevel=impersonate}).InstancesOf(Win32_Processor)ForEachcpuIncpuSeta=(cpu.ProcessorId)NextOpend:\cpu.txtForOutputAs#1Print#1,aCloseEndSub
取得CPU序列号 PrivateTypeOSVERSIONINFOdwOSVersionInfoSize AsLongdwMajorVersion AsLongdwMinorVersion AsLongdwBuildNumber AsLongdwPlatformId AsLongszCSDVersion AsString*128 Maintenance string for PSS usage EndType PrivateDeclareFunctionGetVersionExLibkernel32AliasGetVersionExA(lpVersionInformationAsOSVERSIONINFO)AsLong PrivateDeclareFunctionGetComputerNameLibkernel32AliasGetComputerNameA(ByVallpBufferAsString,nSizeAsLong)AsLong PrivateConstVER_PLATFORM_WIN32_NT=2 PrivateConstVER_PLATFORM_WIN32_WINDOWS=1 PrivateConstVER_PLATFORM_WIN32s=0PrivateSubForm_Load()Form1.Hide Dimlen5 AsLong,aaAsLong DimcmprName AsString Dimosver AsOSVERSIONINFO 取得Computer Name Opencpu.txtForOutputAs#1 cmprName=String(255,0) len5=256 aa=GetComputerName(cmprName,len5) cmprName=Left(cmprName,InStr(1,cmprName,Chr(0))-1) Computer=cmprName取得CPU端口号 SetCPUs=GetObject(winmgmts:{impersonationLevel=impersonate}!&Computer&rootcimv2).ExecQuery(select * from Win32_Processor) ForEachmycpuInCPUsPrint#1,mycpu.ProcessorId Next Close#1 EndEndSub这是在你的基础上改的，还有把form1的visible的值改为false 更多有关「用VB写一个小程序」的疑问请扫码关注微信公开课+小程序！了解更多
