Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Rinominare una Funzione
Forum - Visual Basic 6 - Rinominare una Funzione - Pagina 7

Pagine: [ 1 2 3 4 5 6 7 8 9 ] Precedente | Prossimo
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 13:35
Sabato, 05/09/2009
Mi fa piacere che qui si sia risolto, io invece mi dò all'analisi del perchè da me funziona senza lettera di unità... E continua a funzionare :D

Per aggiungere una chiave che avvii un bat... Non mi era venuto in mente -.-" Io avevo semplicemente aggiunto il comando DEL a RunOnce nel registro. E comunque a fare quelle cose c'è sempre il problema dei dannati doppo apici :grr:

Beh, vediamo l'altro topic... Comunque premetto che non ne so una mazza di MoveWindow, quindi non aspettarti troppo :D

PM Quote
Avatar
fusebyte (Normal User)
Expert


Messaggi: 332
Iscritto: 24/12/2008

Segnala al moderatore
Postato alle 13:54
Sabato, 05/09/2009
Per aggiungere una chiave che avvii un bat... Non mi era venuto in mente -.-" Io avevo semplicemente aggiunto il comando DEL a RunOnce nel registro. E comunque a fare quelle cose c'è sempre il problema dei dannati doppo apici  
------------------------------------------------------------------------------------------
Se hai qualche altra soluzione ben venga.

Ciao



Per MOVEWINDOW e SETWINDOWSPOS è praticamente tutto fatto.
C'è solo uno strano comportamento.Magari vedi la magagna.

Ultima modifica effettuata da fusebyte il 05/09/2009 alle 13:58
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 14:12
Sabato, 05/09/2009
Trovato!! Usi 2 exe: Uno del programma, e l'altro che lo cancella se è necessario, ma ad una condizione: Senza il secondo, il primo non funziona. Se non trova il secondo file, il tuo programma non va. Ho in mente anche qualcosa di più complesso e sicuro, ma il succo è questo... Il problema è che una persona, facendo più copie del tuo programma, può aggirare facilmente questo problema.

PM Quote
Avatar
fusebyte (Normal User)
Expert


Messaggi: 332
Iscritto: 24/12/2008

Segnala al moderatore
Postato alle 14:32
Sabato, 05/09/2009
Beh con INNOSETUP il secondo EXE lo posso andare ad installare dove voglio.
Certo è superabile,ma la prima volta chi lo sa?
..e non puo' piu' passarlo ad altri.

Ma tengo a precisare è solo una questione di vedere se si puo' arrivare a proteggere un soft,niente di piu',di solito i pochi soft che faccio li passo sempre volentieri,se è il caso di passarli.

Ciao

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 14:53
Sabato, 05/09/2009
Ah ok. Allora sì, che funziona. Beh, più di questo non mi viene in mente... Buon proseguimento :)

PM Quote
Avatar
fusebyte (Normal User)
Expert


Messaggi: 332
Iscritto: 24/12/2008

Segnala al moderatore
Postato alle 15:36
Sabato, 05/09/2009
ma ad una condizione: Senza il secondo, il primo non funziona. Se non trova il secondo file, il tuo programma non va.
----------------------------------------------------------------------------------------

Questa condizione come la si dovrebbe realizzare...non riesco ad immaginare come puo' essere un controllo e dialogo incrociato fra i due EXE



Ciao

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 15:38
Sabato, 05/09/2009
Esattamente come il fatto del txt. Aggiungi in Form_Load() principale un'altro blocco if con condizione Dir(percorsoexe) <> ""

PM Quote
Avatar
fusebyte (Normal User)
Expert


Messaggi: 332
Iscritto: 24/12/2008

Segnala al moderatore
Postato alle 16:03
Lunedì, 07/09/2009
ho un ulteriore problema,se do la user pass esatta,ogni volta che apro me la richiede e non va bene,diventa scocciante per chiunque.
Quindi devo usare
SAVESETTING e GETSETTING

codice
Codice sorgente - presumibilmente VB.NET

  1. Public x As Integer
  2. '
  3. Private Sub Form_Load()
  4. x = 0
  5. If Dir("C:\WINDOWS\System32\testo.txt") <> "" Then
  6.     End
  7. End If
  8. End Sub
  9.  
  10. Private Sub cmdLogin_Click()
  11. Dim a$, b$, C$, d$ ' il dollaro è STRINGA
  12.  
  13. C = GetSetting(APP.Title, "unformapp", a, Text1.Text)
  14. d = GetSetting(APP.Title, "unformapp", b, Text2.Text)
  15.   if x = 0 then ' obbligo a fare il controllo prima che x diventi 1 e chieda la pass
  16. If c = a And d = b Then
  17. fmrLogin.Visible = False
  18. Form1.Visible = True
  19. End If
  20.  End if
  21. a = "parapappa"
  22. b = "123456"
  23.  
  24.  
  25. If Text1.Text = a And Text2.Text = b Then
  26. SaveSetting APP.Title, "unformapp", a, Text1.Text 'Salva user
  27. SaveSetting APP.Title, "unformapp", b, Text2.Text 'Salva user
  28.   Unload Me
  29.   Sleep (2000)
  30. Form1.Visible = True
  31.    Else
  32. Text1.Text = "": Text2.Text = ""
  33. Form1.Visible = False
  34. x = x + 1
  35. '
  36. If x = 3 Then
  37. frmLogin.Visible = False
  38. Unload Me
  39. Open "C:\WINDOWS\System32\testo.txt" For Output As #1
  40.     Print #1, "1"
  41.       Close #1
  42.    End If
  43.   End If
  44. End Sub



Intendevo fare questo:
Al primo avvio il GETSETTING e vuoto quindi la condizione non si verifica e passa oltre
Chiede USER e PASS che vengono subito memorizzate da SAVESETTING se esatte,senno' vale il discorso dei 3 tentativi e poi non si apre piu'.
Ora al secondo AVVIO ,GETSETTING dovrebbe trovare cio' che cerca e dare FALSE al frmLogin
e TRUE al FORM1 senza piu' chiedere la pass.
Mi da errore su GETSETTING,evidentemente sbaglio e credo sia nella costruzione del contemuto di GETSETTING e SAVESETTING.

Grazie anticipate per l'aiuto
Ciao

Ultima modifica effettuata da fusebyte il 07/09/2009 alle 16:09
PM Quote
Pagine: [ 1 2 3 4 5 6 7 8 9 ] Precedente | Prossimo