从string的第一个字符

开始扫描，直到遇到结束字符'\0'。每一个字符从最高位开始判断，如果是1就打印字符1，如果是0就打印字符零。判断方法嘛首先可以使用一个掩码0x80，与字符进行与 *** 作，与运算逻辑真就是1，假就是0；然后将掩码右移 *** 作一位变成0x40，再与字符进行与 *** 作循环8次就OK了。

其它的换行，空格，0b字符的打印你自己加上。'引用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

这样就搞定了

可以通过WMI或者通过API或者读取RING3的方法。

@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%