bonjour et bonnes fêtes de fin d'année.
voila je suis en terminale info & gestion et donc on travail un peu sous quick basic, c'est pas mal comme programme.
chez moi je "m'amuse" à faire de petits aglos simple parceque pour le moment les euls choses que l'on a vu ce sont les commandes : PRINT, INPUT, CLS, IF;then;else;END IF, While;Wend, for i = * to n;next i, do;loop until, color *.
ça limite quand même les possibilités de sortir un programme .
voila donc en ce moment je me fais un pti algo qui me permettra d'envoyer un message sur mon réseau (net send) quand on lance l'algo, on inscrit soi le nom du reseau, soi le nom de la machine distante, ensuite on met le message et voila.
mon problème est que je voudrais que lorsque j'écri le nom de la machine ou du réseau, il soit tout de suite envoyer dans un document "traitement.txt", afin que les informations entrées soient récupérées par "cmd.exe" pour qu'il envoi le message.
ensuite je veux que le document "traitement.txt" redevienne vierge, pour que je puisse envoyer d'autres messages.
je sais que je m'explique mal je suis désolé, peut etre que cela parait compliqué et je sais que des prog comme celui ci doivent exister mais le plaisir de le faire sois-meme est bien mieux.
je vous remercie par avance, pour ceux qui voudrait voir ce que j'ai deja fait sous quick basic voici mon code :
Code :
- CLS
- COLOR 10, 1
- PRINT "Bienvenue dans le programme d'envoi de messages par net send"
- PRINT "Ce programme a ete cree sous quick basic par David S."
- PRINT
- PRINT "Que veux-tu faire ?"
- INPUT "(1) Message sur le reseau entier, (2) message prive "; ch1
- IF ch1 = 1 THEN
- INPUT "Quel est le nom du reseau "; rez$
- WHILE rez$ = ""
- PRINT
- INPUT "Quel est le nom du reseau "; rez$
- WEND
- PRINT "Envoyer un message sur ce reseau"
- INPUT "(O) pour Oui et (N) pour Non "; rep$
- WHILE rep$ = "o"
- PRINT
- INPUT "Quel est le message a envoyer "; msg1$
- WHILE msg1$ = ""
- PRINT
- INPUT "Quel est le message a envoyer "; msg1$
- WEND
- PRINT "Ton message est en cours d'envoi ..."
- PRINT
- INPUT "Y a t-il un autre message ? envoyer "; rep$
- PRINT "(O) pour Oui et (N) pour Non"
- WEND
- PRINT "Ton message est en cours d'envoi ..."
- PRINT "@ Bientot"
- ELSE INPUT "Quel est le nom ou l'IP de la machine distante "; name$
- WHILE name$ = ""
- PRINT
- INPUT "Quel est le nom ou l'IP de la machine distante "; name$
- WEND
- PRINT
- INPUT "Quel est le message a envoyer "; msg$
- WHILE msg$ = ""
- PRINT
- INPUT "Quel est le message a envoyer "; msg$
- WEND
- END IF
|
encore une fois mercie