CRÉER SON PROPRE CHAT [VB.NET]

Paradise GTP

Paradise GTP

Premium
Inscription
30 Juin 2013
Messages
4 271
Réactions
4 414
Points
24 105
RGCoins
519
mini_945124Iconice06d0256.png

CRÉER SON PROPRE CHAT [VB.NET]​


[tabs]
[tab=Informations concernant ce tutoriel]• Temps de lecture : 10 minutes.
• Temps de rédaction : 02 heures.
• Difficulté : ★★★
• Matériel requis : Ordinateur sous Windows XP/Vista/7/8/8.1, Visual Studio, ressources en question, un site web avec un FTP.
• Tutoriel proposé par la GTP, écris par Boosterz GTP.
[/tab]
[tab=Ressources nécessaire]• iChat.dll :
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
|
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
|
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

• FTP Files :
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
|
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
|
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

[/tab]
[tab=Autres téléchargements]• GTPChat ( Chat déjà codé ) :
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
|
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
|
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

• Code Source :
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
|
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

Pour le code source seul MEGA est disponible, car afin d'éviter juste le téléchargement de la source la key de téléchargement MEGA sera disponible quelque part dans le tutoriel.
[/tab]
[/tabs]
1407685278-ligne.png

1408958240-entypo-d83d-0-128.png

Partie 1 : FTP​

Donc pour cette partie il vous faudra donc l'accès à votre FTP ainsi que le dossier FTP Files.
Vous n'avez presque rien à faire, cool non ?
La seul vrai chose à faire c'est ouvrir le fichier : "Admin.txt" et la vous mettez à la place de Administrateur le nom de l'administrateur du chat, il pourra vider le chat etc.
Ensuite vous prenez les 16 fichiers que vous mettez à la racine de votre FTP.
Cette partie est finit, dur ? :D

1407685278-ligne.png

1408958529-entypo-e74e-0-128.png

Partie 2 : Codage du logiciel.​

Donc si vous avez télécharger ce que j'ai dis, vous pouvez voir que il y a une assembly , je vous ai donc prémâcher le boulot, donc commencer par l'importer.
Ensuite on déclare son utilisation :
Code: 
Imports iChat
Puis on définit " API " comme " iChatAPI ".
Code: 
    Dim API As New iChatAPI
5db27ae0e83e64127b1d9f471fc0163f.png

Donc une fois ceci on passe au design de la Form1 la connexion au serveur de chat voulu.
fb2d77dbe490464140100407f25c2566.png

Voila donc très simple comme design après vous pouvez le travailler par exemple voici le mien dans le GTPChat :
7d8588bef9d5c83f24637d14307b95da.png

