ragazzi sto facendo un'applicazione in vbscript che so connette al un server e mi salva delle immagini in locale,però da qualche parte sbaglio perchè l'immagine si crea ma non si visualizza.Ecco il codice:
codice:indirizzo= "http://adorocinema.cidadeinternet.com.br/ filmes/monge-a-prova-de-balas/monge-a-prova-de-balas-poster01.jpg" Set img = CreateObject("Microsoft.XMLHTTP") img.open "GET", indirizzo, false img.send() estensione = "."& right(img.getResponseHeader("Content-Type"),3) If estensione = ".peg" Then estensione = ".jpg" Dimensione =img.getResponseHeader("Content-Length") Contenuto =img.getResponseHeader("Content-Type") Disposizione =img.getResponseHeader("Content-Disposition") Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("C:\nome"& estensione,true,true) MyFile.WriteLine (img.responseBody ) MyFile.Close![]()
![]()

Rispondi quotando