PureBasic

voila un code qui fonctionne avec la librairie sound()
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

@++

bonsoir ami Venom, merci de ta réponde et du code, mais je préfère le pop3 avec mon mot de pass du serveur personnel, si non ca fonctionne ya pas de probleme.
le code de Dobro j'ai commencé à le modifier pour mes parametres perso.
j'aurais aimé faire un essai de beep dans le meme style, mais je n'ais pas trop le temps actuellement de faire des essais ici. pas avant la fin de la semaine.
bonne soirée ami Venom.
encore merci.
yves.

chercheacomprendre a écrit :je viens de télécharger " purepop3_430" mais en le téléchargeant dans le lien : http://freenet-homepage.de/gnozal/
j'ai choppé une "merde" un win32 trojan vap sup ... il faudra y faire attention .

Mes EXE sont compactés par UPX ou PECompact.

Voir :
http://www.purebasic.fr/french/viewtopic.php?t=8984
http://www.purebasic.fr/french/viewtopic.php?t=6217
http://www.purebasic.fr/french/viewtopic.php?t=4721
http://www.purebasic.fr/english/viewtopic.php?t=32736
http://www.purebasic.fr/english/viewtopic.php?t=35827
http://www.purebasic.fr/english/viewtopic.php?t=29072
etc...

Pas de virus / troyen / etc... à ma connaissance. Il faudra plus qu'une alarme générique d'un seul antivirus pour me convaincre.

gnozal salut,
j'ai réessayé ce soir en téléchargeant en essayant de télécharger " pure valide_430.zip et j'ai récupéré encore une merde " gen:packer.generic "

désolé mais c'est la vérité.

yves.

chercheacomprendre a écrit :gnozal salut,
j'ai réessayé ce soir en téléchargeant en essayant de télécharger " pure valide_430.zip et j'ai récupéré encore une merde " gen:packer.generic "

désolé mais c'est la vérité.

yves.

*
ce que apparement tu ne comprends pas

c'est que ton antivirus donne une fausse alerte !!

ça arrive souvent avec les programmes compactés a l'aide de UPX
qui est un compresseur de programme !!

tu peux telecharger les prg de Gnozal sans probleme !!

je les recuperes depuis longtemps, et il n'y a AUCUN virus ni chevaux de troie, etc ..

apres , soit tu fait confiance, soit , tu reste dans ton lit, et oublie l'informatique, et ses nombreuses incertitudes ....

j'ajoute que la lib POP3 cherche a se connecter pour acceder aux email
donc, elle contient un code qui peut faire paniquer certains antivirus !!

de plus, ton firewall devrai raler, puisque tu va faire une connection pour acceder a tes email, alors comme ça tu es prévenue a l'avance

ok, Dobro. mille excuses, oui je comprends.
je me suis affolé pour rien !...
temps mieux alors.
bonne soirée
yves

bonsoir Atomo,
oui j'ai bien regardé ton code mais le login et le pass le mettre ou ? peux tu me donné un exemple, de plus moi j'ai mis a la place du http mon adresse ?
alors
j'ai la page d'acceuil de mon serveur .
yves.

Ce code affiche une icône dans le coin infèrieur droit de ton bureau, fais un clique droit dessus puis cliques sur 'Connexion' pour entrer tes paramètres personnels.
Quand tu as un nouveau message, l'icône change et tu entendras un son.

Il faut que tu télécharges cette archive pour récupérer les icônes et sons : http://www.toofiles.com/fr/oip/documents/rar/mail.html

Code : Tout sélectionner

Enumeration
  #Window_0
  #SysTray
  #Menu
  #Icone_defaut
  #Icone_vide
  #Icone_nouveau
  ;Fenetre connexion
  #Window_1
  #Text_0
  #String_0
  #Text_1
  #String_1
  #Text_2
  #String_2
  #Button_0
EndEnumeration

#Check_Attente = 60000 ;temps d'attente entre 2 verifications de messages en millisecondes

Declare Connexion()
Declare Check_Messages(dummy)

InitSound()
UseOGGSoundDecoder()

