Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Dopo aver inserito user e pass ,scompare il frmLogin e mi da
Error Run-Time 5
chiamata di Routine o Argomento non Valido
Quindi come penso sbaglio nel costruire GETSETTING e SAVESETTING e chissa' che altro...:-)
Infatti ,premo DEBUG e
Private Sub cmdLogin_Click()
Dim a$, b$, C$, d$
C = GetSetting(APP.Title, "unformapp", a, Text1.Text) <---errore
d = GetSetting(APP.Title, "unformapp", b, Text2.Text)
Ciao
Ultima modifica effettuata da fusebyte il 08/09/2009 alle 1:27
()
Newbie
Messaggi: Iscritto:
Postato alle 3:04
Martedì, 08/09/2009
Codice sorgente - presumibilmente VB.NET
PrivateSub cmdLogin_Click()
Dim a$, b$, C$, d$ ' il dollaro è STRINGA --> Grazie :D:D
C =GetSetting(APP.Title, "unformapp", "usr", Text1.Text)'modifico i valori
d =GetSetting(APP.Title, "unformapp", "pw", Text2.Text)
a ="parapappa"'questi vanno prima, o confronti c e d con due variabili vuote
b ="123456"
if x = 0 then
If c = a And d = b Then
fmrLogin.Visible=False
Form1.Visible=True
ExitSub'se non metti questa, fa comunque le operazioni relative a user e password
Open"C:\WINDOWS\System32\testo.txt"For Output As #1
Print #1, "1"
Close #1
EndIf
EndIf
EndSub
Sì, è proprio lì l'errore
Niente di preoccupante, comunque: Nel terzo argomento di GetSetting, togli la variabile e metti qualcosa tra "". Nel tuo codice, la variabile a assume un valore solo dopo la chiamata di GetSetting, il quale non può avere un argomento senza valore. Dammi retta, togli a e metti "quellochetiparebastachenonsiaunavariabile"
Cambia anche il secondo GetSetting e i SaveSetting, come da esempio... Ora dovrebbe funzionare
Ultima modifica effettuata da il 08/09/2009 alle 3:09
A te funziona?
A me continua a chiedere la pass,parlo della routine con user e pass esatte.
ffff...c'è sempre qualche cosa che ti deve far sbattere la testa.....
Ho controllato con REGEDIT il registro e le 2 chiavi usr e pw ci sono con i valori esatti.
Quindi il problema è il codice,forse ci sfugge qualcosa.
Ciao:-)
Ultima modifica effettuata da fusebyte il 08/09/2009 alle 4:38
No ,aspetta ,se premo il tasto senza inserire niente il soft di apre.
Quindi funziona.
Faccio la prova del 9
Inserisco user pass sbagliate 1 volta sola,dovrebbe sovrascrivere le 2 key nel registro.
Provo a riaprire solo col tasto,non dovrebbe permetterlo.
Vorrei fare solo una implementazione
SaveSetting APP.Title, "unformapp", "usr", 0 'modifico i valori
SaveSetting APP.Title, "unformapp", "pw", 0
Mi sono fatto un tasto click del genere per debuggare,azzero il registro e testo le funzionalita'.
Sai se è possibile controllare le 2 textbox user pass?
Intendo se qualcuno inserisce parole errate,si disabilita il tasto cmdLogin e si azzera il registro cosi torna il discorso dei 3 tentativi.
In pratica dovremmo leggere quello che scrive e confrontarlo prima che cliccki.
Dici è possibile?
Oppure piu semplicemente sai come disabilitare con un tasto il tasto cmdLogin?
Scusa ste richieste stravaganti ma sto pensando se c'è tutto o manca qualcosa.
Ciao
il codice di prima per i 3 tentativi si basava sul file... se hai cambiato idea e vuoi basarti sul registro si può fare, ma il codice va un pò cambiato...
per quanto riguarda disabilitare cmdLogin basta fare:
cmdLogin.enabled = false
Cmq GRG,quello che abbiamo fatto fino ad adesso rimane valido.
Non ho cambiato idea,c'era una lacuna sul ciclo che controlla la user pass valida
Il ciclo user pass sbagliate rimane sui 3 tentativi e poi file che blocca.
In pratica una volta inseriti user pass validi continuava a chiuderli ad ogni riapertura,
quindi abbiamo dovuto usare il registro.
non ha senso far inserire una user pass tutte le volte,se sono stati gia' inseriti correttamente.