ciao a tutti
tempo fa avevo risolto, ma vorrei riprogrammare lo script che salva l'immagine della IP cam in modo che non dia errori.
adesso lo script è il seguente:
come già segnalato, se lo script trova già un immagine con quel nome, da errore.ImageFile = "capture1.jpg"
DestFolder = "C:\Documents\Roberto\webcam"
URL = "http://192.168.0.6:81/snapshot.cgi?user=admin&pwd=bianca"
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
avevo risolto la cosa creando un altro script che viene pianificato 2 minuti prima di quello che scarica l'immagine dalla IP cam in modo che cancellasse il file capture1.jpg.
il problema è che a volte funziona a volte no, nel senso che i due script per un motivo o per l'altro difficilmente seguono la giusta pianificazione e quindi una volta va in errore uno, una volta l'altro.
vi chiedo quindi aiuto per la creazione di uno script unico che scarichi e salvi l'immagine dall'URL:
e la salvi con nome "capture1.jpg" in una certa cartella, ad esempio
questo script deve cancellare prima l'immagine "capture1.jpg" presente nella cartella per poterne subito dopo salvare quella corrente.C:\Documents\Roberto\webcam
mi date una mano?
con system scheduler poi pianificherò il lancio dello script ogni 5 minuti
per il caricamento su web uso Fwink e per quello non ho problemi.
la mia croce è lo script, devo fare in modo che non vada mai in errore...
grazie a chi mi aiuterà!
Ultima modifica di roby4061; 10/01/2016 alle 20:48
Villar Perosa, B.ta Casavecchia (TO) 630 m
Villanova C.se (TO) 376 m slm
Is there anybody out there?
Ultima modifica di roby4061; 10/01/2016 alle 21:17
Villar Perosa, B.ta Casavecchia (TO) 630 m
Villanova C.se (TO) 376 m slm
non conosco il linguaggio (VBScript?), ma solo per prova eliminerei questa riga:
oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist
Nuovo sito: Meteosfera
Reti: MNW - WU - Sup.
"Colui che segue la folla non andrà mai più lontano della folla. Colui che va da solo sarà più probabile che si troverà in luoghi dove nessuno è mai arrivato" (Albert Einstein)
invece che fare due script ed incasinarti la vita con le schedulazioni perché non metti semplicemente il codice di cancellazione dell'immagine nelle prime righe dello stesso script?
Sito personale: http://www.micheleverda.it/
Sito MeteoTovo: http://www.meteotovo.it/
Webcam MeteoTovo: http://www.meteotovo.it/it-IT/WebCam
Segnalibri