Soyez le premier à donner votre avis sur cette source.
Snippet vu 17 963 fois - Téléchargée 31 fois
'' 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
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.