Net send en vbs pour débutant

Commenter

Contenu du snippet

ok c'est ma deuxieme source ici et cette source permet a n'importe qu'elle imbécile de pouvoir fais un net send.

Source / Exemple : 


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

Conclusion :


bah ok pour le faire marcher c simple: tu rentre le nom du batch, tu rentre le destinataire, Tu rentre le message que tu veux lui envoyer et pour finir tu choisi si oui ou non tu veux faire un flood

(Un fichier batch vas etre créé sur le meme répertoire que celui du vbs, ensuite tu klike dessus!)

A voir également

Du même auteur (franky_cool)