webcam script
Posted: Tue Feb 01, 2011 10:37 am
Hoi,Het webcamscript wat ik" geleend"heb werkt niet goed het pakt steeds de laatste foto van de serie die ervoor genomen is
wat moet ik eraan veranderen?
mijn netcamplugin neemt 10 foto's bij detectie,is het ook mogelijk om de laatste 10 te emailen?
hier is het script:
Sub Main(Optional ByVal pParms As String = "")
Dim pi As Object
pi = hs.Plugin("Netcam")
Dim files As Collection = pi.getimages("Achtertuin")
If files.Count >= 2 Then
Dim latestImage As Integer = 2
Dim strFileName As String = files(latestImage).Replace("_thmb","")
hs.WriteLog("Info", "File to send: " & strFileName)
hs.SendEmail("", "", "Iemand aan de deur", "Iemand aan de deur", strFileName)
End If
End Sub
alvast bedankt
edwin
wat moet ik eraan veranderen?
mijn netcamplugin neemt 10 foto's bij detectie,is het ook mogelijk om de laatste 10 te emailen?
hier is het script:
Sub Main(Optional ByVal pParms As String = "")
Dim pi As Object
pi = hs.Plugin("Netcam")
Dim files As Collection = pi.getimages("Achtertuin")
If files.Count >= 2 Then
Dim latestImage As Integer = 2
Dim strFileName As String = files(latestImage).Replace("_thmb","")
hs.WriteLog("Info", "File to send: " & strFileName)
hs.SendEmail("", "", "Iemand aan de deur", "Iemand aan de deur", strFileName)
End If
End Sub
alvast bedankt
edwin