begin process at 2010 03 22 11:29:16
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

 > WINSOCK AVEC VBSCRIPT (CLIENT IRC)

WINSOCK AVEC VBSCRIPT (CLIENT IRC)


 Information sur la source

Note :
7,33 / 10 - par 3 personnes
7,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Niveau :Débutant Date de création :13/10/2003 Vu :11 928
Auteur : Sverdlovsky

Ecrire un message privé
Site perso
Commentaire sur cette source (8)
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

SURVEILLER UN SERVICE ET FORCER SON REDEMARRAGE par fabkiller
CORRIGER RÉCURSIVEMENT LA CIBLE DES RACCOURCIS D'UN RÉPERTOI... par sammounier
Source avec Zip COMMENT RENOMMER UN OU PUSIEURS NOM DE GROUPES ACTIVE DIRECT... par drassef14
Source avec Zip RECHERCHER TOUS LES FICHIERS DONT L'EXTENSION EST *.VBS ET L... par hackoo
Source avec Zip DÉPLACER ET PARAMÉTRER LA BARRE DES TACHES / LE MENU DÉMARRE... par MS1969
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 :

&gt;Sinon dans le registre archive du site www.thehackademy.net, vous &gt;trouverez un script (...)Ce script étant de moi-même, je suis à votre &gt;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 ---&gt; ATTENTION  &lt;---

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

Commentaire de h4mz4 le 01/03/2009 15:23:12

SALUT TOUS LE MONDE ES QUE QU4EL1 A TEST LE SCRIPT ,,?
PARCEQUE CA PAS MARCHER AVEC MOI AIDEZ MOI SVP §

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,123 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)