随便创建一个VB的EXE小程序，需要防拷贝，应在程序中添加什么代码，请留下代码。

要防止程序被拷贝，可以使用一些保护措施来加密程序代码或资源。以下是一个简单的例子：
```vb
' 定义一个用于加密和解密的函数
Private Declare Function SetCoercibleData Lib "user32" (lpBuffer As String, cch As Long, bCoercible As Long) As Long
Private Declare Function GetCoercibleData Lib "user32" (lpBuffer As String, cch As Long, lpResult As Long) As Long
Private Declare Function VirtualProtect Lib "kernel32.dll" ( lpAddress As Long, nSize As Long, flNewProtect As Long, flProtect As Long ) As Long
Private Declare Function VirtualQueryEx Lib "kernel32.dll" ( lpAddress As Long, lpBuffer As Long, nSize As Long, fl nadirection As Long ) As Long
' 定义一个全局变量用于存储加密后的代码
Private Declare Function GetModuleBase Lib "kernel32.dll" (ptr As Long) As Long
Private Declare Function VirtualProtectModule Lib "kernel32.dll" (ptr As Long, nSize As Long, flNewProtect As Long, flProtect As Long) As Long
Private Declare Function VirtualQueryEx Lib "kernel32.dll" (ptr As Long, lpBuffer As Long, nSize As Long, fl Nadirection As Long) As Long
Dim cBuffer As Long, cData As Long
On Error GoTo ErrorHandler
' 输入加密前的代码并加密
cBuffer = InputBox("请输入要加密的代码：")
cData = Len(cBuffer)
ReDim aBuffer(cBuffer), aBuffer(0)
aBuffer(0) = cBuffer
VirtualProtect (GetModuleBase智慧豆(.exe).Ptr, VirtualQueryEx(GetModuleBase智慧豆(.exe).Ptr, 100000, 0, 0).lpBuffer, VirtualQueryEx(GetModuleBase智慧豆(.exe).Ptr, 100000, 0, 0).cSize + 100000, 4294967291)
VirtualProtectModule(aBuffer, cData, 0, 0)
' 输出加密结果
Debug.Print "加密后的代码：", Join(aBuffer, vbLf)
' 解密并输出原始代码
VirtualProtect ModuleHandle, VirtualQueryEx(ModuleHandle, 100000, 0, 0).lpBuffer, VirtualQueryEx(ModuleHandle, 100000, 0, 0).cSize + 100000, 4294967291)
Debug.Print "原始代码：" & VirtualQueryEx(ModuleHandle, 100000, 0, 0).lpBuffer, vbLf
ErrorHandler:
'
Me.WindowState = vbNormalFocus
End Function
' 使用下面的代码调用上述函数进行加密和解密
Sub Test()
'
'
'
' 输入加密前的代码并加密
cBuffer = InputBox("请输入要加密的代码：")
cData = Len(cBuffer)
Cost_cBuffer(cBuffer)
' 输出加密结果
Debug.Print "加密后的代码：" & Join(aBuffer, vbLf)
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'

你好！

要防拷贝，只凭程序里面的代码，不能解决。应该另想办法，很复杂，简单办法不能解决。

我的回答你还满意吗~~

打包，即生成安装包

启动软件时，读取硬盘序号或者网卡序号，（事先把这些序号添加在原文件中）跟保存的序号对比，不对的就自杀EXE文件，这个是我想到的最简单的办法了。
代码不复杂，网上都有，你自己百度吧 ，这样就不用防拷贝了，别人拿去在别的电脑上也不能用。