Cela donne déjà plus envie mais je ne suis pas ici pour vous apprendre à faire un jolie design.
Donc dans le code du bouton vous mettez ceci :
Code: 
        API.strUsername = PseudoTXT.Text
        API.strChatSite = ServeurTXT.Text
        If API.IsIPBanned(API.GetIP()) = False And API.IsBanned(API.strUsername) = False Then
            If API.NameAvailable(API.strUsername) = True Then
                If API.AddUser(API.strUsername) = True Then
                    My.Settings.strName = PseudoTXT.Text
                    My.Settings.strChatSite = ServeurTXT.Text
                    My.Settings.Save()
                    Form2.Show()
                    Me.Hide()
                Else
                    MessageBox.Show("Erreur, non connecté", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Else
                MessageBox.Show("Nom d'utilisateur incorect.", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Else
            MessageBox.Show("Votre compte a était bannis.", "Banned", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If

Normalement à ce moment la vous avez 3 erreurs.
Donc on va ajouter les " Settings " dans l'application ce qui servira à sauvegarder automatiquement le pseudo et le serveur de chat.
Voici comment faire ( Dans l'image je n'es pas eu le temps de faire les deux )
6e7d3e0047c5dc326f26c8f6a7ed0d06.gif

Voila une fois que vous avez ajouter les deux vous ne devez plus avoir que une seul erreur.
46d717332eabfd508f2f31b13b203502.png

Ne vous en faites pas elle partira seul après.
Ensuite à l'ouverture de la Form on veut bien ne pas avoir à retaper notre pseudo et le serveur de chat ?
Alors il faut mettre ce code à l'ouverture de la form ( double clique dessus )
Code: 
        If My.Settings.strName <> "" Then
            PseudoTXT.Text = My.Settings.strName
        End If
        If My.Settings.strChatSite <> "" Then
            ServeurTXT.Text = My.Settings.strChatSite
        End If
6f75dd2d2a27499db7da7a342ef25cb7.png

Voila donc pour la Form de connexion c'est finit ! On passe donc à la Form de chat qui s'appelle donc : Form2. Voila une image qui montre comment ajouter une form :
47594e3358619fc74d491862e2f96a49.gif


Ensuite voila il n'y a plus d'erreur :)
Donc il faut re déclarer l'utilisation de l'assembly et la fonction API. Je ne redirais pas comment faire.
Voila le design à faire :
2864296aed0d98c40fb01a3f19132b19.png

Donc pour ajouter la ScrollBars sur la textbox du chat voila comment faire
059bf0c048bab707fe5202b60ada333d.gif

Puis on ajoute 2 timers :
  1. " Timer1 "
  2. " tmrBan "
Donc on va commencé simplement par le code du bouton :
Code: 
        If API.SendMessage(API.strUsername, txtMessage.Text) = True Then
            API.UpdateChat(txtChat)
            txtMessage.Text = ""
        Else
            MessageBox.Show("Message non envoyé.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
Puis comme tout à l'heure on met le code à l'ouverture de la Form.
Code: 
        API.strUsername = Form1.PseudoTXT.Text
        API.strChatSite = Form1.ServeurTXT.Text
        API.strIP = API.GetIP
        API.UpdateChat(txtChat)
        txtChat.SelectionStart = txtChat.TextLength
        txtChat.ScrollToCaret()
        Timer1.Start()
Key de la source :
Wv64VEvvjsNI5SqyQH2kqGii_HNk9gZRQqfKkhgPSCs

Ensuite ce code à la fermeture [ TRÈS IMPORTANT ] Si vous ne le mettez pas le chat croira que l'utilisateur est encore en ligne donc impossible de ce re connecter avec le même pseudo mit à part en vidant le FTP et re upload.
Code: 
        API.DeleteUser(API.strUsername)
        Form1.Show()
f30dd25c84de693a515051fa18fa76e7.png

Voila ensuite votre compte sera fermer vous pourrez utilisé le même pseudo la prochaine fois.
Donc ensuite le code dans le KeyUp de la textbox message ( voila comment faire )
f275a721719334beb3e1c7a1b5ad2eba.gif

Code: 
        If e.KeyCode = Keys.Enter Then
            If API.SendMessage(API.strUsername, txtMessage.Text) = True Then
                API.UpdateChat(txtChat)
                txtMessage.Text = ""
            Else
                MessageBox.Show("Message non envoyé.", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
Donc ensuite pour refresh le texte du chat on met ceci dans le timer1 :
Code: 
        API.UpdateChat(txtChat)
Ensuite dans le timer ban vous mettez sa :
Code: 
        If API.IsBanned(API.strUsername) = True Then
            Me.Close()
            Form1.Show()
            MessageBox.Show("Compte bannis", "Banned", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
        If API.IPisRequested = True And API.GetRequestedIP <> API.strIP Then
            If API.WriteIP(API.strIP) = True Then
            End If
        End If
Ensuite dans le changement de texte de la textbox du chat ( double clique dessus ) vous mettez :
Code: 
        txtChat.SelectionStart = txtChat.TextLength
        txtChat.ScrollToCaret()

1407685278-ligne.png


1407687234-finish.png

FIN DU TUTORIEL​

Merci à tous d'avoir lu ce tutoriel, je vous dis à très bientôt pour de prochains tutoriels ! :tchuss:

Sujet rédigé entièrement par Boosterz GTP​


​
 
Super topic, très utile, qui va en aider plus d'un, de plus il est très bien détaillé, tu gère Boo :)
 
Sa sert à quoi ? Genre d'autre personne peuvent venir ?
 
Oui mais genre comment on change de thème ? Et comment les gens vont savoir leur identification ?
 
Merci beaucoup du tuto trés détailler ;)
 
Yooo , comment on se joint au serveur ?
 
loool je le colle ou l'url , j ai jamais toucher a une appli avec connexion a un FTP

je les traduit en c# :mmh:
 
Retour
Haut