vb获取硬盘机器码引用api,带源码