vbchat.bas

来自「vb chat it s good idea for beginners to 」· BAS 代码 · 共 49 行

Attribute VB_Name = "ModVbchat"
'**************************************************************************************
'* VBCHAT                                                                             *
'* -----------------------------------------------------------------------------------*
'* Auteur: Dexterlud ([e-mail])                                             *                 *
'* But:    Chat sur r閟eau local                                                      *
'**************************************************************************************

'~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=
'D閏larations globales du projet
'~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=

'API: lecture d'un fichier .ini
Public Declare Function GetPrivateProfileString Lib "kernel32" _
                 Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
                                                   ByVal lpKeyName As Any, _
                                                   ByVal lpDefault As String, _
                                                   ByVal lpReturnedString As String, _
                                                   ByVal nSize As Long, _
                                                   ByVal lpFileName As String) As Long

Public gsPseudo As String                       'pseudo de l'utilisateur
Public gsGenre As String                        'mode de connexion
Public gsCanal As Byte                          'canal choisi
Public gsFichierId(1 To 3) As String            'chemin du fichier des pseudos
Public gsFichierMsg(1 To 3) As String           'chemin du fichier des messages
Public gnLongueurListe As Integer               'longueur maximale de la liste
Public gnLongueurMessage As Integer             'longueur maximale des messages
Public gsPassword As String                     'mot de passe op閞ateur

'D====================================================================================D
'Fonction: d閎ut du programme
'D====================================================================================D

Public Sub Main()

Dim i As Byte           'compteur

'chargement des param鑤res (canaux)
For i = 1 To 3
    gsFichierId(i) = gFuncLireINI("PSEUDOS", "canal" & i, "VbChat.ini")
    gsFichierMsg(i) = gFuncLireINI("MESSAGES", "canal" & i, "VbChat.ini")
Next

'longueurs de liste et des messages
gnLongueurListe = Val(gFuncLireINI("LONGUEURS", "longliste", "VbChat.ini"))
gnLongueurMessage = Val(gFuncLireINI("LONGUEURS", "longmsg", "VbChat.ini"))

'mot de passe op閞ateur (invers