PureBasic

oui, cela fonctionne mais pas le bip

( sais pas pourquoi ?)
parcontre est-il possible de mettre mon adresse personnelle à la place d'un http ? ...
-> exemple mon adresse " salemioche@wanadoo.fr " je mets alors cette adresse dans la ligne ou se trouve le mot webgadget ( .....) ?

yves.

Ce n'est pas possible comme ça, ce que tu demandes dépasse mes compétences

bonsoir, ok , c'est pas grave .
bonne soirée.
yves

si celà fonctionne, sauf le bip !...
yves.

Le bip ne fonctionne pas chez moi non plus mais tu peux le remplacer par un son avec les commandes Sound de Purebasic.

oui c'est ce que j'ai fait sa tourne très bien aussi

avec les fonctions suivantes :
initsound()
loadsound()
playsound()

@++

ok je vais faire l"essai . merci.

j'avais un peu de temps a perdre
alors voici un petit programe qui va regarder combien tu as d'email
et qui va meme te le dire !!

préalablement il faut installer

1- la voix de virginie voir ce topic ( http://www.purebasic.fr/french/viewtopi ... 4601#94601 )
2- ma librairie Speak() voir sur mon site
3- la librairie de Gnozal PurePOP3 library
4- changez les parametres a l'interieur du listing pour mettre vos parametres

lancez le prg , qui va toute les 30 secondes regarder le nombre de message
de la boite au lettre spécifié dans le prg

et vous dire en parlant si vous avez des messages, en vous donnant le nombre

bien sur le message est personnalisé , mais vous pouvez
lui faire dire ce que bon vous semble

; Codé par Dobro
; en purebasic 4.30
; necessite la librairie PurePop3 de Gnozal
; necessite la librairie Speak de Dobro
; et d'avoir la voix "Virginie" d'installer (Sapi5) ²

Declare TimerProc(hwnd.l, uMsg.l, idEvent.l, dwTime.l)

Enumeration
     #timer_1
     #text
     #Window
EndEnumeration

If OpenWindow ( #Window , 10, 10, 100, 30, "check_Mail" , #PB_Window_SystemMenu|#PB_Window_MinimizeGadget )
     SetWindowColor ( #Window , RGB (0,0,0))
    Resultat = TextGadget ( #text , 1, 5, 150, 30, "en attente de message" )
     SetGadgetColor ( #text , #PB_Gadget_FrontColor , RGB ($0,$E6,$0))
     SetGadgetColor ( #text , #PB_Gadget_BackColor , RGB ($0,$0,$0))
     SetTimer_ ( WindowID ( #Window ) , #timer_1 , 60000, @TimerProc()) ; envoie un evenement toutes les 30 secondes ; en fait on prepare un timer qui enverra cette evenement
     Repeat
         ; SetWindowTitle(#Window,"chk")
         SetGadgetText ( #text , "en attente de message" )
     Until WaitWindowEvent () = #PB_Event_CloseWindow
EndIf

; cette procedure contient les actions a effectuer des 3 timers
Procedure TimerProc(hwnd.l, uMsg.l, idEvent.l, dwTime.l)
     Select uMsg
         Case #WM_TIMER
             Select idEvent
                 Case #timer_1 ; toute les 10 secondes
                     Debug "go go go"
                     SetGadgetText ( #text , "go go go" )
                     Delay (500)
                    pop3server.s= "pop.free.fr" ; pop.free.fr
                    POP3Port.l=110
                    POP3UserName.s= "michel.dobro" ; Login pour les emails
                    POP3UserPassword.s= "do422716" ; password
                     If PurePOP3_OpenPOP3Connection(pop3server.s, POP3Port.l, POP3UserName.s, POP3UserPassword.s) = #PurePOP3_Ok
                         Debug "connecté"
                         SetGadgetText ( #text , "connecté" )
                         Delay (500)
                         ; Beep(880 ,100)
                        nombre_message.l=PurePOP3_CountMessages()
                         If nombre_message>0
                             SetGadgetText ( #text , "il y a " + Str (nombre_message)+ " messages" )
                            Speak( "ScanSoft Virginie_Dri40_16kHz" , "il y a " + Str (nombre_message)+ " messages, en attente " ,100,-3,0)
                             ; nono("Michel, tu ha "+Str(nombre_message)+" messages dans ton imélle ",0,11,50)
                            nombre_message=0
                         Else ; pas de message
                             SetGadgetText ( #text , "en attente de message" )
                         EndIf
                        PurePOP3_ClosePOP3Connection()
                         Debug "close"
                         SetGadgetText ( #text , "close" )
                         Delay (500)
                         ; Beep(440,100)
                     EndIf
             EndSelect
     EndSelect
EndProcedure

Ok Dobro, je vais essayé tout ça , si ca fonctionne ca serait chouette...

merci mais je ferais l'essai dans la semaine, là je n'ai pas trop le temps, merci c'est sympa de ta part.

bonne soirée.
yves.

le code j'ai commencé à le changer:

Code : Tout sélectionner

 Declare TimerProc(hwnd.l, uMsg.l, idEvent.l, dwTime.l) 

Enumeration 
    #timer_1 
EndEnumeration 

If OpenWindow(0, 10, 10, 30, 30,"check_Mail", #PB_Window_SystemMenu) 
    Handle = WindowID(0) 
    SetTimer_(Handle, #timer_1, 30000, @TimerProc()) ; envoie un evenement toutes les 30 secondes ; en fait on prepare un timer qui enverra cette evenement 
    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf 



; cette procedure contient les actions a effectuer des  3 timers 
Procedure TimerProc(hwnd.l, uMsg.l, idEvent.l, dwTime.l) 
    Select uMsg 
        Case #WM_TIMER 
            Select idEvent 
                Case  #timer_1 ; toute les 10 secondes 
                    Debug "go go go" 
                    pop3server.s="pop.wanadoo.fr" ; pop.wanadoo.fr 
                    POP3Port.l=110 
                    POP3UserName.s="login.email" ; Login pour les emails 
                    POP3UserPassword.s="password" ; <--password a voir suivant mon contrat wanadoo je pense ?
                    If PurePOP3_OpenPOP3Connection(pop3server.s, POP3Port.l, POP3UserName.s, POP3UserPassword.s) =#PurePOP3_Ok 
                        Debug "connecté" 
                        nombre_message.l=PurePOP3_CountMessages() 
                        If nombre_message>0 
                            Speak("ScanSoft Virginie_Dri40_16kHz","Yves, tu as "+Str(nombre_message)+" messages dans ton email ",100,-3,0) 
                            ;    nono("yves, tu ha "+Str(nombre_message)+" messages dans ton imélle ",0,11,50) 
                        EndIf  
                        PurePOP3_ClosePOP3Connection() 
                    EndIf 
            EndSelect 
    EndSelect 
EndProcedure

pour le mot de pass je n'ai rien mis par sécurité

mais je pense que c'est celui donné par wanadoo ?

a plus , Dobro .
yves.

chercheacomprendre a écrit : pour le mot de pass je n'ai rien mis par sécurité
mais je pense que c'est celui donné par wanadoo ?

a plus , Dobro .
yves.

oui , c'est le pass que tu met dans ton client email habituel pour relever tes emails

ps , tu peux virer la ligne concernant nono

il faut que je refasse le son "A" , je referai une version dans le futur

de plus nono de sais pas compter a plus de 20

ok pas de souci, je vais charger comme tu ma l'a demandé les fichiers necessaires mais là je ne sais pas trop comment faire je verrais bien, dans la semaine.

merci Dobro .

yves.

ami Dobro, j'ai trouvé la presque la totalité des fichiers, sauf le fichier GNOZAL purepop3 library je ne sais pas il se trouve celui là ?... hi

faire une version simple , c'est a dire avec un beep pour voir si c'est ok ? non ?...
du moins pour voir si le programme tourne en s'envoyant un message e-mail ...

bon je suis obligé de quitter a plus Dobro, bonne soirée, et à bientot.

Yves.

chercheacomprendre a écrit :ami Dobro, j'ai trouvé la presque la totalité des fichiers, sauf le fichier GNOZAL purepop3 library je ne sais pas il se trouve celui là ?... hi

faire une version simple , c'est a dire avec un beep pour voir si c'est ok ? non ?...
du moins pour voir si le programme tourne en s'envoyant un message e-mail ...

bon je suis obligé de quitter a plus Dobro, bonne soirée, et à bientot.

Yves.

**
les librairies de gnozal sont sur son site !! ici :
http://freenet-homepage.de/gnozal/

bonsoir Dobro,
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 .

tu ferais comment pour faire un petit code de test avec un beep pour savoir si il y a un message ? as tu un exemple ?

je vais me couché demain debout 5h..

salut.

PureBasic

un bip indiquant un message.