Últimos Temas de: 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:

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