我创建了一个基于 Excel 的 POS 系统。为了防止被盗版,我放置了一个激活按钮,该按钮运行一个宏,该宏获取主板的序列号并将其存储在工作表某处的单元格中。当您在客户的计算机(许可机器)中安装软件时,您会一次性执行此操作。
然后我在 ThisWorkbook 中编写了一个事件过程,它将获取计算机主板的序列号,并将其与之前为许可机器存储的序列号进行比较。如果软件被复制并在另一台机器上使用,当然不会匹配。用户将收到一条消息通知用户:“您已在另一台计算机上安装了该程序。对于许可版本,请联系等等。”当用户单击“确定”按钮时,工作簿将关闭。该项目已锁定以供查看。
因此,一旦工作簿被锁定在许可机器中并被复制并在另一台计算机上使用,用户将无法打开工作簿。
有没有办法让黑客通过我的安全程序?如果是这样,我该如何以及如何阻止它们?我还可以采取哪些其他方法来防止他人盗版我的软件?谢谢。
这是代码:
Private Sub Workbook_Open()
Dim LicensedMachine As String
LicensedMachine = Sheet1.Range("Z102") ''This is where you have already stored licensed machine's motherboard s.n.
If MBSerialNumber <> LicensedMachine Then ''Call function and check if current machine's motherboard s.n. matches the licensed machine's.
MsgBox Title:="EXCEL POS", Prompt:="You have installed program in another computer." & vbCrLf & _
"Contact R House at 0917-555-1234 or rjhouse@hotmail.com for licensed copy.", _
Buttons:=vbExclamation
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub