Simone
VB6.0获取电脑硬盘的序列号，若序列号存在，获取到会显示在TextBox文本框中，程序还是比较粗糙的，界面方面只是一个雏形。
输入setwmi=GetObject("winmgmts:\\.\root\CIMV2")setw=wmi.ExecQuery("select*fromwin32_processor")a="CPU名称"。
获取当前所有逻辑驱动器的根驱动器路，'GetLogicalDriveStrings说明'获取一个字串，其中包含了当前所有逻辑驱动器的根驱动器路径。
'Long，装载到lpBuffer的字符数量（排除空中止字符）。如缓冲区的长度不够，不能容下路径，则返回值就变成要求的缓冲区大小。零表示失败。会设置GetLastError。
'nBufferLength Long，lpBuffer字串的长度。'lpBuffer String，用于装载逻辑驱动器名称的字串。每个名字都用一个NULL字符分隔，在最后一个名字后面用两个NULL表示中止（空中止）。
操作完成后用CloseHandle关闭设备句柄。'与普通文件名有所不同，设备驱动的「文件名」形式固定为「\\.\DeviceName」(注意在C程序中该字符串写法为「\\\\.\\DeviceName」)。
