Winsock avec vbscript (client irc)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 492 fois - Téléchargée 33 fois
Contenu du snippet
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.
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.
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 / Exemple :
'' 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.
A voir également
- Mswinsock.winsock
- Vbscript createobject - Meilleures réponses
- Vbscript socket - Meilleures réponses
- Winsock c++ - Guide
- Vb6 winsock ✓ - Forum - Visual Basic 6
- Comm WinSock VB6 <-> VB.Net (Encoding, UTF-8, Unicode) - Conseils pratiques - Visual Basic / VB.NET
- Visual Basic / VB.NET : Recuperer une page web html avec winsock - CodeS SourceS - Guide
- Visual Basic / VB.NET : Chat avec winsock - CodeS SourceS - Guide
J'ai crée une source similaire mais j'ai la même erreur que Guidupre :
"Erreur : Impossible de créer l'objet appellé 'MSWinsock.Winsock'
Code : 80040112"
Une idée ? Merci ;D
PARCEQUE CA PAS MARCHER AVEC MOI AIDEZ MOI SVP §
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
ceci dit cela pourrait faire l'objet d'un petit trojan.... ;-D
c'est vraiment trop cool ,exactement ce ke je cherchais merci bcp :D
@++
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.