Paradise'
Premium
- Inscription
- 30 Juin 2013
- Messages
- 4 259
- Réactions
- 4 384
- Points
- 20 795
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 :
Code:
Imports iChat
Code:
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 :
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 IfNormalement à 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 )
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
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 :
- " Timer1 "
- " tmrBan "
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
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()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()
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 )
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
Code:
API.UpdateChat(txtChat)
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
Code:
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
