Erreur au moment de l'attente de la fin du chargement du webbrowser

Question

bonjour tout le monde,
Voilà mon problème, mon application fait un traitement en boucle de la façon suivante: 

for i as integer to 6
  webbrowser1.navigate("monlien.com/a=#variable#".Replace("#variable#", i)

mon traitement 
................

next

j'ai fouillé un peu sur le forum et j'ai ajouté ceci pour attendre ke webbrowser se charge ensuite passer au traitement:

Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                        Threading.Thread.Sleep(1)
                        Application.DoEvents()
 Loop

mais ya une erreur ki est levé lors de l'exécution de ma boucle:

L'exception UnauthorizedAccessException n'a pas été géré
Access is denied. (Exception from HRESULT: 0x80070005 (E_ACCESSDENIED))

j'espère que quel'un a une solution  et merci d'avance

lediablo · Answer

bonjour
l'erreur c'est produit dans quel ligne ?


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie  (mon site)

ritshina_lilas · Answer

salut,

l'erreur est sur cette ligne :

Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete 
c'est là spécialement je pense : WebBrowser1.ReadyState

bigfish_le vrai · Answer

Salut,

Je me permet de repondre par une proposition mais VBA si cela peut aider:

    Do While ObjectIE.busy
        Application.Wait (Now + TimeValue("0:00:5"))
        DoEvents
        If Time - Start > 20 Then ' si plus de 20" on arrete
            MsgBox "Connection Time-out ! " & vbCrLf & _
                    "Internet Explorer can not open the specified URL." & vbCrLf & vbCrLf & _
                    "The web site is probably not accessible right now.", vbExclamation, "Connection Error..."
            ObjectIE.Quit
            Set ObjectIE = Nothing
            Exit Sub
        End If
    Loop

A+

Erreur au moment de l'attente de la fin du chargement du webbrowser

3 réponses

Votre réponse

Discussions similaires