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

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 03 08:33:09

ADOBE MAX à MILAN => JOUR -1 par pegase31

SQL SERVER : LE FUTUR DES MOTEURS DE RECHERCHE CHEZ MICROSOFT par christian

TOFINO : LE PLUGIN FLEX POUR VISUAL STUDIO par Nix

FLEX INTéGRé DANS VISUAL STUDIO ! par Nix

SQL SERVER 2008 : ENFIN UN DOCUMENT COMPLET SUR LES MISES à JOUR DE SQL SERVER par christian

RE : MISE à JOUR D'UNE TABLE ACCESS AVEC COMMANDTEXT par Calade

RE : AJOUTER DES UNITéS AU SYSTEME DATE/HEURE par jrivet

RE : AFFICHAGE RéGULIER D'UN TEXTE D'UNE CELLULE DANS UNE TEXTBOX par jrivet

RE : COMMENT ADDITIONNé 2 VARIABLES AVEC WIN CC? par PCPT

RE : ACTION EN LIEN AVEC UNE SAISIE DE TEXTE par PCPT

+ de logiciels à télécharger

1 302 098 membres
65 nouveaux aujourd'hui
14 554 membres club

Trouver une ressource

Trouvez une ressource parmi 39 076 codes, 1 208 452 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 !

WINSOCK AVEC VBSCRIPT (CLIENT IRC)

Information sur la source

Catégorie :VBScript Niveau : Débutant Date de création : 13/10/2003 Vu : 10 674

Auteur : Sverdlovsky

Site perso

Ecrire un message privé

Note :

7,33 / 10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Non, vous ne rêvez pas ! On peut utiliser Winsock avec VBSCript.
Le code ci-dessous utilise l'objet MSWinsock au moyen de winsock.ocx
de Windows.

Ainsi, il devient possible de créer des sockets avec du VBScript.
Le code ci-dessous permet de se connecter sur IRC, comme le ferait mIRC.

Il envoie des requêtes sur le serveur et entre dans un salon défini.
Les informations reçues sont enregistrées dans un fichier log.

Ce code est destiné aux débutants.Libre à vous de modifier le code,
vous pouvez modifier le port et l'host de connection pour divers usages.

Source

'' CLIENT DE CONNECTION IRC
Set fso = CreateObject("Scripting.FileSystemObject")
Set Azer = fso.OpenTextFile(fso.GetSpecialFolder(0)&"\bureau\irc.vbs.log", 8, True)
raw = "xxx"
Set tcpClient = CreateObject("MSWinsock.Winsock")
tcpClient.Protocol = 0 ' PROTOCOLE TCP
tcpClient.RemoteHost = "195.101.94.173" ' CHAT9.X-ECHO.COM
tcpClient.RemotePort = 6667
tcpClient.Connect
Do While (tcpClient.state <> 7)
wscript.sleep(200) '' On attend que le client se connecte
Loop
WScript.Sleep 500 '' Envoi des requêtes
tcpClient.SendData "USER WSH U U : WSH-OCX Machine" & Chr(13) & Chr(10)
tcpClient.SendData "NICK WSH-OCX" & Chr(13) & Chr(10)
WScript.Sleep 3000 '' Le client rejoint le salon
tcpClient.SendData "JOIN #!informatique!" & Chr(13) & Chr(10)
WScript.Sleep 3000 '' Envoi d'un message sur le salon
tcpClient.SendData "PRIVMSG #!informatique! :Bonsoir il est "&Now&" et je suis un robot qui marche sous VBScript au moyen de winsock.ocx" & Chr(13) & Chr(10)
tcpClient.SendData "PRIVMSG #!informatique! :C'était un test, lol" & Chr(13) & Chr(10)
Do While (tcpClient.State = 7) '' Tant qu'on reste connecté
tcpClient.GetData raw
Azer.Write raw '' Réception et enregistrement des données
if (Left(raw,4) = "PING") then '' Réponse automatisée au PING du serveur
tcpClient.SendData "PONG :chat9.x-echo.com" & Chr(13) & Chr(10)
end if
WScript.Sleep 200
Loop

'' CLIENT DE CONNECTION IRC 

Set fso = CreateObject("Scripting.FileSystemObject")
Set Azer = fso.OpenTextFile(fso.GetSpecialFolder(0)&"\bureau\irc.vbs.log", 8, True)

raw = "xxx"
Set tcpClient = CreateObject("MSWinsock.Winsock")

tcpClient.Protocol = 0    ' PROTOCOLE TCP
tcpClient.RemoteHost = "195.101.94.173"    ' CHAT9.X-ECHO.COM
tcpClient.RemotePort = 6667
tcpClient.Connect

Do While (tcpClient.state <> 7)
wscript.sleep(200)             '' On attend que le client se connecte
Loop

WScript.Sleep 500            '' Envoi des requêtes
tcpClient.SendData "USER WSH U U : WSH-OCX Machine" & Chr(13) & Chr(10)
tcpClient.SendData "NICK WSH-OCX" & Chr(13) & Chr(10)

WScript.Sleep 3000      '' Le client rejoint le salon
tcpClient.SendData "JOIN #!informatique!" & Chr(13) & Chr(10)

WScript.Sleep 3000         '' Envoi d'un message sur le salon
tcpClient.SendData "PRIVMSG #!informatique! :Bonsoir il est "&Now&" et je suis un robot qui marche sous VBScript au moyen de winsock.ocx" & Chr(13) & Chr(10)
tcpClient.SendData "PRIVMSG #!informatique! :C'était un test, lol" & Chr(13) & Chr(10)


Do While (tcpClient.State = 7)      '' Tant qu'on reste connecté
tcpClient.GetData raw
Azer.Write raw                     '' Réception et enregistrement des données
if (Left(raw,4) = "PING") then    '' Réponse automatisée au PING du serveur
tcpClient.SendData "PONG :chat9.x-echo.com" & Chr(13) & Chr(10)
end if
WScript.Sleep 200
Loop

Conclusion

Je publierai prochainement un serveur qui marche avec VBScript.
Les applications possibles sont nombreuses : scanneur, serveur HTTP, firewall,
détecteur d'intrusion (IDS), et même client/serveur de tchate en direct.

Sources du même auteur

VBSCRIPT : SCRIPT ANTICOOKIES

Toutes les sources de Sverdlovsky

Sources de la même categorie

RESET STATUS DES TÂCHES PLANIFIEES - MODIFICATION FICHIER BI... par gorgotte

VBSCRIPT --> CONVERSION DE FICHIER TEXTE EN FICHIER EXCEL PA... par thorspark

LISTE DES FICHIERS D'UNE ABORESCENCE DE DOSSIERS par Niko2003

BORNE MULTIMÉDIA SIMPLISSIME par piergel

COMPRESSION ET UPLOAD VERS UN SERVEUR FTP par hackoo

Toutes les sources de la catégorie VBScript

Commentaires et avis

Commentaire de FearBlue le 13/10/2003 18:08:48

Plutot pas mal comme exemple.Je vais me pencher plus sur le sujet.
9/10

Commentaire de Clem le 14/10/2003 19:45:58

Ca couplé avec une page en .hta, et ça fait une véritable appli ultra légère et portative ! ;)

Commentaire de Stormy le 16/10/2003 10:42:33

Pour ceux qui voudrait e savoir davantage sur la composante MSwinsck.ocx et ses applications diverses, je vous recommande en toute humilité, un article paru dans le dernier The Hackademy Journal et qui reprend l'essentiel du principe. Sinon dans le registre archive du site www.thehackademy.net, vous trouverez un script pour une administration à distance grâce à l'exécuteur WSH. Ce script étant de moi-même, je suis à votre entière disposition pour davantage de renseignements ++
http://www.thehackademy.net/download.php?mag=24
Adresse mail accompagne la source.
Bon code à tous!

Commentaire de fushigi le 13/03/2004 15:43:11

Heu... Stormy, juste une petite question :

>Sinon dans le registre archive du site www.thehackademy.net, vous >trouverez un script (...)Ce script étant de moi-même, je suis à votre >entière disposition pour davantage de renseignements ++...

? Le virus dans "Shania.vbs" est compris d' origine ? C'est un add-in ?
un utilitaire ? un exemple ?
ou simplement une infection ??

Respect pour thehackademy et leurs editions, mais comment imaginer que personne dans leur équipe n' ait remarqué qu' 1
(ou plsrs de leurs fichiers?) fichier de leurs archives soit
betement infecté par un virus ?

mon anti-virus me signale "Bloodhood"
Alors ---> ATTENTION  <---

Sinon Clem : ton couplage avec une page hta ca ressemblerait a quoi?

---       --------    --------   ---
VBfrance ::Strong Community
VBfrance ::Valuable People
---       --------    --------   ---

Commentaire de yoman64 le 30/03/2004 03:55:33

Merci bcp ;)
c'est vraiment trop cool ,exactement ce ke je cherchais merci bcp :D
@++

Commentaire de zeunz le 17/06/2004 13:10:35

super. je vais m'y pencher dessus.
ceci dit cela pourrait faire l'objet d'un petit trojan.... ;-D

Commentaire de guidupre le 07/08/2004 13:46:11

slt à tous
moi je n'est pas vb j'ai foutu ta source ds un .vbs mais mon pc me dit erreur 0x80040112 à la ligne
Set tcpClient = CreateObject("MSWinsock.Winsock")
merci d'avance