récuperer liens Internet explorer via vbs

récuperer liens Internet explorer via vbs - VB/VBA/VBS - Programmation

Marsh Posté le 10-03-2005 à 12:45:15    

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

Reply

Marsh Posté le 10-03-2005 à 12:45:15   

Reply

Marsh Posté le 10-03-2005 à 21:22:03    

Ta 2ème sub est une sub d'event.
 
La syntaxe est avec un "underscore" (souligné) et pas un point entre inet et NavigateComplete2


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 14-03-2005 à 18:33:04    

Merci de m'avoir répondu mais j'ai testé at le script ignore complètement la fonction sub.Il ne me renvoie aucun lien!!!!!!

Reply

Marsh Posté le 15-03-2005 à 07:08:26    

Je n'ai pas de réponse, mais si j'analyse ton exemple:
Set objIE = WScript.CreateObject("InternetExplorer.Application","objIE_" )  
 
Je vois que toi, tu prends des raccourcis:
set inet = CreateObject("InternetExplorer.Application" )
 
Si tu essayais:
set inet = WScript.CreateObject("InternetExplorer.Application","inet_")


Message édité par AlainTech le 15-03-2005 à 07:10:08

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 15-03-2005 à 11:18:33    

merci  
inet_ ou objIE_ ca marche mais le but est d ouvrir internet comme je le fais dans mon 2 eme script sinon le reste de mon script ne fonctionnera pas
merci

Reply

Marsh Posté le 15-03-2005 à 12:14:22    

Je trouve ça:
The second argument to WScript.CreateObject creates a local object and hooks up its event handlers.  
 
Il faut donc ajouter ',"inet_"' pour pouvoir intercepter les événements!


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed