VB.让程序运行时检查硬盘序列号,如果存在正常运行,否则就不运行,VB代...

AA = MymachineC("c:\", VolName, 256, 硬盘序列号, Maxlen, Sysflag, FsysName, 256)MsgBox "你的机器码: " & Hex(硬盘序列号)EndEnd Sub注明:在VB生成的工程中里就事先写上这个物理号,怎么怎么验证.验证错误提示电脑重启.上面的代码是看物理号的一个应用程序现在要验证的是另一个程序.发完全代码. ...

点任务栏“开始”-“运行”，输入“cmd vol d:” （注意引号不要输入），然后让用户把窗口里显示的那个16进制序列号告诉你（最好让用户截图发给你自己看），比如是“0C59-7641”。然后你把这个序列号放入自己的程序里：Private Sub Form_Load()If Right("0000000" & Hex(GetSerialNumber("d")),...

将序列号保存到ini文件中，每次运行都检查，没有序列号则提示激活。如果想重装系统要激活，保存到系统盘中，隐秘点就是

估计只有硬盘的硬序列号了 不是普通的可以使用API获得哪种软序列号 软序列号只要重新格式化后 就会发生改变 直接在VB里输入下面这行代码 就可以获得硬序列号了 Shell "cmd /c WMIC DiskDrive GET Signature>C:\aaa.txt", vbHide 然后去看看C盘根目录下 打开这个新建的aaa.txt 里面就是你想要的东西 你自己再对...

'VB程序编制: BARDO'本来我想写一个只取盘动物理序列号的。但是考虑到大家学习的方便。还是将原来的代码'全部翻译了出来。如果你需要单一的只查一个主硬盘的序列号的程序,欢迎到本站下载。''网站:东方热讯:http://www.easthot.net'邮件:sales@easthot.net'2003.01.23'***Option Explicit'以下这一行是必须的,...

读取硬盘序列号的方法很多，以下是在XP下能用的几种方法，我没用过vista系统，所以不知道以下方法在vista系统中是否可行 方法一:Set FSO = CreateObject("Scripting.FileSystemObject")Set d = FSO.GetDrive("C:")Print " C盘序列号是 " & Hex(d.SerialNumber)方法二:Set wmi = GetObject("winmgmts...

碰到无盘系统软件就挂了.思路:根据 主板序列号,CPU序列号,MAC地址等,通过 一定的运算得到一个机器码,机器码通过 一定的加密算法生成序列号,客户输入序列号通过解密算法算出机器码,二者比较,如果对了,在注册表某个角落里保存一个值,这个值为0表示没有注册,为1表示注册过了.读取这个值,判断是否为注册...

Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, By...

Private Declare Function 获得硬盘序列号 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 lp...

= Left(s, InStr(1, s, ChrW(0)) - 1)MsgBox "硬件厂商代码为： " + s s = StrConv(x.SerialNumber, vbUnicode)s = Left(s, InStr(1, s, ChrW(0)) - 1)MsgBox "硬盘序列号为： " + s End Function ...