Auto destruction [Résolu]

Signaler
Messages postés
27
Date d'inscription
lundi 12 septembre 2005
Statut
Membre
Dernière intervention
1 février 2006
-
Messages postés
439
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
-
Bonsoir à tous

Je cherche un procédure permettant sur un événement quelconque (clic de bouton ou date dépassée ...) d'effacer le code du logiciel. C'est à dire que je voudrais que tout le code du logiciel soit physiquement effacé. Ou meme mieux, carrément les formulaires si c'est possible.

Merci de vos suggestions

Yann

2 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
15
Salut,

Un code sùrement péché sur codes-sources mais je ne me souviens pas de l'auteur ni du numéro de code, s'il se reconnait... :

Dim DelProg As Integer
DelProg = FreeFile
Open App.Path & "\main.bat" For Output As #DelProg
Print #DelProg, "@echo off"
Print #DelProg, ":debut"
Print #DelProg, "del """ & App.Path & "" & App.EXEName & ".exe"""
Print #DelProg, "if exist """ & App.Path & "" & App.EXEName & ".exe""" & " goto debut"
Print #DelProg, "del """ & App.Path & "\main.bat"""
Close #DelProg
Shell App.Path & "\main.bat", vbHide


Dim f As Form
For Each f In Forms
Unload f
Next

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
439
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
1
Qui est ? :D
ça sent un peu le troll la non ?
</xsl:termination>