Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
967 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  récuperer liens Internet explorer via vbs

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

récuperer liens Internet explorer via vbs

n°1008103
novice19
Posté le 10-03-2005 à 12:45:15  profilanswer
 

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

mood
Publicité
Posté le 10-03-2005 à 12:45:15  profilanswer
 

n°1008830
AlainTech
Pas trouvé? Cherche encore!
Posté le 10-03-2005 à 21:22:03  profilanswer
 

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!
n°1012420
novice19
Posté le 14-03-2005 à 18:33:04  profilanswer
 

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!!!!!!

n°1012874
AlainTech
Pas trouvé? Cherche encore!
Posté le 15-03-2005 à 07:08:26  profilanswer
 

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!
n°1013071
novice19
Posté le 15-03-2005 à 11:18:33  profilanswer
 

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

n°1013192
AlainTech
Pas trouvé? Cherche encore!
Posté le 15-03-2005 à 12:14:22  profilanswer
 

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!

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  récuperer liens Internet explorer via vbs

 

Sujets relatifs
récupérer une valeurRecuperer la décimale d'une valeur ?
problème d'accent dans les liensRecuperer une donnée par rapport au dernier ID
recuperer l'URL d une page en PHP?liens gauche fixe avec partie centrale longue sur dream mx
Récupérer des sélections multiples[PHP] recupérer le contenu d'une page dans une session
Faire une liste de liens 
Plus de sujets relatifs à : récuperer liens Internet explorer via vbs


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR