Discussion :

[hackoofr]

à Tous !
J'ai ce Vbscript qui me télécharge un fichier swf depuis mon site web et qui marche très bien.
Mon but est comment puis-je modifier ce script pour me faire ouvrir mon fichier swf avec Internet Explorer après avoir le télécharger ?

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
Dim strFileURL,strHDLocation
' Mes paramètres 
    strFileURL = "http://hackoo.ifrance.com/M5.swf"
    strHDLocation = "c:\Merlin.swf"
' Récupérer le fichier
    Set Ws = CreateObject("WScript.Shell")
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End If
Set objXMLHTTP = Nothing 
Ws.Run strHDLocation 
Set Ws = Nothing

[SfJ5Rpw8]

L'automation te permet de piloter IE :

Code :

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

1
2
3
4
5
6
7
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "c:\Merlin.swf"
Do While (IE.Busy)
    WScript.Sleep 10
Loop

[hackoofr]

L'automation te permet de piloter IE :

Code :

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

1
2
3
4
5
6
7
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "c:\Merlin.swf"
Do While (IE.Busy)
    WScript.Sleep 10
Loop

bbil oui c'est une solution mais il me sort une Boîte de dialogue de téléchargement "Ouvrir","Enregistrer" ,"Annuler" que je n'ai pas besoin mais je veux qu'il me lit ce SWF directement avec IE sans Boîte de dialogue ou de confirmation après un téléchargement discret.Alors j'ai trouvé mieux et dans une seule ligne

Code :

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

Ws.Run "%comspec% /c Start iexplore " & strHDLocation, 0, 1

et le Script devient alors comme ceci:

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
Dim strFileURL,strHDLocation
' Mes paramètres 
    strFileURL = "http://hackoo.ifrance.com/M5.swf"
    strHDLocation = "c:\Merlin.swf"
' Récupérer le fichier
    Set Ws = CreateObject("WScript.Shell")
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End If
Set objXMLHTTP = Nothing 
Ws.Run "%comspec% /c Start iexplore " & strHDLocation, 0, 1 
Set WS = Nothing