[VB6] Richiesta password (e sua memorizzazione)

[Magicolotto]

si ma il mio codice ID e diverso daltuo
a me per esemio risulta
123456
da qui poi faccio OPERAZIONI MATEMATICHE

[Magicolotto]

CMQ non ho capito come memorizzare il file

[MdE2005]

E cosa ti viene fuori dalle tue operazioni matematiche? Che password bisogna inserire per entrare nel programma? Mettiamo che compro il programma e tu mi dici la password..cosa c'entra l'identificativo?! C'entrerebbe se volessi far usare il programma SOLO ad un pc (o di quanti sai l'identificativo..), giusto?

Cmq:
Indirizzo = "C:\windows\desktop\file.sys"
Password = "Parola Chiave"
Open Indirizzo for Output as #1
print #1,Password
close #1

è semplice..ciao

[Magicolotto]

si lo voglio far usare solo ad un pc...

[XWolverineX]

Originariamente inviato da Magicolotto
provo e ti diro'
per gli spazi bianchi ci penso io ..... li elimino almeno ci provo


si il codice ide univoco per ogni pc, per cambiarlo devi formattare, viene ricavato dentro i file di rregistro

con una operazione matematica lo cambio...cosi otterrro' la password

Ma poco sopra ti ho scritto come togliere i trattini e unire tutto in un'unica stringa.
Usa quello, no?

[Magicolotto]

Originariamente inviato da XWolverineX
Ma poco sopra ti ho scritto come togliere i trattini e unire tutto in un'unica stringa.
Usa quello, no?

non va ecco come la scrivo

Codice = Replace(pwd, "-", "")

per i trattini iniziali e finali usavo questo " Trim"

per quelli intermedi nonva...

[MdE2005]

Senza scriverti il codice (perchè hai scritto che volevi provare da solo) ti do qualche indizio:
- crea un ciclo for/next che estrapoli i caratteri uno ad uno
- all'interno del ciclo inserisci un If (SE il carattere estratto è uno spazio ALLORA esci dall'if e vai avanti col ciclo; SE invece non è ALLORA memorizza tutto in una variabile) es. stringa = stringa & carattere estratto.

In questa maniera risolverai il problema.. L'intuizione di usare Replace è buona, ma immettendo "" come carattere sostitutivo visual basic lo interpreta come Nothing, cioè niente sostituzione..ciao

[Magicolotto]

niemnte nn ci riesco
ho messo cosi per salvare il file


Dim file As String
Dim file As String

Open "C:\windows\desktop\file.sys" For Output As #1
Print #1, password
Close #1

[oregon]

Non ci riesco cosa vuol dire?

Hai degli errori? Se sì, quali?

Nel file non viene memorizzata la password?

Nel codice che hai mostrato, ci sono due righe uguali (e questo e' ovviamente un errore)

Dim file As String
Dim file As String

Per il resto ovviamente, C:\windows\desktop e' un percorso che non esiste ...

[Magicolotto]

ciao oregon

si ho sbagliato, il percorso era fittizio lo sapevo

ho messo cosi

dim password as string l'ho tolta xchè mi diceva dichiarazione doppia
Dim file As String
Open "C:\Programmi\Microsoft Visual Studio\VB98\miei file\password.sys" For Output As #1
Print #1, password
Close #1

cmq sia. funziona nel senso che il fil viene salvato nel percorso che glii si da..... pero ho notato che riaprendo il programma cerca sempre la stessa password, bisognerebbe che esso prima di cercarla all'utente vada a vedere prima se ce quel file.....???

giusto

grazie