Afk (titre trop court)

Commenter

Contenu du snippet

afk :p
avec comand salon

Source / Exemple : 


' comand bouton1
'comand bouton2
'text box
'label1
'timer1 
'noublier pas de metre le timer1 a 60000interval
'timer2 interval doit etre de 1
'le timer 2 sert puor les comand salon

Private Sub Command2_Click()
timer1.Enabled = false 'le timer saretes
End Sub

Private Sub Command1_Click()
timer1.Enabled = true ' le timer comence lol:)
End Sub

Private Sub timer1_Timer()
Label1.Caption = Val(Label1) + 1    ' Ajoute 1 à Label1
chatsend"" + text1.text +" depuis "+ label1.caption +"

Private Sub Form_Load()
timer1.Enabled = False 'quand le prog se charge le timer ne se mais pas en route
End Sub

Private Sub Timer2_Timer()
If GetWt <> X1 Then
    
    If Len(GetWt) = Len(X1) - 1 Or Len(GetWt) = Len(X1) + 1 Or Len(GetWt) = Len(X1) - 2 Or Len(GetWt) = Len(X1) + 2 Then
        msg = X1
        X1 = GetWt
    Else
        msg = X1
        X1 = GetWt
        

    
If LCase(msg) = "away" Then
away.Enabled = True

chatsend"" + text1.text +" depuis "+ label1.caption +"

Else
away.Enabled = False
End If
End Sub

Conclusion :


ocun bug
il faut un modul comprenent la fonction "chatsend"
:)
est un modul comprenent les fonction "comand salon"
le modul sapelle cmd

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Fl0sis)