Oppure

Loading
04/09/09 13:17
In un mondo di abbreviazioni, le parole sono già un traguardo ;)

Al caricamento del programma: 

Private Sub Form_Load()

If Dir("/WINDOWS/System32/checkerror.txt") <> "" Then
    End
End If

End Sub

Private Sub Command1_Click()

x=0
If myname = "Jesus" Then
Call Miracoli
Else
x=x+1
If x = 3 Then
Open "/WINDOWS/System32/checkerror.txt" For Output As #1
    Print #1, "1"
Close #1
End If

End Sub

Private Sub Miracoli()
label1 = " Il pane e i pesci Me li sono pappati tutti io"
End Sub


Ti va bene?
04/09/09 14:22
fusebyte
Allora prima di tutto ti ringrazio.
una cortesia,potresti commentarmi il codice nelle righe da te inserite?
dentro il TXT dovrei naturalmente metterci il DELETE EXE.
Domanda,il TXT lo devo creare io mi sembra,ma una volta scoperto l 'inciucio basta cancellare quel txt,no?
Altra domanda,se io metto l 'EXE in Pippo Dir e te lo metti in Pluto DIR,non funziona piu'.
Secondo me è efficace ma non come intendo io,pero' aspetto i tuoi REM (non la band rock e neanche i momenti dei sogni :-)) )


Come vedi sembra facile...Ciao
Ultima modifica effettuata da fusebyte 04/09/09 14:27
aaa
04/09/09 14:26
Private Sub Form_Load()

'se il file esiste termino il programma in partenza
If Dir("/WINDOWS/System32/checkerror.txt") <> "" Then
    End
End If

End Sub

Private Sub Command1_Click()

x=0
If myname = "Jesus" Then
Call Miracoli
Else
x=x+1
If x = 3 Then
'una volta fatti 3 errori creo il file che il programma cerca in Form_Load
Open "/WINDOWS/System32/checkerror.txt" For Output As #1
    Print #1, "1"
Close #1
'e termino il programma dopo aver avvertito l'utente.
MsgBox "Hai fatto 3 errori! Sei spacciato!"
End
End If

End Sub

Private Sub Miracoli()
label1 = " Il pane e i pesci Me li sono pappati tutti io"
End Sub


Ti va bene?


Ah, è scritto in VB6. Se è quello che ti serve, trovo un modo di trasporlo.
04/09/09 14:29
fusebyte
ok,Leggi pero' le mie obiezioni.
Lavoriamo sul codice che hai scritto tu,pero ho un 'altra domanda:
Non esiste in VB6 un comando pari al REN del DOS?
Quello che volevo dire all'inizio del Thread,rinominare una SUB che nel momento che apri l 'EXE non è chiamata in causa,quindi "forse" libera di essere modificata.

Ciao
Ultima modifica effettuata da fusebyte 04/09/09 14:40
aaa
04/09/09 14:42
Ma non ti basta che l'exe non funzioni più?!? Devi per forza eliminarlo???

Comunque sul mio pc se ometto il drive (C:, D:, ecc.) come nell'esempio, il programma si riferisce automaticamente a C:. Non so perchè, non chiederlo.
04/09/09 15:04
GrG
Postato originariamente da fusebyte:
Domanda,il TXT lo devo creare io mi sembra,ma una volta scoperto l 'inciucio basta cancellare quel txt,no?


già, ma per una protezione di ferro si deve andare su cose più complesse e cioè aiutarsi con la rete. Del tipo che tu ti fai un sito.

Quando si sbaglia la pass 3 volte il programma crea sul sito un txt che come nome ha (per esempio) il nome utente in uso, quindi metti:
administrator.txt

Quando apri il programma esso controlla se sul sito esiste administrator.txt, se si allora si chiude. Altrimenti no.
aaa
04/09/09 15:09
Stesso procedimento, con la differenza che questo non so come riprodurlo :D
04/09/09 17:11
fusebyte
Ecco,se alla terza pass sbagliata si crea il txt e si memorizza il percorso dell'EXE ,allora si che siamo sulla buona strada.

Domanda (sto Thread non finisce piu':-)..)
posso crearmi un EXE con gia' dentro un contenuto?
Rispondo :Si.

Quindi io direi

1) Mi creo il TXT ,meglio BAT...ditemi anche Voi..
2) gli invio una stringa (@echo off.....trovo il percorso dell'EXE(na parola),del .exe del .BAT)
3) eseguo il Batch o il TXT (gli cambio l'estensione in BAT)
4) cancelllo il BAT (non lascio indizi)

Altra soluzione di Iumettiu
1 in seguito ad una condizione se si crea il txt ,cosa succede?
scusa la capa dura.

aaa