Answered May 23, 2017 · 2 votes
Try this sample in vbscript :
Option ExplicitDim URL,ws,fso,Srcimage,Temp,PathOutPutHTML,fhta,stRep,stFichier,oShell,oFolder,oFichier,DimensionsDim arrSize,intLength,intHorizontalSize,intVerticalSize,TabURL = "http://www.animatedimages.org/data/media/902/animated-tunisia-flag-image-0023.gif"Set ws = CreateObject("wscript.Shell")Set fso = CreateObject("Scripting.FileSystemObject")Temp = WS.ExpandEnvironmentStrings("%Temp%")PathOutPutHTML = Temp & "\image.hta"Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True)stRep = TempTab = split(url,"/")stFichier = Tab(UBound(Tab))Srcimage = stRep & "\" & stFichierIf Not fso.FileExists(Srcimage) Then Call DownloadingFile(URL,Srcimage)Set oShell = CreateObject("Shell.Application")Set oFolder = oShell.Namespace(stRep)Set oFichier = oFolder.Items.Item(stFichier)Dimensions = oFolder.GetDetailsOf(oFichier,31)arrSize = Split(Dimensions,"x") '***************************************Important à savoir **********************************************'Instead, we ended up retrieving item 31, which gave us the total dimensions of the picture,'using an output format similar to this: ?150 x 354?'http://blogs.technet.com/b/heyscriptingguy/archive/2008/05/16/how-can-i-search-a-folder-for-all-the-image-files-that-are-not-a-specified-height-and-width.aspx'Un grand merci à omen999 ==> 'http://www.developpez.net/forums/d1504644/autres-langages/general-visual-basic-6-vbscript/vbscript/passage-variables-procedure/#post8163406intLength = Len(arrSize(0))intHorizontalSize = Right(arrSize(0),intLength -1)intLength = Len(arrSize(1))intVerticalSize = Left(arrSize(1),intLength - 1) '***************************************Important à savoir ********************************************** Call LoadImage(Srcimage,intHorizontalSize,intVerticalSize,Timeout(51)) ws.run "mshta.exe " & PathOutPutHTMLElseSet oShell = CreateObject("Shell.Application")Set oFolder = oShell.Namespace(stRep)Set oFichier = oFolder.Items.Item(stFichier)Dimensions = oFolder.GetDetailsOf(oFichier,31)arrSize = Split(Dimensions,"x")intLength = Len(arrSize(0))intHorizontalSize = Right(arrSize(0),intLength -1)intLength = Len(arrSize(1))intVerticalSize = Left(arrSize(1),intLength - 1) Call LoadImage(Srcimage,intHorizontalSize,intVerticalSize,Timeout(51)) ws.run "mshta.exe " & PathOutPutHTMLEnd If'********************************************************************************************************Function TimeOut(T) TimeOut = T * 1000End Function '********************************************************************************************************Sub LoadImage(Srcimage,intHorizontalSize,intVerticalSize,TimeOut) fhta.WriteLine "<html>" fhta.WriteLine " <hta:application id=""oHTA"" " fhta.WriteLine " border=""none"" " fhta.WriteLine " caption=""no"" " fhta.WriteLine " contextmenu=""no"" " fhta.WriteLine " innerborder=""no"" " fhta.WriteLine " scroll=""no"" " fhta.WriteLine " showintaskbar=""no"" " fhta.WriteLine " />" fhta.WriteLine "<style>" fhta.WriteLine "{ margin: 0; padding: 0; }" fhta.WriteLine "body {background: url(" & DblQuote(Srcimage) & ") no-repeat center center fixed;}" fhta.WriteLine "</style>" fhta.WriteLine " <script language=""VBScript"">" fhta.WriteLine " Sub Window_OnLoad()" fhta.WriteLine " width = " & intHorizontalSize fhta.WriteLine " height = " & intVerticalSize fhta.WriteLine " window.resizeTo width, height" fhta.WriteLine " window.moveTo screen.availWidth\2 - width\2, screen.availHeight\2 - height\2" fhta.WriteLine " idTimer = window.setTimeout(""vbscript:window.close"","& TimeOut &")" fhta.WriteLine " window.setInterval ""setfocus()"",100" fhta.WriteLine " End Sub" fhta.WriteLine " Function setfocus" fhta.WriteLine " Window.Focus()" fhta.WriteLine " End Function" fhta.WriteLine " </script>" fhta.WriteLine "<body>" fhta.WriteLine "<bgsound src=""http://hackoo.alwaysdata.net/Tunisie.mp3"">" fhta.WriteLine "</body>" fhta.WriteLine "</html>"End Sub'**********************************************************************************************Function DblQuote(Str) DblQuote = Chr(34) & Str & Chr(34)End Function'**********************************************************************************************Sub DownloadingFile(URL,strHDLocation)Dim Titre,objFSO,Ws,objXMLHTTP,PathScript,Tab,objADOStream,Command,Start,FileDim MsgTitre,MsgAttente,StartTime,DurationTime,ProtocoleHTTPSet objFSO = Createobject("Scripting.FileSystemObject")Set Ws = CreateObject("wscript.Shell")ProtocoleHTTP = "http://"If Left(URL,7) <> ProtocoleHTTP ThenURL = ProtocoleHTTP & URLEnd ifTab = split(url,"/")File = Tab(UBound(Tab))File = Replace(File,"%20"," ")File = Replace(File,"%28","(")File = Replace(File,"%29",")") Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0") strHDLocation = PathScript & "\" & File On Error Resume Next objXMLHTTP.open "GET",URL,false objXMLHTTP.send()If Err.number <> 0 Then MsgBox err.description,16,err.description Exit Sub Else If objXMLHTTP.Status = 200 Then strHDLocation = Temp & "\" & File 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 objADOStream.SaveToFile strHDLocation,2 '2=adSaveCreateOverWrite objADOStream.Close Set objADOStream = Nothing End IfEnd ifSet objXMLHTTP = NothingEnd Sub
And may be another samples here : VBS/Batch Check if Download Complete