要防止程序被拷貝，可以使用一些保護措施來加密程序代碼或資源。以下是一個簡單的例子：
```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文件，這個是我想到的最簡單的辦法了。
代碼不復雜，網上都有，你自己百度吧 ，這樣就不用防拷貝了，別人拿去在別的電腦上也不能用。