Internet explorer et vb 2008

Bonjour,
Je cherche sans succès à mettre à niveau une fonction vba vers vb.net mais ca ne marche pas.
Voici la fonction qui marche bien en vba et que je souhaite utiliser dans un programme en vb net

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Function WaitIE(oIE As InternetExplorer, Optional pTimeOut As Long = 0) As Boolean Dim lTimer As Double lTimer = Timer Do DoEvents If oIE.readyState = READYSTATE_COMPLETE And Not oIE.Busy Then Exit Do If pTimeOut > 0 And Timer - lTimer > pTimeOut Then WaitIE = True Exit Do End If Loop End Function

---

Merci de votre aide

Est-ce que tu as un code erreur à nous fournir ou éventuellement la ligne qui bloque ?

WaitIE > Return True ?
Timer > variable ou fonction ? je crois que c'est une fonction réservé à VB.

Code:

---

Error 1 'Timer' is a type and cannot be used as an expression.

---

Bonjour prologic, le forum
En faite, c'est Timer qui pose probleme. Il me dit que c'est impossible de convertir timer en double !
Merci encore

'''le prinicipe de la fonction c'est de déclencher la fermeture de la page web au cas ou le chargement met plus de 8 secondes.

Essaye ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function WaitIE(oIE As InternetExplorer, Optional pTimeOut As Long = 0) As Boolean Dim lTimer As Double = Now     Do DoEvents If oIE.readyState = READYSTATE_COMPLETE And Not oIE.Busy Then Exit Do If pTimeOut > 0 And DateDiff("s",lTimer,Now) > pTimeOut Then WaitIE = True Exit Do End If Loop End Function

---