Bonjour à tous, j'ai besoin d'aide, comme mon pseudo l'indique, je ne suis pas du tout une spécialiste. Voilà, je vous explique
Lorsque j’utilise ce job, je peux récupérer les liens lorsque je navigue sur le site mais je veux ouvrir internet explorer comme le montre la deuxième partie
Set objIE = WScript.CreateObject("InternetExplorer.Application","objIE_" )
objIE.navigate("http://support.microsoft.com/" )
objIE.Visible = True
boolBrowserRunning = True
Do While objIE.Visible
Loop
Sub objIE_NavigateComplete2(ByVal pDisp, URL)
WScript.Echo "Lien:", URL
End Sub
Sub objIE_OnQuit()
boolBrowserRunning = False
End Sub
J’obtiens les liens au fur et à mesure que je navigue sur le site
http://support.microsoft.com/
http://support.microsoft.com/InternetExplorer
http://support.microsoft.com/gp/ie6faq
Mais, voilà ! ! ! je veux ouvrir Internet explorer de la façon suivante et j'ai essayé d'adapter le 1er script au mien:
dim inet
set inet = CreateObject("InternetExplorer.Application" )
inet.navigate("http://support.microsoft.com/" )
inet.visible = true
Do While inet.Visible
Loop
do while inet.busy
‘ là je calcule le tps de chargement avec une fction timer
loop
' là est le problème , je me plante avec: "redefinition de nom!!!
'Sub inet.NavigateComplete2(ByVal pDisp , URL)
' WScript.Echo "Lien:", URL
'End Sub
Si mon problème vous interresse, je vous remercie de bien vouloir m'aider