Salve a tutti, ho finalmente terminato il mio software con aggiunta di codice per un attivazione trial e completa, per far questo ho creato una .dll che se presente all'interno della cartella dove è stato avviato il programma, il software si avvia e si può registrarlo e provarlo gratis, ovviamente c'è un problema, se si toglie la .dll il programma riscontra un errore con "Errore non gestito dall'applicazione" ma se premo su continua si può dire che il software è bello e crackato perché non è più possibile attivarlo, ma è possibile provarlo gratis infinitamente, e ovviamente premendo sul tasto trial il programma riporta sul software principale. Avevo pensato di risolvere il problema attraverso un installatore "Install Creator Pro" così facendo facevo installare il programma con relativa .dll in una cartella dell'hardiks specificando anche il percorso di installazione, e in tal modo si aveva solo l'icona del programma principale sul desktop, anche questo modo però non ha funzionato, dove sbaglio? Questo è il codice:
Imports Microsoft.Win32
Public Class Form1
Dim times_used As Integer = My.Settings.Times_used
Dim max_limit As Integer = 7 'Set the maximum number of times he can use here.
Dim janee As Boolean
Dim dll As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists(Application.Star tupPath & "\AbvgLib.dll") = True Then janee = True
If My.Computer.FileSystem.FileExists(Application.Star tupPath & "\AbvgLib.dll") = False Then janee = False
dll = My.Computer.FileSystem.ReadAllText(Application.Sta rtupPath & "\AbvgLib.dll")
If My.Settings.Registered = Color.DarkKhaki And dll = "Reg = Zafdfhsthdh213221212fg35312g35bs1b3b3f5df5fg3j2hsd f36gqs" Then
Timer1.Start()
Me.Visible = False
Me.Hide()
Form3.Show()
Else
If My.Settings.Times_used = max_limit Then
Label2.Text = "Tu hai 0 Tempi di prova."
Button2.Enabled = False
Else
Label2.Text = "Tu hai " & max_limit - times_used & " tempi di valutazione."
If My.Computer.FileSystem.FileExists(Application.Star tupPath & "\AbvgLib.dll") = False Then
My.Computer.FileSystem.WriteAllText(Application.St artupPath & "\AbvgLib.dll", "Times used : " & times_used & vbCrLf & "Times remaining : " & max_limit - times_used, False)
Else
My.Computer.FileSystem.WriteAllText(Application.St artupPath & "\AbvgLib.dll", "Times used : " & times_used & vbCrLf & "Times remaining : " & max_limit - times_used, False)
End If
My.Settings.Times_used = My.Settings.Times_used + 1
My.Settings.Save()
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Hide()
Me.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Attenzione non tentare di manomettere il prodotto con crack o altri tipi di crepe, il software è di per se grauito per questo invitiamo a tutti gli utenti che utlizzano tale applicazione, ad attivarla scaricando un seriale originale da 8Games", MsgBoxStyle.Exclamation, "Avviso")
Form3.Show()
Me.Hide()
End Sub
End Class
Questo è quanto scritto, in poche parole la mia richiesta è:
Come avviare il software senza la .dll non avendo errori e con un corretto funzionamento?
Non riesco a venirne a capo, aspetto risposte grazie e spero che rispondiate.



Rispondi quotando