谁有限制软件只能在一台电脑上运行的vb源码

来源：百度知道 编辑：UC知道 时间：2024/06/08 16:50:41
谁有给我共享一下，到时候追加50分!!

要求简单，不需要客户注册,只要他给我一组机器码(最好用硬盘序列号或CUP等),然后我重新写一个只能这一台电脑用的软件!再有另一台电脑用我再简单的改下源码就可以了!

这样相对难被破解吧!应该只需要做一个比较就可以了,等于机器码就运行，不等于就直接结束运行,听说弹出对话框会帮助破解，那就不弹出了.

请高手帮帮忙，谢谢了!

'声明
Private Declare Function GetVolumeInformation
Lib "kernel32.dll" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Private Sub Form_Load()
Dim mySerial As Long
Dim mylong, zichang As Long
Dim mystr
Dim mytype
Dim sRoot
Dim XXXXXXXX As Long

mystr = String$(255, Chr$(0))
mytype = String$(255, Chr$(0))
sRoot = "c:\" '设定盘名
mylong = GetVolumeInformation(sRoot, mystr, Len(mystr), mySerial, 0, 0, mytype, Len(mytype))

'mySerial 为C盘序列号

if mySerial <> XXXXXXXX then end ‘在这里比较一下就可以了

End