Connection a un server irc

Commenter

Contenu du snippet

Crée un projet et insère un Winsock dedans puis mettre un bouton. Tu peux mettre aussi une fenêtre pour voire se que le serveur te renvoie (affichage). Renome ton Winsock en Sock1

Source / Exemple : 


'************
    Bouton
'************

Private Sub command1_Click()
Sock1.RemoteHost = "server.irc.net"
Sock1.RemotePort = 6667
Sock1.Connect
End Sub

'************
 Connexion
'************

Private Sub Sock1_Connect()
Dim nick
nick = "Pseudo"
Sock1.SendData "NICK " + nick + Chr(10)
Sock1.SendData "USER VB-BOT " + " " + Chr(30) + "moa.com" + Chr(30) + " " + Chr(30) + localhost + Chr(30) + " :Visual Basic Bot destroyed by TuXAveRy" + Chr(10)
End Sub

'************
'  Donnée
'************
' Ici c'est la reception des donnée par le winsock. 
'C'est a partir de la ke tous se fait :)

Private Sub Sock1_DataArrival(ByVal bytesTotal As Long)
'LA  PARTIE TRES IMPORTANTE !! Il fo absolument cette partie pour pouvoir se connecte au server.
'Le server envoie un PING et pour valider votre connexion, il fo que tu reponde a ce ping, sans ca tu ne pourra po te connnecté.
Sock1.GetData receive, vbString
If Left(receive, 6) = "PING :" Then
Sock1.SendData ("PONG " & Mid(receive, 7, Len(receive)) & Chr(10))
End If
'********
Text1.Text = receive 'affichage dans une textbox
End Sub

Conclusion :


Voilà, c'est pas tres dur :) Déclarer la variable Receive en Global (pour tous votre projet, et déclarer la en String !!)
Sinon pour la suite je vous conseil de lire la RFC sur l'IRC. C'est la 1459 (http://www.networksorcery.com/enp/default0302.htm)

Ps: Ajout de la source pour le dialogue et les commandes avec un serveur
http://www.vbfrance.com/article.asp?Val=2000
TuXAveRy

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (TuXAveRy)