begin process at 2012 02 13 20:44:37
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Réseau & Internet

 > CONNECTION A UN SERVER IRC

CONNECTION A UN SERVER IRC


 Information sur la source

Note :
10 / 10 - par 4 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Classé sous :connection, server, irc, winsock Niveau :Débutant Date de création :19/05/2001 Date de mise à jour :07/07/2008 08:17:30 Vu :10 579
Auteur : TuXAveRy

Ecrire un message privé
Site perso
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

 Description

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

  • '************
  • 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 
'************
    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
TuXA veRy


 Historique

07 juillet 2008 08:17:30 :
Correction des fautes d'ortographe puis que j'étais vraiment un sale morvoeux qui faisait 15 fautes par mots à l'époque.

 Sources du même auteur

Source avec Zip ADO (AS/400 VIA ODBC) + CLASS + IMPRESSION + RECHERCHE(ADO)
Toutes les sources de TuXAveRy

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout
Toutes les sources de la catégorie Réseau & Internet

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture PETIT EXEMPLE DE CHAT AVEC WINSOCK par robapt
Source avec Zip Source avec une capture CONNECTIONS CLIENT-SERVEUR VIA WINSOCK par robapt
Source avec Zip Source avec une capture SCANNER (IP,PORT) 2 par Ulysse3
Source avec Zip MULTI REVERSE CONNECTION par thel0rd
Source avec Zip Source avec une capture FONCTION WINSOCK POUR CHAT IRC ET AUTRES CONNECTION par ScripteurPermanent

Commentaires et avis

Commentaire de Psykos7 le 02/03/2002 05:45:28

bizarre mais maintenant ki a des erreurs sur le prog, TuxAvery et Marsupilcoalt, ils disent plus rien !! mdrrrrrr

Commentaire de beeline le 31/03/2002 10:39:31

en fait
la reception des message du serveur faut la decouper en petit bou selon les "retour a la ligne"
puis apres l'interpreter

Commentaire de TeBeCo le 26/06/2002 23:31:12

Comment faire pour que sa marche sur le serveur suivant irc.server-xtasy.net
J'y arrive pas. J'arrive a me connecter uniquement avec mirc.
AIDEZ MOI

Commentaire de TeBeCo le 26/06/2002 23:37:05

Voila le super messages du server ke je recois
Expliquer moi d'habitude g pas sa:
irc.server-xtasy.net NOTICE AUTH :*** Looking up your hostname...
:irc.server-xtasy.net NOTICE AUTH :*** Found your hostname (cached)
:irc.server-xtasy.net NOTICE AUTH :*** Checking ident...
:irc.server-xtasy.net NOTICE AUTH :*** Checking for open socks server...
:irc.server-xtasy.net NOTICE AUTH :*** No ident response; username prefixed with ~
:irc.server-xtasy.net NOTICE Pseudo :*** If you are having problems connecting due to ping timeouts, please type /quote pong 7DF1E1 or /raw pong 7DF1E1 now.
PING :7DF1E1
ERROR :Closing Link: Pseudo[80.8.82.253] (Ping timeout)
avec exactement le même code ke le tient (je rappelle l'adresse du server: irc.server.xtasy.net)
@+

Commentaire de TeBeCo le 26/06/2002 23:40:39

dragon c pour toi:

Pour les messages prive tu tape sois
msg Nickdelapersone :message  (je suis aps sur pour le ":")
soit tu tape
PRIVMSG Nick : message (idem pour les ":")

Commentaire de TuXAveRy le 27/06/2002 00:05:53

hi all
Euh je suis désolé je lisais pas trop se qu'il y avait marquer....
Humen fait pour dire vrai jai arreter un peux le VB pour me concacré au C/C++ (OpenGL)
J'avais fait un beau truc sur les commandes... la facon de découpé et tout, mais un petit malin ma niké ma source. Je m'en excuse !
J'ai pas le temps n'y le courage de me rempenché la dessus. Mais c'est a la porté de tout le monde, vous trouverai certainement de l'aide :p
tux

Commentaire de Evil le 23/12/2002 20:32:48

G le même pb ke toi TeBeCo si t'a réussi a le contourner réponds moi plz :/ chu Evil_N`Rage ou Squall[HDK]

Commentaire de shining le 27/01/2003 06:41:48

pour  ouvrir un message priver c "/msg nick monmessage" sans les guillemets bien sur ce sont des commandes standard
pour changer de nick "/nick monnouveaunick", bref je vais créer mon un client irc coder en delphi(desoler mais depuis que je connais delphi c'est a dire ya 6 mois de cela j'ais laisser tomber le vb, en tout cas j'utilise que rarement le vb et ceux du a la lenteur+gros fichier lier a son fonctionnement, pour les commandes et autres infons je mettrais cela dans mon projets plus tard dès que j'aurais le temps, nom du projet: DreamIrc, section labo projet commun voila :), je vais jeter un coup d'oeil a ta source et voir eventuellement les ameliorations a apporter :)

Commentaire de peponr le 25/02/2003 22:13:44

Bonjour, (heuuu vu l'heure) bonsoir, ce code est tres interessant !
Il m'as beaucoup aidez dans la programmation de mon client irc.
voilà sinon shining t'aurai pas la commande pour faire un whois ???
Merci
envoi moi un mess si tu l'as
@++
bye

Commentaire de clad87 le 05/07/2008 11:35:29

TeBeCo, si tu lis bien ton message d'erreur

:irc.server-xtasy.net NOTICE Pseudo :*** If you are having problems connecting due to ping timeouts, please type /quote pong 7DF1E1 or /raw pong 7DF1E1 now.
PING :7DF1E1

Le serveur te demande de répondre au ping ! donc tu lui répond (please type /quote pong 7DF1E1 or /raw pong 7DF1E1 now.)

Commentaire de kgdecaen le 23/01/2009 01:12:36

NooB TuXAveRy, commence déjà par remplacer les "+" par "&" et chr(10) par vbcrlf.
Et pour TeBeCo, la reponse au ping automatiquement se fait simplement dans
winsock1_DataArrival :

----
dim data as string
winsock1.getdata data

if instr(1, data, "PING") then
data = replace(data, "PING", "PONG")
winsock1.senddata data
end if
---

Pas trop compliqué j'espère avoir pu t'aider à ton sujet de PING TimeOut :/

Commentaire de TuXAveRy le 31/01/2009 11:38:24

Accessoirement si tu regardes la date de la source (et du commentaire), tu t'apercevras qu'elle a presque 8 ans :)
J'ai du faire du VB6 pendant 6 mois à tout casser et cette source était la à titre d'exemple car à l'époque il n'y en avait pas bcp. Personne n'a jamais eu la prétention de fournir la source parfaite et toute amélioration est la bienvenue !
Avec un peu plus de jugeote, tu aurais pu éviter le "noob", qui, au final, est plus péjoratif pour toi que pour moi ...

Commentaire de clad87 le 31/01/2009 13:30:45

+1

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

pb pour connection a un server irc !! HELLLLLPPPPPP !!!!!!!!!!!!!!! [ par Whit3W0lF ] Salut !!!!!g un big pb pour me connecter aux servers irc !perso j'essaye d'acceder a QuakeNet (irc.quakenet.org port: 6667) !bon j'ai toutes les comma Winsock Server, IRC et MultiThreading [ par CreaTiXCalimero ] Bonjour à tous,Je vous expose mon problème. Si l'un d'entre vous y voit quelquechose qu'il a déjà rencontré, ca m'aiderait beaucoup :)Je fais actuelle URGENT ! Winsock [ par idealprog ] salut,j ai cre 2 prog avec winsock, 1 server et 1 client :lorsque je lance le server puis le client et que je me connecte au server ( a partir du clie Fichier Winsock [ par neossj ] Bonjour,je travaille actuellement sur une connection entre un client et un server.La connection s'effetue trés bien seulement.J'aimerais savoir c Pb de connection avec SQL server [ par visualresine ] Bonjour, Je travail actuellement sur un projet de logiciel où une application VB.net vient ce connecter à une base de données SQL se Connection à Exchange Server 2003 [ par Simouss33 ] Bonjour à tous,Je code en VB.Net et dans le cadre de mon stage, on m'a demandé de récupérer des données présentes sur le Connecter une winsock par une autre [ par Myron ] Coucou tout le monde !! :)Voila j'ai un petit probleme, j'ai un programme en back connect (connection inverse c'est a dire le server qui se connecte a Connection de vb6 et sql server 2000 [ par moussagbe ] Bonjour, je veux connecter ma base de données microsoft sql server 2000 à visual basic 6 pour pouvoir developper mon application. Si quelqu'un pouvait [VB6] - Problème de Winsock - (URGENT!!!) :-) [ par Bing2000 ]    Bonjour à tousVoila mon problème est le suivant : j'ai une appli qui doit communiquer avec un server et pour cela j'utilis


Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Renewable Energy is Within Reach
Photo Sparkling lagoon in the south pacific, Moorea, French Polynesia 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,558 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)