电脑的机器码怎么来的

机器码根据电脑硬件(主板)信息经过一定公式运算而自动生成的一组数字，您可以在软件的软件注册、关于软件或者软件版本信息等框中进行查看。每台电脑对应一个机器码，每个机器码对应唯一一套软件序列号和注册码。

电脑硬件(主板)不变的情况下，软件机器码始终保持同一个值，即使在以下 *** 作时都不会发生改变，如：硬盘重新区、低级或者高级格式化；重装、改装 *** 作系统或者安装多系统；更换或者添加硬盘

@echo off

rem 假设这些文件在c盘的test目录下:

for /f %%i in ('dir c:\test /b/a-d') do call :ren_ %%i

goto :eof

:ren_

set filename=%1

set /a fileno=%filename:~1,-4%

set filetype=%filename:~-4%

set /a newfileno=%fileno%+115

set newfilename=0%newfileno%%filetype%

ren c:\test\%filename% %newfilename%

很难达到你的要求的,VB好像是获取不到硬盘的物理序列号的,只能获取到某一个分区的序列号不过可以调用其它的程序写的获取硬盘物理序列号的dll来获取,CPU的序列号我用的是wmiVB本来对底层方面就不是很好

引用api获得硬盘序列号

Private Declare Function MymachineC Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Form_Load()

Dim AA, 硬盘序列号, Maxlen, Sysflag As Long: Dim VolName, FsysName As String

AA = MymachineC("c:\", VolName, 256, 硬盘序列号, Maxlen, Sysflag, FsysName, 256)

msgbox "C硬盘序列号-机器码啦-(16制): " & Hex(硬盘序列号)

End Sub

以上就是关于电脑的机器码怎么来的全部的内容，包括:电脑的机器码怎么来的、批处理--dos高手--怎么获取计算机唯一ID（机器码）、VB获取电脑机器码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！