Visual Basic - winsock.connect "libres.irc-hispano.org","6667"

Life is soft - evento anual de software empresarial
   
Vista:

winsock.connect "libres.irc-hispano.org","6667"

Publicado por toni (13 intervenciones) el 09/11/2007 21:20:47
Me gustaria que me facilitaseis algo de codigo sobre la conexion.
Al conectar que es lo que le tengo que enviar?.
El servidor me envia interrogaciones. ???????????????

Ablo del I.R.C (CHAT)


Os lo agradeceria.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:winsock.connect

Publicado por toni (13 intervenciones) el 10/11/2007 09:53:44
Al fin lo encontre.
Aki teneis el codigo de una conexion cliente servidor.


Private Sub Command1_Click()
Winsock1.RemotePort = "6667"
Winsock1.RemoteHost = "libres.irc-hispano.org"
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Dim DAT
DAT = Text2
Winsock1.SendData DAT & vbCrLf
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "NICK toni12883" & vbCrLf
Winsock1.SendData "USER antonio antonio antonio antonio antonio" & vbCrLf
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim data As String

Winsock1.GetData data

If InStr(data, "PING") = 1 Then
Winsock1.SendData "PONG " & Split(data, " ")(1)

End If
Text1.Text = data
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar