Comment Ouvrir un fichier swf avec IE en VBScript ?

Version imprimable

:salut: à 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 ?
:merci:

Code:

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

L'automation te permet de piloter IE :

Code:

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

Citation:
Envoyé par bbil
L'automation te permet de piloter IE :
Code:

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
:salut: 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 ;) :resolu:

Code:

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

et le Script devient alors comme ceci:
Code:

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