Discussion :

[zerobug]

Bonjour à tous,

Débutant en vbscript, je cherche à mettre en place un script qui puisse se connecter à différents sites internet (que je passerai en paramètre) afin d'y récupérer des informations souhaitées.

Je fouille, je fouille mais si vous avez des idées, des pistes, tout est bienvenu.

Merci d'avance.

[pc75]

Bonjour,

Une piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set IE = CreateObject("InternetExplorer.Application")

et un lien :
http://jacxl.free.fr/cours_xl/cours_...tml#piloter_ie

[zerobug]

Merci PC75

Cette méthode marche nickel chrome.
Toutefois, je me retrouve confronté à un nouveau problème dû au fait que j'aimerais inscrire le resultat du ie.document.body.innertext dans un fichier texte. En gros j'ai écrit un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
contenu = ie.document.body.innertext
MsgBox (ie.document.body.innertext)
Dim contenuSite : Set contenuSite = fso.OpenTextFile("./ContenuSite.txt", 2,  True)
contenuSite.Write(contenu)

l'écriture ne se fait pas et je ne sais pas pourquoi. Faudrait-il caster le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ie.document.body.innertext

je suis perdu. Des idées svp

[SfJ5Rpw8]

et si tu utilise MsgBox pour afficher ta variable contenu tu as quoi ?

[zerobug]

j'obtiens le contenu de ma page web affiché ligne par ligne.
Et c'est ce contenu que je voudrais inscrire dans fichier

[ced600]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"./ContenuSite.txt"

Si tu veux ecrire cela dans un fichier du répertoire courant (pour l'exécution du script, généralement celui où se trouve le script) alors il suffit de mettre "ContenuSite.txt".

De toute façon sous windows, pour les chemins complets ou relatif, on utilise \ et non /

L'aide se trouve ici :
http://msdn.microsoft.com/en-us/libr...4s(VS.85).aspx
Et ici (FAQ) :
http://vb.developpez.com/faqvbs/?page=II.2.4#fsowrite