Temas

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