Seguridad Anticopias en VB6 "El Proyecto" por (Geovanny Avila)

[GeoAvila]

tenes razon lo que pasa es que es un numero de serie de disco duro muy grande estonces probamos con otra operacion aritmetica para que se nos facilite la vida con la suma
de esta manera...

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)
    numSerie = -1063588139
    Reg1.Text = GetSetting(App.Title, Me.Name, Reg1.Name, vbChecked)
    Reg2.Text = GetSetting(App.Title, Me.Name, Reg2.Name, vbChecked)
    Reg3.Text = GetSetting(App.Title, Me.Name, Reg3.Name, vbChecked)
    registro.Caption = (numSerie + 1500) & "#" & (numSerie + 1600) & "#" & (numSerie + 1900)
    If (Val(Reg1.Text) = (numSerie + 1500)) And (Val(Reg2.Text) = (numSerie + 1600)) And (Val(Reg3.Text) = (numSerie + 1900)) Then
    MsgBox "PROGRAMA Registrado"
    Else
    MsgBox "programa  NO Registrado"
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, Me.Name, Me.Reg1.Name, Me.Reg1.Text
SaveSetting App.Title, Me.Name, Me.Reg2.Name, Me.Reg2.Text
SaveSetting App.Title, Me.Name, Me.Reg3.Name, Me.Reg3.Text
End Sub

nos vemos...