Visual Basic - Anticopi

Soy un joven estudiante, y necesito proteger mi programa para que no resulte demasiado facil hacer copias.
Por el tema economico descarto soluciones por hardware.
Si alguien sabe como hacer para que un ejecutable de visual basic solo funcione en una maquina por favor que escriba un mail a [email protected]
Gracias a todos.

No se si sea lo que quieres pero una manera es comparar el numero de serie de la unidad de disco con un valor constante, este deberia ser un valor unico, no se si pueda ser copiado pero te garantiza un sistema "casi" anticopia. El codigo para recuperar el numero de serie del disco lo saque de www.ambsoftware.com, es este:

Escriba el siguiente código:

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, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)

Private Sub Form_Load()
Dim cad1 As String * 256
Dim cad2 As String * 256
Dim numSerie As Long
Dim longitud As Long
Dim flag As Long
Unidad = "C:\"
Call GetVolumeInformation(Unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
MsgBox "Numero de Serie de la unidad " & Unidad & " = " & numSerie
End Sub

Saludos desde Lima