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

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (franky_cool)