CRÉER SON PROPRE CHAT [VB.NET]

[Ryad Palestine <3]

loooool si simplement ^^

Oui ^^ passe skype

 

[ChuteAa ©]

Oui ^^ passe skype

bolchevsky

 

[Escroc]

Superbe rédaction, gg boosterz'

 

[Ownlebro]

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]

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 ?

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 :

Imports iChat

Puis on définit " API " comme " iChatAPI ".

    Dim API As New iChatAPI

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

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

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 :

        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 )

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

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 )

        If My.Settings.strName <> "" Then
            PseudoTXT.Text = My.Settings.strName
        End If
        If My.Settings.strChatSite <> "" Then
            ServeurTXT.Text = My.Settings.strChatSite
        End If

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 :

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 :

Donc pour ajouter la ScrollBars sur la textbox du chat voila comment faire

Puis on ajoute 2 timers :

1. " Timer1 "
2. " tmrBan "

Donc on va commencé simplement par le code du bouton :

        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.

        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.

        API.DeleteUser(API.strUsername)
        Form1.Show()

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 )

        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 :

        API.UpdateChat(txtChat)

Ensuite dans le timer ban vous mettez sa :

        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 :

        txtChat.SelectionStart = txtChat.TextLength
        txtChat.ScrollToCaret()

FIN DU TUTORIEL​

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

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

​

Quand tu dis FTP je télécharge quoi entre client ou server FileZila ?

Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

 

[Paradise GTP]

Quand tu dis FTP je télécharge quoi entre client ou server FileZila ?

Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

Salut,

Le client

 

[Ownlebro]

Salut,

Le client

je te remercie ^^

 

[Ownlebro]

Salut,

Le client

Je t'avoue que je ne comprend pas bien le procédé pour mettre filezila online et il faut un site apparemment

 

[Benjamin_FLNC]

FTP Files le lien de téléchargement est mort....

 

[GDK]

Jolie ce tuto ! Good job