[VB6] "Autodistruzione" programma...

[dvde]

Ciao a tutti,

per motivi di sicurezza dovrei creare un semplice programma in visual basic che una volta avviato si chiuda automaticamente dopo un tot di tempo, e una volta chiuso non sia in nessun modo possibile riaprirlo...

E' fattibile?
Non intendo creare nessun virus o cosa illegale, solo un programma che una volta aperto dia la possibilità ad una persona di leggere un valore alfa-numerico, che poi per la mia sicurezza si cancelli.

Grazie

[oregon]

http://forum.masterdrive.it/visual-b...ogramma-28041/

[dvde]

eddai, due teste sono meglio di una...
:quote:

[alka]

Al termine del programma A, lancia un programma B che elimina A.

E' comunque un metodo del tutto approssimativo se interessa la "sicurezza"...

[xegallo]

Originariamente inviato da oregon
http://forum.masterdrive.it/visual-b...ogramma-28041/

e il problema quale sarebbe??? mica è l'unica risorsa della rete

[dvde]

Originariamente inviato da alka
Al termine del programma A, lancia un programma B che elimina A.

E' comunque un metodo del tutto approssimativo se interessa la "sicurezza"...

sapresti dirmi come fare?
sono un novellino...
grazie

[CrazyKing_max]

Mettiamo che il programma che deve essere distrutto si chiama programma.exe e quello che deve eseguire la distruzione si chiama killer.exe. Mettiamo che siano entrambi nella stessa cartella.

Mettiamo che il timer dell'applicazione principale programma.exe si chiami Timer1. Allo scadere del tempo del Timer1 verrà avviata l'applicazione killer.exe che eliminerà il programma programma.exe

Nell'evento Form_Load dell'applicazione inserisci le seguenti istruzioni:

Private Sub Form_Load ()

'Disabilita il timer per resettarlo
Timer1.Enabled=False

'Imposta il tempo del timer
Timer1.Interval=10000

'Avvia il timer
Timer1.Enabled=True

End Sub

NOTA: in questa stringa di codice il timer è stato impostato a 10 secondi. Per impostare un intervallo personalizzato, modifica il valore dopo Timer1.Interval= . Tieni conto che il valore è espresso in millisecondi: 1000 equivale a 1 secondo.


Nell'evento Timer1_Timer dell'applicazione inserisci la seguente stringa:

Private Sub Timer1_Timer()

'Esegue il programma distruttore
Shell App.Path & "\killer.exe"

'Chiude l'applicazione
End

End Sub

Compila l'applicazione col nome di programma.exe e chiudi il progetto.

Crea un nuovo progetto VB che si riferisca all'applicazione killer.exe
Una volta aperta, l'applicazione killer.exe aspettarà 3 secondi prima di eseguire l'eliminazione del file programma.exe. In questo modo daremo il tempo di chiudersi a programma.exe ed eviteremo errori.
Nel progetto di killer.exe crea un oggetto Timer che chiameremo Timer

Nell'evento Form_Load incolla:

Private Sub Form_Load()

'Disabilita il timer per resettarlo
Timer.Enabled=False

'Imposta il tempo del timer a 3 secondi
Timer.Interval=3000

'Abilita il timer
Timer.Enabled=True

End Sub

Nell'evento Timer_Timer copia il seguente testo:

Private Sub Timer_Timer ()
'Elimina l'applicazione principale programma.exe
Kill App.Path & "\programma.exe"

'Chiude l'applicazione killer
End

End Sub

A questo punto compila l'applicazione killer.exe nella stessa cartella di programma.exe
Dovrebbe funzionare, ma non ne sono sicuro.