Io non li ho mai visti. Al massimo dei software che danno una chiave per attivare un periodo di prova (TRIAL).
--------------- AGGIUNTA AL POST ---------------
Io non li ho mai visti. Al massimo dei software che danno una chiave per attivare un periodo di prova (TRIAL).
Ultima modifica da un moderatore:
i
Mi servirebbe pure quello per i trial,ma mi serve prima quello per le beta. un esempio lo puoi trovare http://www.sciax2.it/forum/visual-basic/bulake-browser-topic-ufficiale-296093.html in cui danno una beta key, un seriale per poter usare la beta. da quanto ho visto in topic vecchi si usa il database mysql
Mirko185
<b>Assistente Tecnico Onorario</b>
Mmh, non ho ben capito a cosa dovrebbe servire sta key.
Tu gli dai il programma, e per farlo funzionare deve inserire una KEY? e che ci vuole...
Crei 2 form, di cui 1 è dove deve inserire la KEY.
Dopo che ha inserito la key ed è esatta, il programma automaticamente crea un file in una cartella e dopo il riavvio, se quel file esiste, non chiede dinuovo la KEY.
Tu gli dai il programma, e per farlo funzionare deve inserire una KEY? e che ci vuole...
Crei 2 form, di cui 1 è dove deve inserire la KEY.
Dopo che ha inserito la key ed è esatta, il programma automaticamente crea un file in una cartella e dopo il riavvio, se quel file esiste, non chiede dinuovo la KEY.
Peggio dei down ma tutti eh ?! Lui intende un software che genera un seriale per un determinato programma ad esempio il browser linkato sopra, ho creato una guida su come creare un keygen però ovviamente è da cambiare l'algoritmo per chi è esperto sà come fare T_T
Mirko185
<b>Assistente Tecnico Onorario</b>
allora
inserisci 2 textbox
e 1 button
sul button metti questo
If TextBox1.Text = "NOME UTENTE" Then 'Se caselladitesto1 è = a "NOME UTENTE" Allora
If TextBox2.Text = "Password" Then 'e Se caselladitesto2 è = a "Password" Allora
MessageBox.Show("Accesso Effettuato") 'MessaggioCasella con scritto "accessi effettuato"
Else 'Altrimenti
MsgBox("Errore", MsgBoxStyle.Critical) 'codice che vuoi tu
End If
End If
ciao
--------------- AGGIUNTA AL POST ---------------
oppure
allora puoi fare cosi
metti 2 textbox. 1 per username e 1 password
2 button per Accedi e un'altro con scritto Esci
2 label
e un'altro windows form e chiamolo form2.vb
Sul form_load metti
label1.visible=false
label2.visible=false
Dim fileesiste As Boolean
fileesiste = My.Computer.FileSystem.FileExists("C:\WINDOWS\username.")
Dim fileesiste1 As Boolean
fileesiste1 = My.Computer.FileSystem.FileExists("C:\WINDOWS\password.")
if fileesiste=false then
system.io.file.writealltext("C:\WINDOWS\username.","USERNAME CHE VUOI")
END IF
if fileesiste1=false then
system.io.file.writealltext("C:\WINDOWS\password.","PASSWORD CHE VUOI")
end if
Sul button1 metti
label1.text=my.computer.filesystem.readalltext("C:\WINDOWS\username.")
label2.text=my.computer.filesystem.readalltext("C:\WINDOWS\password.")
if textbox1.text = label1.text then
if label2.text=label2.text then
form2.show
msgbox("Accesso effettuato con successo",msgboxstyle.information)
else
msgbox("Accesso Negato")
Sul button esci metti
End oppure me.close
ciao spero di esserti stato di aiuto
--------------- AGGIUNTA AL POST ---------------
qui c'è un errore
fileesiste = My.Computer.FileSystem.FileExists("C:\WINDOWS\user name.")
Dim fileesiste1 As Boolean
fileesiste1 = My.Computer.FileSystem.FileExists("C:\WINDOWS\pass word.")
su user name deve essere scritto username e su pass word deve essere scritto password
inserisci 2 textbox
e 1 button
sul button metti questo
If TextBox1.Text = "NOME UTENTE" Then 'Se caselladitesto1 è = a "NOME UTENTE" Allora
If TextBox2.Text = "Password" Then 'e Se caselladitesto2 è = a "Password" Allora
MessageBox.Show("Accesso Effettuato") 'MessaggioCasella con scritto "accessi effettuato"
Else 'Altrimenti
MsgBox("Errore", MsgBoxStyle.Critical) 'codice che vuoi tu
End If
End If
ciao
--------------- AGGIUNTA AL POST ---------------
oppure
allora puoi fare cosi
metti 2 textbox. 1 per username e 1 password
2 button per Accedi e un'altro con scritto Esci
2 label
e un'altro windows form e chiamolo form2.vb
Sul form_load metti
label1.visible=false
label2.visible=false
Dim fileesiste As Boolean
fileesiste = My.Computer.FileSystem.FileExists("C:\WINDOWS\username.")
Dim fileesiste1 As Boolean
fileesiste1 = My.Computer.FileSystem.FileExists("C:\WINDOWS\password.")
if fileesiste=false then
system.io.file.writealltext("C:\WINDOWS\username.","USERNAME CHE VUOI")
END IF
if fileesiste1=false then
system.io.file.writealltext("C:\WINDOWS\password.","PASSWORD CHE VUOI")
end if
Sul button1 metti
label1.text=my.computer.filesystem.readalltext("C:\WINDOWS\username.")
label2.text=my.computer.filesystem.readalltext("C:\WINDOWS\password.")
if textbox1.text = label1.text then
if label2.text=label2.text then
form2.show
msgbox("Accesso effettuato con successo",msgboxstyle.information)
else
msgbox("Accesso Negato")
Sul button esci metti
End oppure me.close
ciao spero di esserti stato di aiuto
--------------- AGGIUNTA AL POST ---------------
qui c'è un errore
fileesiste = My.Computer.FileSystem.FileExists("C:\WINDOWS\user name.")
Dim fileesiste1 As Boolean
fileesiste1 = My.Computer.FileSystem.FileExists("C:\WINDOWS\pass word.")
su user name deve essere scritto username e su pass word deve essere scritto password
Ultima modifica:
