NET SEND EN VBS POUR DÉBUTANT

dim b
Dim fu
Dim ecrire
Dim num
dim g
g = " "
dim kes
msgbox "Salut tu est présentement sur un programme qui vas te faire tout seul un net send!",vbexclamation,"fky"
fu = InputBox ("nomme le fichier que tu veux créer!","frankycool","progfky")

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile(""&fu&".bat")
With MonFic


ecrire = InputBox ("Quel est le nom du destinataire? ex: 222.168.1.32, pc23...")
kes = inputbox ("Quesque tu veux lui écrire?")

b = msgbox ("Voulez-vous avoir une répétition a l'infini?",vbyesno)
if b = vbyes then
.writeline "@echo off"
.writeline "echo www.FrankyCool.fr.st"
.writeline "echo."
.writeline "echo."
.writeline "echo ce programme vas lancer un répétition a l'infini un net send a: "&ecrire&""
.writeline "echo."
.writeline "echo."
.writeline "echo fait gaffe man! fais ctrl+c pour arreter!"
.writeline "echo."
.writeline "echo."
.writeline "pause"
.writeline "cls"
.writeLine ":run"
.writeLine "net send "&ecrire&""&g&""&kes&""
.writeLine "goto :run"
end if

if b = vbno then
.writeline "@echo off"
.writeline "echo www.FrankyCool.fr.st"
.writeline "echo."
.writeline "echo."
.writeline "echo ce programme vas lancer un net send a: "&ecrire&""
.writeline "echo."
.writeline "echo."
.writeline "pause"
.writeline "cls"
.writeLine "net send "&ecrire&""&g&""&kes&""
.writeline "pause"
end if


End With
msgbox "Frankycool.fr.st",vbexclamation