Discussion :

[loupi2004]

Bonjour
Je dois récupérer le contenu d'une page web après le chargement de la page terminée et le stocker dans un fichier txt.
Le seul hic cest que mon adresse http ressemble un peu à ca :
Http://192.168.13.76:5674<requete1>?XML"1.0".... Bref voilà. J'ai fais un script qui marche très bien pour une page web standard mais pour ça non. Help. Si vous avec un code plus fonctionnel que le mien.
Merci d'avance.

[hackoofr]

Bonjour
Je dois récupérer le contenu d'une page web après le chargement de la page terminée et le stocker dans un fichier txt.
Le seul hic cest que mon adresse http ressemble un peu à ca :
Http://192.168.13.76:5674<requete1>?XML"1.0".... Bref voilà. J'ai fais un script qui marche très bien pour une page web standard mais pour ça non. Help. Si vous avec un code plus fonctionnel que le mien.
Merci d'avance.

Et c'est quoi votre code ??? postez-le !

[loupi2004]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
Dim Ws,Fso,MaCopie,URL,LogFile
Set Ws = CreateObject("Wscript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
LogFile = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "txt"
if Fso.FileExists(LogFile) Then
    Fso.DeleteFile LogFile
end if
URL = "http://192.168.1.55:5166/bobyt/Dispatcher?action=synchro&data=<?xml version=\"1.0\" encoding=\"UTF-8\"?><synchro><favori><id>435443534</id></favori><favori_rete><id>6229536</id></favori_rete><database>toto</database></synchro>"
MaCopie = CopierColler(URL)
Call WriteLog(MaCopie)
Ws.Run DblQuote(LogFile)
'******************************************************************************************************************************************
Function CopierColler(URL)
    Dim ie
    Set ie = CreateObject("InternetExplorer.Application") 
    ie.Navigate(URL)
    ie.Visible=false
    DO While ie.busy
    Loop
    CopierColler = ie.document.documentElement.innertext 
    ie.Quit 
    Set ie=Nothing
End Function
'******************************************************************************************************************************************
Sub WriteLog(strText)
    Dim fs,ts 
    Const ForAppending = 8
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "txt", ForAppending, True)
    ts.WriteLine strText
    ts.Close
End Sub
'******************************************************************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'*************************************************************************************************************************************

[loupi2004]

Des idées ?

[Marc-L]

Bonjour,

oui, c'est dommage d'utiliser IE au lieu d'une requête
(via ActiveX MSXML2.XMLHttp ou WinHttp.WinHttpRequest.5.1, voir aussi leur propriété responseText) …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[loupi2004]

Peux tu me faire un exemple ?