VBscript que se conecta a un servidor irc

[mirkito]

Buenas amigos estuve probando el siguiente codigo para conectarme a un servidor irc mediante un VBscript, se conecta pero la conexion no se mantiene, claro porque no pongo nick, canal user ident y demas cosas, alguien me podria ayudar y orientar un poco

Código [Seleccionar] Expandir


Dim Raw 
 
set Raw = WScript.CreateObject("MSWinsock.Winsock", "WSEvent_") 
 
Raw.Connect "irc.server.com" , 6667 
 
msgbox "Running - close to continue" 
 
Raw.Close 
 
Sub WSEvent_Connect() 
 
msgbox "Connected!" 
 
end sub 
 
Sub WSEvent_DataArrival(bytes) 
 
MyString="blank" 
 
Raw.GetData MyString 
 
msgbox "data: "+CStr(bytes)+chr(13)+MyString 
 
end sub 


[Novlucker]

Buenas..

Que estas intentando hace exactamente? Algún tipo de bot?

Es que nunca se me había ocurrido hace uno... y por lo que veo estas utilizando el objecto MSWinsock, el problema que veo para esto.. es que dicho objecto solo esta presente en sistemas con VB instalado 

Saludos

[mirkito]

Buenas..

Que estas intentando hace exactamente? Algún tipo de bot?

Es que nunca se me había ocurrido hace uno... y por lo que veo estas utilizando el objecto MSWinsock, el problema que veo para esto.. es que dicho objecto solo esta presente en sistemas con VB instalado 

Saludos

si me gustaria hacer un pequeño bot que responda preguntas, ya tengo echo uno en mirc scripting y estuve investigando si se podia hacer lo mismo en vbs y no encontre nada por ninguna parte