Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 10:22:51

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

ENREGISTRER UN LISTVIEW POUR TOUJOURS par yabross

RE : FONCTION REPLACE par ghuysmans99

FONCTION REPLACE par ddove53

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par Renfield

RE : FONCTION COMBOBOX par shenkool

+ de logiciels à télécharger

1 465 045 membres
93 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 069 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

NET SEND EN VBS POUR DÉBUTANT

Information sur la source

Catégorie :VBScript Niveau : Débutant Date de création : 03/12/2003 Date de mise à jour : 03/12/2003 22:36:01 Vu : 11 231

Auteur : franky_cool

Ecrire un message privé

Note :

4,71 / 10

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

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

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!)

Sources du même auteur

CODE POUR DÉBUTANT .VBS ÉCRITURE DE FICHIER

Toutes les sources de franky_cool

Sources de la même categorie

DÉPLACER ET PARAMÉTRER LA BARRE DES TACHES / LE MENU DÉMARRE... par MS1969

MERLIN LE MAGICIEN AVEC BEAUCOUP DE COMMANDES ET DE FONCTION... par hackoo

ADRESSE IP LOCALE ET ADRESSE IP PUBLIQUE par hackoo

CRÉATION D'UNE LISTE DE TOUTES LES APPLICATIONS QUI DÉMARRE ... par hackoo

RECHERCHER DANS VOTRE BASE DE REGISTRE par hackoo

Toutes les sources de la catégorie VBScript

Commentaires et avis

Commentaire de kazimir le 04/12/2003 14:03:19

c'est vrai que c'est pour les débutants. Imbéciles, je sais pas, je pense pas que les débutants soient des imbéciles (fo bien commencer un jour)
J'ai moi aussi ecrit un code utilisant ce fameux "net send", je posterai le source demain, fo que je le raporte du taf.
j'ai personnalisé l'affichage à la réception, inclus la possibilité d'un envoi multi-destinataires et mis un peu de convivialité graphique (grace a des codes trouvés sur ce site ;-) )

Commentaire de pixelone le 04/12/2003 16:11:10

imbecile ? heu.... Faut déjà commencer par nettoyer ton bureau ! mmmbecile ! snif

Commentaire de FearBlue le 04/12/2003 19:22:52

C clair que ton burau aurait besoin d'un petit néttoyage.
Sinon ce code est totalement inutile.Il existe deja en multiples version sur le site.

Commentaire de Ekinoks2 le 05/12/2003 11:16:46

Vous n'êtes pas sympa, pas q seul code n'est inutile... tous les codes sont utiles pour certaines personnes, il faut garder l'esprit ouvert !

Commentaire de PROGRAMMIX le 05/12/2003 15:44:00

Traiter les autres de "n'importe qu'elle imbécile" est un très présomptueux et il faudrait voir à balayer devant sa porte lorsque l'orthographe est une telle catastrophe !

Commentaire de Sultar le 09/12/2003 18:26:20

il a traité personne d'imbécile, il a dit que même les imbécile peuvent faire des net send, sous-entendu tout ceux qui sont moin imbécile que les imbéciles eux-même peuvent aussi le faire..
maitenant c'est a chacun de se reconnaître, ou pas, en tant qu'imbécile =)

Commentaire de XenoX le 28/12/2003 21:48:47

En tout cas ta raison en disant que n'importe quel imbécile peut en faire un. Si toi ta réussi c que c vrai.

Commentaire de tekila_bandita le 18/08/2005 10:58:16

Franchement, le code est pourris, n'importe qui pourrait le faire !
Mais je trouve que pour les newbies, c'est bien pour leur apprendre l'utilisation des variables...
donc je vote 7/10...
;)

Commentaire de mobilicorpus le 03/02/2006 19:48:18

ça fait un peu «gamin». Désolé de le dire, mais on peut faire beaucoup plus court.
exemple :

dim shellIPMessage
IP = inputbox("A quel ordinateur ?","net send","*")
Message = inputbox("contenu du message ?","net send")
Set objShell = createobject ("WScript.Shell")
ObjShell.run "net send "&IP&" "&Message

mobilicorpus