Perfetto ora è tutto Ok
Grazie
Metto via il programmino per un futuro non si sa mai
Riassumo per altri copia e incolla file testo e
salvare come estensione esempio:
webcam.vbs
Lo si fa eseguire con le pianificate di win o con Download System Scheduler for Windows, iDailyDiary, Autorota, Launchkey, Clipboards, Daily Diary
Codice senza archivio
Codice Con archivioCodice:ImageFile = "webcam.jpg" Cartella_radice = "D:\Documenti\Meteo\" rnd_num=Int((999 * Rnd) + 1) URL = "http://sacilemeteo.altervista.org/_altervista_ht/webcam.jpg?" & rnd_num Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", URL, False xml.Send set oStream = createobject("Adodb.Stream") Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Const adSaveCreateNotExist = 1 oStream.type = adTypeBinary oStream.open oStream.write xml.responseBody oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing
Codice:Set sc = CreateObject("Scripting.FileSystemObject") Cartella_radice = "D:\Documenti\Meteo\" rnd_num=Int((999 * Rnd) + 1) URL = "http://sacilemeteo.altervista.org/_altervista_ht/webcam.jpg?" & rnd_num anno=Year(Date) mese=right ( "00" & Month(Date),2) giorno=right ( "00" & Day(Date),2) ora= right ( "00" & Hour(Now) ,2) minuti= right ( "00" & Minute(Now) ,2) Nome_img = "cam_" & ora & "_" & minuti & ".jpg" cartella_odierna = Cartella_radice & anno &"-" & mese &"-" & giorno & "\" ' se non esiste cartella RADICE...la crea If Not sc.FolderExists(Cartella_radice) Then sc.CreateFolder Cartella_radice ' se non esiste cartella odierna...la crea If Not sc.FolderExists(cartella_odierna) Then sc.CreateFolder cartella_odierna Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", URL, False xml.Send If xml.Status = 200 Then set oStream = createobject("Adodb.Stream") Const adTypeBinary = 1 oStream.type = adTypeBinary oStream.open oStream.write xml.responseBody oStream.savetofile cartella_odierna & Nome_img, 2 ' OverWrite oStream.close set oStream = nothing End if Set xml = Nothing Set sc = Nothing
Davis Pro http://sacilemeteo.it
Davis Pro http://campagnola.altervista.org/davis/
Davis Vue http://solaresacile.altervista.org/davis/
Come diavolo si fa' a rispondere ai MESSAGGI DEI VISITATORI ?
Non riesco a trovare l' opzione
No,fwink
Villar Perosa, B.ta Casavecchia (TO) 630 m
Villanova C.se (TO) 376 m slm
ho nuovamente problemi.
ho cambiato pc, installato windows 7 ultimate, ma lo script sopra nun funziona..
mi da il seguente errore
Immagine.png
Villar Perosa, B.ta Casavecchia (TO) 630 m
Villanova C.se (TO) 376 m slm
Help! !!
Villar Perosa, B.ta Casavecchia (TO) 630 m
Villanova C.se (TO) 376 m slm
Mariuss se ci sei batti un colpo
Villar Perosa, B.ta Casavecchia (TO) 630 m
Villanova C.se (TO) 376 m slm
da lo stesso erroe anche a me.
il mio scrpit ora è :
cosa devo modificare per farlo funzionare?ImageFile = "capture1.jpg"
DestFolder = "C:\Users\DAVIS\Documents\webcam\"
URL = "http://192.168.0.6:81/snapshot.cgi?user=admin&pwd="
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False
xml.Send
set oStream = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
oStream.type = adTypeBinary
oStream.open
oStream.write xml.responseBody
oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist
oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
oStream.close
set oStream = nothing
Set xml = Nothing
come a Gigi600 se cancello l'immagine funziona, se la trova già non sovrascrive.
sarebbe possibile inserire nello script, prima che faccia il download, una riga di comando che mi cancelli il file "capture1.jpg" in modo che, quando salva immagine nuova, non lo trovi e quindi funzioni?
come si fa?
Villar Perosa, B.ta Casavecchia (TO) 630 m
Villanova C.se (TO) 376 m slm
dopo vari tentativi ce l'ho fatta da solo... ho inserito un comando che cancelli l'immagine prima di scaricarne una nuova, sembra funzuini..
Villar Perosa, B.ta Casavecchia (TO) 630 m
Villanova C.se (TO) 376 m slm
Villar Perosa, B.ta Casavecchia (TO) 630 m
Villanova C.se (TO) 376 m slm
io uso wdwebcamcapture
Segnalibri