• Regolamento Macrocategoria DEV
    Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!

Guida Creare programma a pagamento

Brook

Utente Attivo
Autore del topic
30 Agosto 2009
372
0
Miglior risposta
0
Ecco un altra guida.
Preciso che è mia.

1)Aprite VB6 e mettete EXE Standard
3)Mettete una text nascosta che servirà a contare gli avvii del programma
2)Nell'evento form load del form mettete questo codice:
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
Con questo abbiamo finito... ho messo che ad un solo avvio il trial è finito ma voi lo potete prolungare seguendo il mio esempio e per il pagamento mettete nella formpagamento un webbrowser che manda alla vendita del vostro programma su qualche sito..
 
Tutti che dite "Bello" "Bravo" ma l'avete provato almeno? :°°:
Non funziona..da errore in 3 stringhe :emoji_relieved:

Dim leggi as string
On error resume next
Open App.path "\nomefile.ini" for input as #1
Input, leggi

Close #1
textnascosta.text = leggi
If textnascosta.text = 0 then
Open App.path "\nomefile.ini" for Output as #1
Print #1, "1"
if textnascosta.text = 1 then
MsgBox "La versione di prova è scaduta, se si vuole continuare comprare la nuova"
Form1.disabled = true
formpagamento.show
Close #1

2dha3bo.png
 
Ultima modifica:
Facile ce anche un modo piu semplice ;) ad esempio volete fare soltanto un minuto? semplice

VB2008

*create un label
*timer intervallo 1000
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!

per qeulli ke non anno capito il timer con intervallo 1000 equivale a un secondo qundi il label ogni secondo avanza di 1 e quando arriva a 60 si stoppa tutto naturalmente se volte mettere 2 minuit cambiate il 60 in 120 ecc...e mettete visible false al label


Molto piu semplice ma utile anche la tua :emoji_smiley:


CODIVE SCRITTO AL VOLO CONTROLLARLO XD