PureBasic

J'ai toujours le meme probleme au boulot j'ai les 2 fichiers qui restent "automodif.$$$"" et "copie.bat

Cela ne te le fait pas chez toi ????
J'suis dégouté, ça peut venir d'ou ?????

Tu as raison je n'ai pas testé et comme d'hab....

J'avais inversé :

WriteStringN(0,"del c:\automodif.$$$") ;<<<<<<<<<< Correction !!!
et
WriteStringN(0,"del c:\copie.bat")

de se fait le fichier s'autodetruisait avant de detruire le .$$$

J'ai fait la modif et ça marche chez moi j'ai testé !

Désolé !

ATTENTION : !!!!!!!!!!

Il faut impérativement compliler le automodif.exe dans la racine de C:\ !!!!

Sinon modifier le code en consequence !!!

Kwai chang caine a écrit :Que veux tu dire mon cher DOBRO ????
A en voir tes quenottes en pleine action, je pourrais croire que ce code ne peux pas marcher ???

non ! au contraire , ce qui me met sur le cul , c'est l'astuce utilisée !
le fait de passer par le Dos, et surtout je ne savais pas
que l'on pouvait utiliser ça :

Code : Tout sélectionner

*Prog = AllocateMemory(16000)
ReadData(0, *Prog, Lof(0))

qui reste encore un mystere , je ne comprends pas pourquoi ça marche !

(meme pas mal !!

)

Bah sur ce PC j'ai toujours mes irreductibles petits gaulois de fichiers

J'ai testé pourtant tes 2 codes , le commenté et le premier et NIET

L'exe mémorise bien la phrase mais obélix et astérix sont toujours la.
Si ça ne le fait pas chez toi, je voit pas pourquoi

Kwai chang caine a écrit :Bah sur ce PC j'ai toujours mes irreductibles petits gaulois de fichiers

J'ai testé pourtant tes 2 codes , le commenté et le premier et NIET

L'exe mémorise bien la phrase mais obélix et astérix sont toujours la.
Si ça ne le fait pas chez toi, je voit pas pourquoi

Remplace "del" par "ERASE"

et si ça marche pas

remplace par DEL /F

Appelle moi ** ** ** ** **

`[message MODIFIE par Dobro :]

Brossden: pour ne pas etre embeté utilise les messages privé
pour transmetre tes coordonées telephonique

dans ce but j'ai préferé modifier ton message

désolé

mais c'est pour toi , tu sais qu'apres cela peut apparaitre n'importe ou grace au moteur de recherche
et apres tu vas etre embeté par les agence de pub et autres connards

Ok merci Dobro

Mais je répète il faut IMPERATIVEMENT COMPILER SUR "C:\automodif.exe" !!!!!

Bah, la je comprend rien de rien

(C'est pas nouveau tu va me dire

)

Erase = Marche pas
Del = Marche pas
Dek / F = Marche pas

Comme je suis au boulot, et que parfois les PC sont zarebi, j'ai fait un CMD et sous le pseudo DOS, je fait DEL copie.bat et la ça marche

J'essaierais chez moi parce que la a moins que quelqu'un sorte le pinous de dans le chapeau, je comprend pas le phenomene.

Moi j'aurais bien penché sur une question de timer entre chaque instruction, mais l'avis d'un amateur n'a pas des masses de poid

Je t'ai fait parvenir un message privé !!

Question poids je fais 140 Kg alors tu risques d'être un peu léger

essaye ça alors

Code : Tout sélectionner

WriteStringN(0,"cmd/c del c:\automodif.$$$") ;<<<<<<<<<< Correction !!!
WriteStringN(0,"cmd/c del c:\copie.bat")

ou bien ça :

Code : Tout sélectionner

WriteStringN(0,"cmd/c"+Chr(34)+"del c:\automodif.$$$"+Chr(34)) ;<<<<<<<<<< Correction !!!
WriteStringN(0,"cmd/c"+Chr(34)+"del c:\copie.bat"+Chr(34))

@Dobro

Excuse moi de ne pas avoir repondu tout de suite, mais j'etais en "conf telephonique"

avec le gentil BROSSDEN.

Il a trouvé le bleme, dans la ligne

Code : Tout sélectionner

RunProgram("c:\copie.bat","","c:\",#PB_Program_Hide)

il faut supprimer le #PB_Program_Hide

et la ça marche....
Enfin à mon boulot en tout cas.

Code : Tout sélectionner

RunProgram("c:\copie.bat","","c:\", 0)

Voila encore merci de ton aide

@BROSSDEN

Je n'avais pas lu, mais on est du meme gabaris, je te bat de 6 kg au dernieres nouvelles de ce matin

Je sais je ne devrais pas etre si fier, mais ce doit etre le seul domaine ou je peux te battre

Encore merci de ta sympathie et de ta gentillesse.

Pour Kwai chang caine

Un code pour lire tes datas sans connaitre leurs longueurs ni le nombre des datas !!

Code : Tout sélectionner

DataSection

Data.s "$0123456789$" 
DataDeb: ; Adresse du debut de la zone des datas
Data.s "Coucou c'est moi " 
Data.s "Ceci est un test "
Data.s "Ligne numéro 3   "
Data.s "Ligne suivante   "
Data.s "Encore un ligne  "
DataFin: ; Adresse de fin de la zone des datas Inutilisé ici !
Data.s "Fin"
EndDataSection

Restore DataDeb
Read Suite.s
Repeat
  Text.s +  Suite.s 
  Read Suite.s
Until Suite="Fin"
Debug Text

Kwai chang caine a écrit : Je n'avais pas lu, mais on est du meme gabaris, je te bat de 6 kg au dernieres nouvelles de ce matin

si je comprends bien tu dois plus ressembler a ça :

@DOBRO

Ouaaahhh, j'm'était meme pas reconnu.

En fait, j'suis plutot comme ça

A défaut d'etre maitre en kung-fu je le serais peut etre en SUMO

@BROSSDEN

Merci pour ton code, je l'essaierais des que possible

PureBasic

Txt inclus dans un exe [Résolu]