Bonjour... Voila je vous propose un petit afk pour les programmes aol...
Il suffit 4 lignes de codes...
Il vous faut mettre 2 commandbutton et un timer :)...
Private Sub Form_Load()
MsgBox "Bienvenu(e)... Nous sommes le " + Date$ + " et il est " + Time$ + ". Attention l'afk se met en route des ke le programme sera ouvert... :) [Toutes les 1 minutes.]"
Label1.Caption = Time$
ChatSend "<font face=tahoma>ZøxøZ [afk] (" + Time$ + ")"
End Sub
Private Sub Command1_Click()
ChatSend "<font face=tahoma>" + Text1.Text + " a activé l'afk à " + Time$ + " Raison » " + Text2.Text + ""
End Sub
Private Sub Command2_Click()
MsgBox "Pour arrêter l'afk, vous devez fermer le programme... :)"
ChatSend Text1.Text + " a desactivé l'afk à " + Time$ + ""
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
ChatSend Text1.Text + " est absent, raison » " + Text2.Text + " [" + Time$ + "]"
End Sub