Bonjour,

Je viens vers vous car je n'arrive pas à trouver la solution et je commence à m'arracher les cheveux.

J'utilise un petit programme qui met à jour des données sur un site.

Jusqu'à aujourd'hui pas de soucis majeur, mais aujourd'hui, sans raison apparente, le logiciel bloque.

J'ai une boucle qui met 2 fois 5 pages à jour en 2 boucles imbriquées du genre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
for 1 to 2... for 1 to 5 .... next next
Tout fonctionne parfaitement sauf que sur le tour 1, passage 5, le logiciel reste bloqué comme si la page ne se chargeait pas.

Une fois le bouton "enregistrer" cliqué, voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
  wb.Navigate("http://www...../")
  Call WaitForPageLoad()
Ce qui va appeler :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#Region "Page Loading Functions"
    Private Sub WaitForPageLoad()
        AddHandler wb.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
        While Not pageready
            Application.DoEvents()
        End While
        pageready = False
    End Sub
 
    Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        If wb.ReadyState = WebBrowserReadyState.Complete Then
            pageready = True
            RemoveHandler wb.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
        End If
    End Sub
 
#End Region
Je reste bloqué dans "Private Sub WaitForPageLoad()" alors que la page a bien été enregistré et que la mise à jour est effective.

Merci pour votre aide car je ne comprends plus rien là ! Le code fonctionne puisque les 4 premiers tours fonctionnent.

Au plaisir de vous lire.