[原创][分享]获取硬盘物理系列号

yanjie

谢谢分享！

joen168

硬盘型号 ST3160811AS
序列号 5PT16AHE
我用windows优化大师获取以上数据，套进上面的公式，为什么还是不行呢？文件还是要退出呢？

hacker85

当然要退出了
ThisWorkbook.Close False这句代码就是这个意思呀

而且这个是在你的MSGBOX之后执行的

没有了这句就不会退出了

joen168

谢谢楼上。我的判断代码请问哪里出了问题，能否帮忙修改一下。谢谢。

sjlung

先做個記號，以後可能會用到！
謝謝樓主。

joen168

Sub auto_open()
Dim s As String
s = GetHardDiskInfo()
MsgBox s, , "得到的序列号"
    If s = "WD-WMAKA1120405" Then '要使用的电脑磁盘序列号,注意加引号
    Exit Sub
    Else
        MsgBox "非授权用户，系统将退出。"
        ThisWorkbook.Close False
    End If
End Sub

结合楼主的代码和上面的代码在很多台电脑上都可以。

现在是有一台机器获取的硬盘系列号是：WD-WMAKA1120405，但使用以上公式却无法识别，执行了退出系统。是不是表达出错了？是不是跟系列号中间的“-”符号有关系？如果是，那请问该如何设置代码？

lin9700

请问高手如何对这个程序用dll进行封装(VB)?我老是做不成。

wsmwsm

谢谢分享？

tanglaoda

学习了，谢谢！ 对我来说，有难度。

tuotuo51999

谢谢分享，留个脚印以后看看！