;Chargement des icones
LoadImage(#Icone_defaut, "defaut.ico")
LoadImage(#Icone_vide, "vide.ico")
LoadImage(#Icone_nouveau, "nouveau.ico")
;chargement du son
LoadSound(0, "sound.ogg")

If OpenWindow(#Window_0, 0, 0, 0, 0, "Mail", #PB_Window_Invisible)
  ;Création du popup menu
  CreatePopupMenu(#Menu)
    MenuItem(1, "Connexion")
    MenuItem(2, "Quitter")
  AddSysTrayIcon(#SysTray, WindowID(#Window_0), ImageID(#Icone_defaut)) ;création de l'icone en bas à droite du bureau
  SysTrayIconToolTip(#SysTray, "Vous n'êtes pas connecté")
  
  Repeat
    Event = WaitWindowEvent(1)
    If Event
      Select Event
        Case #PB_Event_SysTray
          Select EventType()
            Case #PB_EventType_RightClick
              DisplayPopupMenu(#Menu, WindowID(#Window_0)) ;afficher le menu popup
            Case #PB_EventType_LeftDoubleClick
              Connexion()
          EndSelect
        Case #PB_Event_Menu
          Select EventMenu()
            Case 1 ;Connexion
              Connexion()
            Case 2 ;Quitter
              End
          EndSelect
      EndSelect
    EndIf
  ForEver
EndIf

Procedure Connexion()
  ExamineDesktops() ;permet de récupérer la largeur du bureau
  Global login.s, password.s, server.s, Anciens_Messages.l
  Static thread
  
  If OpenWindow(#Window_1, DesktopWidth(0)-190, DesktopHeight(0)-260, 172, 191, "Connexion",  #PB_Window_SystemMenu | #PB_Window_TitleBar)
    TextGadget(#Text_0, 10, 10, 150, 20, "Adresse@mail :")
    StringGadget(#String_0, 10, 30, 150, 20, "")
    SetActiveGadget(#String_0)
    TextGadget(#Text_1, 10, 60, 150, 20, "Mot de pass :")
    StringGadget(#String_1, 10, 80, 150, 20, "", #PB_String_Password)
    TextGadget(#Text_2, 10, 110, 150, 20, "Server :")
    StringGadget(#String_2, 10, 130, 150, 20, "")
    ButtonGadget(#Button_0, 40, 160, 90, 20, "Connexion")
    
    Repeat
      Event = WaitWindowEvent(1)
      If Event
        Select Event
          Case #PB_Event_Gadget
            Select EventGadget()
              Case #Button_0 ;Connexion
                login.s = StringField(GetGadgetText(#String_0), 1, "@")
                password.s = GetGadgetText(#String_1)
                server.s = GetGadgetText(#String_2)
                If IsThread(thread)
                  KillThread(thread)
                EndIf
                Anciens_Messages = 0
                CreateThread(@Check_Messages(), 0)
                Quit = #True
            EndSelect
        EndSelect
      EndIf
    Until Event = #PB_Event_CloseWindow Or Quit = #True
    CloseWindow(#Window_1)
  EndIf
EndProcedure

Procedure Check_Messages(dummy)
  Repeat
    
    If PurePOP3_OpenPOP3Connection(server, 110, login, password) = #PurePOP3_Ok
      Nouveaux_Messages.l = PurePOP3_CountMessages()
      
      ;premier lancement
      If startup.b = #False
        Anciens_Messages = Nouveaux_Messages
        ChangeSysTrayIcon(#SysTray, ImageID(#Icone_vide))
        SysTrayIconToolTip(#SysTray, login+Chr(13)+"Vous n'avez pas de messages")
        startup = #True
      EndIf
      
      If Nouveaux_Messages <> Anciens_Messages
        If Nouveaux_Messages > Anciens_Messages
          ChangeSysTrayIcon(#SysTray, ImageID(#Icone_nouveau))
          ;Joue le son
          PlaySound(0)
          x+1
        EndIf
        SysTrayIconToolTip(#SysTray, login+Chr(13)+"Vous avez "+Str(x)+" nouveaux messages")
        Anciens_Messages = Nouveaux_Messages
      EndIf
      PurePOP3_ClosePOP3Connection()
    EndIf
    Delay(#Check_Attente)
    
  ForEver
EndProcedure

ok Atomo.
parcontre je n'ai pas d'utilitaire pour le fichier mail.rar , et en téléchargeant sur google me suis choppé un virus ... je suis en train de le virer si je peux ... pas de chance en ce moment ...
merci c'est sympa de m'avoir envoyé ce code.

bon week end a toi, a bientot.
Yves.

De rien, tu peux récupérer winrar à cette adresse : http://www.01net.com/telecharger/window ... /2257.html

Je n'ai jamais attrapé de virus sur celui-ci contrairement à Clubic

chercheacomprendre a écrit :ok Atomo.
parcontre je n'ai pas d'utilitaire pour le fichier mail.rar , et en téléchargeant sur google me suis choppé un virus ...

note que tu aura quand meme besoin de la librairie de gnozal !!

du coup je me dit :

"pfff! si il avait téléchargé les fichiers que je lui ait dit , il aurai son prg, qui non content de lui dire qu'il a des messages, lui aurai meme dit combiens .... et par dire je veux vraiment dire 'Dire' !!!!"

et il n'aurai pas eu de virus !!

comme quoi tu as eu peur , d'un pseudo virus de gnozal
pis t'a fini par en choper un vrais, que ton antivirus a pas vu manifestement !!

tu as preferé faire confiance a un inconnu sur un site de telechargement
au détriment d'un membre du forum !!!

Lafontaine a surement fait une morale pour toi

@Yves

Tu t'en es dépatouillé de ton virus?

Ollivier

PureBasic

un bip indiquant un message.

mettre un bip quand un message arrive dans ma messagerie.