求一个写好的VBA读取主板序列号

樊晓松 2019-10-15 10:21:00

推荐回答

我以前也查过类似代码,一般都是用WinMgmts对像去获取,如ForEachObjInGetObject"WinMgmts:".InstancesOf"Win32_BaseBoard"但只有一部份主板可以,有可能是不是所有的主板都有序列号,特别是一些山寨小厂的主板。
米多多2019-10-15 11:19:47

提示您:回答为网友贡献,仅供参考。

其他回答

  • Win32_BaseBoard表示的是32位主板,您的操作系统是64位的,所以无法正常运行。改成Win64_BaseBoard试试,之前用过win764位旗舰版,兼容性不好。
    连亚玉2019-10-15 11:37:16
  • Sub主板序列号DimObjAsObject,snAsStringForEachObjInGetObject"WinMgmts:".InstancesOf"Win32_BaseBoard"sn=Obj.SerialNumberNextSheets"sheet1".Cells3,1.Value=snEndSub。
    赵香稳2019-10-15 11:03:49

相关问答

,你可以按以下方法来辩解是否翻新机。1、序列号每个苹果机子都有11位序列号有字母和数字组成的编码,都可以在专业的序列号查询工具中查询。在购买手机时,要在苹果官网查询此手机的序列号是否正确,如果过是翻新机如更换了主板、被维修过等此机子的序列号在苹果官方网站是被注销的,查询会出现“很抱歉,这是已更换产品的序列号”。2、最近一次激活时间iPhone6Plus新机激活时间是没有的,如果有,则很可能是翻新机,至少也是人家用过的,不然不可能已经激活了。3、查看电池使用时间新iPhone6Plus电池没有被使用过,如果我们查询到iPhone6电池有较长的使用时间记录,那么很可能也是翻新机。方法是进入iPhone6Plus设置--通用--电量设置里即可查看电池使用时间。4、产品细节辨别原装数据线,原装的数据插头质地做工细致,没有刮痕,这些都是外观细节,仔细去看看也可以找到一些端倪,由于翻新机是被使用过的,因此在外观细节上通过仔细观察也容易找出一些破绽,包括iPhone6Plus主机、配件、耳机等都可以去自己观察对比。现在很多朋友都害怕买到翻新机,但是对于鉴别翻新机的方法也只是略知一二,可是现在的奸商不断升级翻新技术,让我们很迷茫,很愤怒。不过这些通过苹果序列号查询可了解设备激活时间等信息面前都是浮云。下面先仔细讲讲翻新机的种类后面再仔细讲查询的作用。1、官方翻新什么是官翻机呢,大家一直也很迷惑这个说法。其实所谓管翻机就是官方认可的翻新,有正规的翻新流程和质检过程,保证翻新机能够达到外观崭新如初,同时还能够享受质保的服务。大家也可以从序列号上辨别官翻机,一般官翻机序列号都是以“5K”开头的,一般序列号的前2位代表生产车间与生产线编号,“5K”是代表由哪个厂房和生产线生产的机子。官翻机能不能买呢!答案肯定是能!因为官翻机教全新机有两个优势:第一,价格比全新机更实惠,让用户多一种选择,适合低预算用户。第二,大范围来说,可用零件的回收利用,能避免资源二次浪费。特别说明一点,翻新机保修是和买新机一样的,享受正规质保,这点也是大多数人最为关心的问题。官翻机不管是在质量还是售后方面都有保障,这是市面上二手翻新机所无法企及的。2、二手翻新二手翻新这种翻新机一般都是一些奸商回收二手iPod/iPad/iPhone等机器,然后换个外壳冒充全新机出售,质量很差,其实就是收集原来的机芯、外壳或外包装进行维修或加工处理,然后当作新机器卖。其种类很多,主要的是,其一电路板有问题的旧机子,经过维修或零件拼装后重新包装出售,此类机器性能最不稳定;其二正常的旧机子的外壳经过处理或更换后当新的卖;其三非正规渠道机器通过软件刷新、重新包装后当新的卖,此类机器一般软件的稳定性有欠缺。现在奸商还惯用一种手法:回收功能正常的二手机,然后更换主板三、序列号识别如果您在购买苹果设备前进行序列号查询的话,应该能够鉴别大多数的翻新机,因为如果是翻新机,序列号对应的信息与奸商实际描述的信息会有出入,如果是更换了主板的翻新机,一定是被维修过的机器,而被维修的机器的序列号在苹果官网中是被注销的,也就是在查询时会出现“很抱歉,这是已更换产品的序列号。的信息。如果是正常的二手翻新机当做新机卖时,这里查询的保修时间,购买地等信息一定可以帮你鉴别机器的使用年限,是否是国行港行等。另外“最近一次激活时间”这个日期完全可以用来鉴别是不是二手机器如果是刚买的新机器,这个激活时间是没有的。如果有,那有可能就是翻新机,因为这些数据都是苹果官网数据库的记录。
1、取得磁盘序列号、卷标和文件系统类型磁盘序列号在每次软盘或硬盘格式化后都重新生成,并且不回重复。许多程序员用此加密。其实也可以修改该函数,可以得到磁盘卷标和文件系统类型信息。声明:PrivateDeclareFunctionGetVolumeInformationLib"kernel32.dll"Alias"GetVolumeInformationA"ByVallpRootPathNameAsString,ByVallpVolumeNameBufferAsString,ByValnVolumeNameSizeAsInteger,lpVolumeSerialNumberAsLong,lpMaximumComponentLengthAsLong,lpFileSystemFlagsAsLong,ByVallpFileSystemNameBufferAsString,ByValnFileSystemNameSizeAsLongAsLong代码:FunctionGetSerialNumbersRootAsStringAsLongDimlSerialNumAsLongDimRAsLongDimsTemp1AsString,sTemp2AsStringstrLabel=String$255,Chr$0注释:磁盘卷标strType=String$255,Chr$0注释:文件系统类型一般为FATR=GetVolumeInformationsRoot,strLabel,LenstrLabel,lSerialNum,0,0,strType,LenstrTypeGetSerialNumber=lSerialNum注释:在strLabel中为磁盘卷标注释:在strType中为文件系统类型EndFunction用法:当驱动器不存在时,函数返回0。如果是个非根目录,也将返回0:lSerial=GetSerialNumber"c:\"2、大家只需将以下代码拈贴到VB的工程中,并以类的模式保存即可使用。所有的代码我都已经测试过,并曾在多次开发项目中使用过。使用方法:dimoHardasnewCGetHardInfo''您可将CGetHardInfo替换成您保存的类读取硬盘的序列号:HDDSR=CGetHardInfo.HardDiskID''读取C盘的串号可利用LASTERROR返回产生的最后一个错误ERRORs为产生的错误集合以下为获取硬件信息的完整代码''=================================================================''获取相关的硬件信息硬盘ID/网卡ID/主机名称/IP地址''文件名称:GetHardInfo.cls''开发时间:2001.10.30''=================================================================OptionExplicitPrivateConstNCBASTAT=&H33PrivateConstNCBNAMSZ=16PrivateConstHEAP_ZERO_MEMORY=&H8PrivateConstHEAP_GENERATE_EXCEPTIONS=&H4PrivateConstNCBRESET=&H32PrivateTypeNCBncb_commandAsBytencb_retcodeAsBytencb_lsnAsBytencb_numAsBytencb_bufferAsLongncb_lengthAsIntegerncb_callnameAsString*NCBNAMSZncb_nameAsString*NCBNAMSZncb_rtoAsBytencb_stoAsBytencb_postAsLongncb_lana_numAsBytencb_cmd_cpltAsBytencb_reserve9AsByte''Reserved,mustbe0ncb_eventAsLongEndTypePrivateTypeADAPTER_STATUSadapter_address5AsByte''AsString*6rev_majorAsBytereserved0AsByteadapter_typeAsByterev_minorAsBytedurationAsIntegerfrmr_recvAsIntegerfrmr_xmitAsIntegeriframe_recv_errAsIntegerxmit_abortsAsIntegerxmit_successAsLongrecv_successAsLongiframe_xmit_errAsIntegerrecv_buff_unavailAsIntegert1_timeoutsAsIntegerti_timeoutsAsIntegerReserved1AsLongfree_ncbsAsIntegermax_cfg_ncbsAsIntegermax_ncbsAsIntegerxmit_buf_unavailAsIntegermax_dgram_sizeAsIntegerpending_sessAsIntegermax_cfg_sessAsIntegermax_sessAsIntegermax_sess_pkt_sizeAsIntegername_countAsIntegerEndTypePrivateTypeNAME_BUFFERNameAsString*NCBNAMSZname_numAsIntegername_flagsAsIntegerEndTypePrivateTypeASTATadaptAsADAPTER_STATUSNameBuff30AsNAME_BUFFEREndTypePrivateDeclareFunctionNetbiosLib"netapi32.dll"pncbAsNCBAsBytePrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"hpvDestAsAny,ByValhpvSourceAsLong,ByValcbCopyAsLongPrivateDeclareFunctionGetProcessHeapLib"kernel32"AsLongPrivateDeclareFunctionHeapAllocLib"kernel32"ByValhHeapAsLong,ByValdwFlagsAsLong,ByValdwBytesAsLongAsLongPrivateDeclareFunctionHeapFreeLib"kernel32"ByValhHeapAsLong,ByValdwFlagsAsLong,lpMemAsAnyAsLong3、磁盘序列号在每次软盘或硬盘格式化后都重新生成,并且不回重复。许多程序员用此加密。其实也可以修改该函数,可以得到磁盘卷标和文件系统类型信息。声明:PrivateDeclareFunctionGetVolumeInformationLib"kernel32.dll"Alias_"GetVolumeInformationA"ByVallpRootPathNameAsString,ByVal_lpVolumeNameBufferAsString,ByValnVolumeNameSizeAsInteger,_lpVolumeSerialNumberAsLong,lpMaximumComponentLengthAsLong,_lpFileSystemFlagsAsLong,ByVallpFileSystemNameBufferAsString,_ByValnFileSystemNameSizeAsLongAsLong代码:FunctionGetSerialNumbersRootAsStringAsLongDimlSerialNumAsLongDimRAsLongDimstrLabelAsString,strTypeAsStringstrLabel=String$255,Chr$0''磁盘卷标strType=String$255,Chr$0''文件系统类型一般为FATR=GetVolumeInformationsRoot,strLabel,LenstrLabel,_lSerialNum,0,0,strType,LenstrTypeGetSerialNumber=lSerialNum''在strLabel中为磁盘卷标''在strType中为文件系统类型EndFunction用法:当驱动器不存在时,函数返回0。如果是个非根目录,也将返回0:lSerial=GetSerialNumber"c:\。