Comment savoir si une page internet est finie de charger ?

[chriss]

Bonjour,

Je débute en purebasic et j' essai de faire une souris automatique. Pas de problèmes pour récupérer les évènements clavier ou souris, pas de problèmes non plus pour savoir si une fenêtre word par exemple est ok (grace à la lib de droopy) mais je ne trouve pas comment savoir lorsque une page internet est finie de charger (dans une fenêtre externe au prog)
Il y'aurait peut-être GetTitleBarInfo_(hwnd,pti) mais j'ai du mal avec les api.
Merci de me venir en aide sinon des vilains delay feront leur apparition.

[G-Rom]

bienvenu, humm, toi, tu veut tricher en ligne, un site ou il faut cliquer sur des images, style confidentielles.com?
ma femme m'avait demander de lui faire se genre de prog, bah figure toi qu'elle a quand meme perdu malgres un programmes d'autoclick... c'est dire les tricheurs...
sinon, je ne pourrais pas t'aider pour les api.

bon courage.

[chriss]

A non du tout. C'est pour le boulot ou je dois remplir des champs sur des pages intranet comme tout simplement des login et mot de passe, faire des exports excel chaque semaine, en récupérer des données etc.....
D' ailleurs je vous remercie tous car sans votre forum je n'aurais jamais réussi à manipuler des fichiers excel afin de me simplifier grandement la vie.

[Musaique]

a moi aussi je debute au pure basic il y a quelque jours pour un nouveau cours d'école!
Je me posait la question aussi, merci!

[Jacobus]

; En utilisant le webgadget()
; avec un string ou une statusbar pour afficher les messages
; dans la boucle d'évènements ça donnerai quelque chose comme ça...
; Ensuite, si c'est pour un usage sur autre prog, le faire en mode hide et récupérer les messages.
Attention! code incomplet, ne fonctionne pas sans la fenêtre (je préfère, à tout hasard... )

Code : Tout sélectionner

#Webgadget ; navigateur
#StrWebAddress ; string pour l'adresse web
#StrWebStatus ; string de statut
#StrWebLoad ; string indicateur de chargement
Repeat 
  Event = WaitWindowEvent() 
  Select Event   
    Case #PB_Event_Gadget    
      Select EventGadget()
                   
        Case #Webgadget
          Select EventType()
              
            Case #PB_EventType_StatusChange  ; changement dans le navigateur
              SetGadgetText(#StringWeb,GetGadgetText(#Webgadget))
              SetGadgetText(#StrWebStatus,GetGadgetItemText(#Webgadget, #PB_Web_StatusMessage, 0)) 
              
            Case #PB_EventType_DownloadStart ; indique le début du chargement
              SetGadgetText(#StrWebAddress,GetGadgetText(#Webgadget))
              SetGadgetText(#StrWebLoad, "Connexion...")
              
            Case #PB_EventType_DownloadEnd ; indique que la page est chargée
              SetGadgetText(#StrWebAddress,GetGadgetText(#Webgadget))
              SetGadgetText(#StrWebLoad, "Chargement terminé")
              
          EndSelect
          
      EndSelect 
  EndSelect
  If Event = #PB_Event_CloseWindow 
     quit=#True
  EndIf 
Until quit=#True
End