tu verra dans le code ligne 26 le chemin du son est peut être a modifier selon ta configuration.
si non il joue un son des que tu a 1 ou plusieurs messages.
Code : Tout sélectionner
Enumeration
#Window_0
#Web_0
#Son
EndEnumeration
InitSound()
If OpenWindow(#Window_0, 0, 0, 800, 600, "Messagerie", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(#Window_0))
WebGadget(#Web_0, 0, 0, 800, 600, "http://www.purebasic.fr/french/privmsg.php?folder=inbox")
Temps.l = ElapsedMilliseconds() ;initialisation temps écoulé
Repeat
Event = WaitWindowEvent(1)
If ElapsedMilliseconds()-Temps > 5000 ;attente de 5secondes
Sources.s = GetGadgetItemText(#Web_0, #PB_Web_HtmlCode) ;récupère le code source de la page html actuelle
New_Messages.l = CountString(Sources, "title="+Chr(34)+"Message Non-lu")
Old_Messages.l = CountString(Sources, "title="+Chr(34)+"Message déjà lu")
Debug "Nouveaux messages="+Str(New_Messages)
Debug "Anciens messages="+Str(Old_Messages)
SetGadgetState(#Web_0, #PB_Web_Refresh) ;rafraichit la page
;----------------------------bip----------------------------------------
For a = 1 To New_Messages
If New_Messages.l = a
LoadSound(#Son, "C:\WINDOWS\bip.wav", 0);<---- a toi de modifier le chemain d'un son attention mp3 non compatible seulement du wav
PlaySound(#Son , 0)
ElseIf New_Messages.l = 0
EndIf
Next
;----------------------------bip----------------------------------------
Temps = ElapsedMilliseconds() ;réinitialisation temps écoulé
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
EndIf@++
