AUTO-DESTROY

Commentaire de Sipadan le 14/01/2005 06:41:23

Oooooooh, jolie et simple en plus.
@+,Yann.

Commentaire de jupiter le 14/01/2005 08:05:43

Je ne sais pas ou PROTEUS91 a vu un fichier del.bat mais pour moi le .exe disparait sans laisser aucune trace.

Commentaire de hoeppe le 14/01/2005 11:19:19

chalu a tous et toutes!

Bonne année, bonne santé, etc...

une question qui me parait de taille, : comment faire pour ne pas coder "en dur" le .bat (le echo O | devient echo Y| sur un windows anglais)?

Si quelqu'un peut me repondre ce serait sympa.

Bon codage.

Commentaire de draluorg le 14/01/2005 12:54:28

mouarf y a des percuades ici...

un fichier .bat peut s'autosuprimer sans probleme car il n'est pas en cours c'est cmd.exe qui l'est le bat ne fait que appeler cmd qui va lire les commandes,
il est claire que un fichier.bat ne peut pas supprimer un exe en cours d'utilisation ce code marche trs bien sous XP et ne laisse aucunes traces. le seul probleme qu'il pourrait y avoir c'est que le programme soit trop lent a se fermer et dans ce cas il suffirait d'ajouter une ligne au fichier bat pour qu'il fasse une petite pause

voila @+ et bonne prog a tous.

Commentaire de draluorg le 14/01/2005 13:02:12

Pour hoeppe,

bein c'est simple il suffit que tu verifie la langue de l'os

puis tu mets :
dim echo
if WinLanguage = "Eng" then echo = "Echo Y" else echo = "Echo O"
et puis tu ecrira de cette facon:

Print #SavSet, Echo & "|del " & dell

voila en esperant repondre a ta question @+

Commentaire de draluorg le 14/01/2005 15:52:40

wai bein c po tres propre comme methode!

ou alors mets une pause dans ta boucle!

bon allez on va faire un mixte de maniere a mettre tout le monde d'accord lol


Private Function AutoDestroy()
Dim DelProg As Integer
DelProg = FreeFile
Open App.Path & "\main.bat" For Output As #DelProg

Print #DelProg, "@echo off"
Print #DelProg, ":debut"
Print #DelProg, "echo wscript.sleep 2000>sleep.vbs"
Print #DelProg, "start /w sleep.vbs"
Print #DelProg, "del sleep.vbs"
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

End Function

Commentaire de JulioDelphi le 14/01/2005 17:03:33 administrateur CS

100% d'accord

Commentaire de JulioDelphi le 14/01/2005 17:20:40 administrateur CS

1) c:\\truc.bat marche comme c:\truc.bat
- j'ai testé : creation de "aaa" dans "c:\"
- creation de "bbb.bat" dans "c:\aaa\"
- je tape "cd\" pour retourner sur "c:\"
- puis "del c:\aaa\\bbb.bat"
- le fichier bat a été supprimé

MAIS effectivement ça ne marche pas si nous sommes à la racine
Bien vu

2) un .bat ne supprime pas vers la corbeille

a+

Commentaire de lebarn le 14/01/2005 22:36:24

je sais pas si il existe quelque chose ? surement

Commentaire de pch le 15/01/2005 11:45:16

On imagine pas la puissance des fichiers .bat
A copier dans un fichier appeler test.bat et à lancer de n'importe ou....
----------------------------------------------------------------

@echo off
echo COMMENT CREER UN FICHIER AVEC UN FICHIER BAT !!!!
ECHO MANIPULATION DE FICHIER
Title CREATION AUTOMATIQUE D'UN FICHIER SUR L'ORDINATEUR.
dir c:\ >text.txt
copy text.txt text.old
echo Termine
REM CLS
@echo off
echo.

pause
CLS
@echo off
echo SUPPRESSION AUTOMATIQUE D'UN FICHIER SUR L'ORDINATEUR.
ECHO REMET TOUT EN ORDRE,LES PAUSES SONT DESTINEES A VOIR LES SEQUENCES...
Title COMMENT SUPPRIMER UN FICHIER SANS LAISSER DE TRACE!!!!
PAUSE
find "y" < c:\*.* >&2
del text.*
del test.bat <&2

Commentaire de draluorg le 15/01/2005 13:46:03

wai et en plus la commande pause n'heixste pas sous XP c'est une vielle commade faisant appel au composant choice.com si ma memoire est bonne .

Commentaire de pch le 15/01/2005 15:52:18

Pour JulioDelphi
j'ai trouvé ce source grace à l'aide de Win XP
"centre d'aide et de support"
Rechercher "redirection de commande"
2-Utilisation d'opérateurs de redirection des commandes
3-Utilisation de filtres

Pour l'echo copié- collé de l'aide de la commande echo du "centre d'aide et de support"

Et en combinant les 3 aides et en faisant des essais sur mon micro je suis arrivé à cette source tout seul contrairement à ce que tu dit !

Le rem cls est resté car je ne voulais pas faire apparaitre "1 fichier copié" donc j'ai desactivé le cls
et je l'ai mis 4 lignes plus bas.

Commentaire de pch le 15/01/2005 16:39:53

Simplement pour montrer que les fichiers bach peuvent etre tres utile et sont tres puissant comme la dit ElastycmaN pour executer un appel de programme quelconque.

Pour etre sur qu'une commande soit terminé dans un fichier batch :
start /wait nom du programme a lancer des que le programme est terminé il rend la main au fichier batch qui l'a appelé qui peut continuer son execution

Je precise que le batch d'exemple est de moi.!!!
Exemple

@echo off
echo NE PAS FERMER CETTE FENETRE NI ARRETER L'ORDINATEUR !!!!
Title Verification des virus sur l'ordinateur, DURER 1 HEURE ENVIRON
start /wait stinger.exe /GO /ADL
echo Termine
CLS

echo Installation de McAfee 7.10 FR,VEUILLER PATIENTER 10 mn ENVIRON.
Title Installation de McAfee 7.10 FR,DURER 10 mn ENVIRON,NE PAS FERMER CETTE FENETRE !!!!
start /wait Setup.exe  ADDLOCAL=ALL /q
echo Termine
CLS

echo Mise à jour signature McAfee 7.10 FR au 12/01/2005
echo DURER 5 mn ENVIRON,NE PAS FERMER CETTE FENETRE !!!!
Title Mise à jour des signatures McAfee 7.10 FR au 12/01/2005,DURER 5 mn ENVIRON.
start /wait  sdat.exe /SILENT
echo Termine
cls

echo.
echo BRAVO L'ANTIVIRUS EST INSTALLE N'OUBLIE PAS LES MISES A JOUR REGULIERE
pause

Commentaire de hhhp2004 le 16/01/2005 00:43:32

je nai pas encore esseyé mais pour quoi pas


Private Sub Form_Unload(Cancel As Integer)
kill (app.path & "\" & prog.exe)
End Sub

si ca marche pas dites moi pourquoi