[VB5/VB6] Versione dimostrativa di un proprio applicativo

[satriano]

Salve.
Una domanda forse insolita,
Se ho scritto un programma che io intento mostrare ad altri
ma come un demo, cioé con limitati accessi o per un tempo limitato
(un mese, o per 10 accessi), come posso fare?
Praticamente dopo il tempo concesso/ accessi consentiti il programma
non funzionerebbe più. Esiste una proprietà speciale o un codice speciale?
Quale? Grazie
satriano

[king64]

Per il visual basic puoi usare activelock , ossia un ActiveX freeware che ti aiuta nella distribuzione del tuo software . Poi ci sono anche altri programmi più sofisticati che ti aiutano nella creazione di trial dei tuoi file . Alcuni link li puoi trovare su questo post . Ciao

[alka]

Ho spostato la discussione nel subforum dedicato a Visual Basic; scrivi qui i tuoi quesiti su questo linguaggio d'ora in poi.

Ciao!

[Antagonista]

Prova con questo....

Inserendo questo codice viene scritta una chiave di registro
che ti consiglio di modificare.
Arrivati a 20 aperture il programma non parte più

'<< Il salvataggio viene memorizzato nel registro di sistema (Esegui -> regedit.exe) pertanto se
'<< volete ripristinare l'applicazione dovete cancellare la dword "RUNCOUNT" che si trova nel percorso
'<< HKEY_CURRENT_USER\Software\VB and VBA Program Settings\me\0

Sub Trial()

Apertura = GetSetting("me", "0", "Runcount")
G$ = Val(Apertura) + 1
Form1.Caption = (G$) & " volta che apri la mia applicazione!"

SaveSetting "me", "0", "RunCount", G$
If G$ > 20 Then
Messaggio = MsgBox("Il prodotto è scaduto, vuoi attivare il prodotto??!", vbYesNo, "IL periodo TRIAL è scaduto")
If Messaggio = vbYes Then
'{
'
'<< Istruzioni per richiedere la registrazione del prodotto
MsgBox "Qui verranno agginte delle funzioni per attivare il vostro prodotto!",
'{
End
Else
MsgBox "Tecnica molto utile per creare le applicazioni Trial?", vbDefaultButton4,
End
End If
End If


End Sub

Private Sub Form_Load()

Trial

End Sub


CIAO

[satriano]

Grazie a tutti.