Excelente tutorial, gracias por el tiempo dedicado para realizar este gran trabajo, creo que hablo por todos al decir que esperamos que este tipo de tutoriales se sigan realizando
saludos
saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Novlucker en 2 Septiembre 2008, 01:45 AM
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
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