CHTIMI IRC CLIENT , Source N°3659

Information sur la source

Catégorie :Réseau & Internet Niveau : Expert Date de création : 05/09/2002 Date de mise à jour : 11/09/2002 21:14:01 Vu / téléchargé: 4 172 / 480

Auteur : Godzil

Site perso

Ecrire un message privé

Note :

3,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Il s'agit d'un client irc simple dans la version actuelle.

Les fonctionnalités :
- Gestion des couleurs mirc et bersirc (Fond et couleur de texte, mais seul, actuellement la couleur de texte est affiché)
- Gestion de "l'agrement" du texte (gras, souligné)
- Possibilité de rejoindre plusieur channel (mais avec une seule fenetre actuellement)
- Gestion plus ou moins avancé du protocol IRC (Utilisation d'un tas) Permet aussi le traitement asynchrone de se que l'on receptionne via les sockets.
- [11/09] Gestion multifenetre :)

Source

'Gestion des fenetres irc
Private Type aWindow
name As String
id As Chat
End Type
Private WindowStack() As aWindow 'La "pile" en elle même
Private StackSize As Integer 'Taille actuelle de la pile
Public Sub InitWindowStack()
StackSize = 0
ReDim WindowStack(0)
End Sub
Private Sub InitWindow(MyForm As Chat, ToWho As String)
MyForm.Caption = "[ " & ToWho & " ] - CIC"
MyForm.Text2.Text = ToWho
End Sub
Function GetWindowByName(name As String) As Chat
For a = 0 To StackSize
If LCase(WindowStack(a).name) = LCase(name) Then
Set GetWindowByName = WindowStack(a).id
InitWindow GetWindowByName, name
Exit Function
End If
Next
Set WindowStack(StackSize).id = New Chat
WindowStack(StackSize).id.Show
WindowStack(StackSize).name = name
Set GetWindowByName = WindowStack(StackSize).id
InitWindow GetWindowByName, name
StackSize = StackSize + 1
ReDim Preserve WindowStack(StackSize)
End Function

 'Gestion des fenetres irc

Private Type aWindow
    name As String
    id As Chat
End Type

Private WindowStack() As aWindow 'La "pile" en elle même
Private StackSize As Integer 'Taille actuelle de la pile

Public Sub InitWindowStack()
    StackSize = 0
    ReDim WindowStack(0)
End Sub

Private Sub InitWindow(MyForm As Chat, ToWho As String)

    MyForm.Caption = "[ " & ToWho & " ] - CIC"
    MyForm.Text2.Text = ToWho
    
End Sub

Function GetWindowByName(name As String) As Chat

    For a = 0 To StackSize
        If LCase(WindowStack(a).name) = LCase(name) Then
            Set GetWindowByName = WindowStack(a).id
            InitWindow GetWindowByName, name
            Exit Function
        End If
    Next
    
    Set WindowStack(StackSize).id = New Chat
    WindowStack(StackSize).id.Show
    WindowStack(StackSize).name = name
    Set GetWindowByName = WindowStack(StackSize).id
    
    InitWindow GetWindowByName, name
    
    StackSize = StackSize + 1
    
    ReDim Preserve WindowStack(StackSize)
    
End Function

Conclusion

Maintenant les sources sont dispo, mais ne sont pas vraiment bien ordonnée, excusez pour se désagrement. quelques erreurs on été corrigé par rapport a l'ancienne version, mais des tonnes de problèmes subsitent, mais, il devient de plus en plus utilisable "courrement" :)

Les erreurs de capacité devrait dorenavent ne plus avoir lieu..

Prochaine mise a jour, j'espere sous peu

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

CIC-beta2
- bcolor.frm 8 326 octets
- chat.frm 6 098 octets
- chat.frx1 218 octets
- ChTiMi IrC ClIeNt.PDM3 636 octets
- ChTiMi IrC ClIeNt.vbp 1 562 octets
- ChTiMi IrC ClIeNt.vbw 490 octets
- Colorparse.bas 5 365 octets
- connect.frm 5 929 octets
- connect.frx1 470 octets
- Formm.frm 5 879 octets
- globalvars.bas 927 octets
- mcolor.frm 5 067 octets
- MDIForm1.frm 1 334 octets
- popups.frm 1 423 octets
- protocol.bas 3 978 octets
- Windows.bas 1 110 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de Godzil

Sources de la même categorie

Toutes les sources de la catégorie Réseau & Internet

Commentaires

Commentaire de erreurs404 le 06/09/2002 12:07:51

sans les sources je vois pas comment on peut se faire une idée ... tu aurais dû attendre avant de poster.
il se trouve que je fais également un client irc en vb, alors ça m'aurait intéressé de savoir comment tu t'y es pris.
Sinon pour gérer les background colors, il y a une source de Toasty je crois qui fait ça et qui s'adapte facilement à tous les projets.
Commentaire de Godzil le 11/09/2002 21:22:37

Pour se qui est des couleurs, je viens de voir la source don tu parle, mais g deja qq chose en tete qui "pourrait" "revolutionner" :) Sinon si je met mes sources dispo c pas pour "copier" mes ids, j'espere que personne viendra pour piquer betement le source et se l'approprier... sa m'est deja arrive... :( et si sa recommence je resterait a 100% closed source...
Commentaire de BlackNeo le 20/06/2005 11:50:20

Salut, je voudrais juste savoir où tu as trouvé les articles concernant la gestion des couleurs de bersirc et mirc?
Car j'arrive pas trop à les trouver.
Merci si tu peux maider.