parameters sub Main(byVal Parm As Object)

[Willem4ever]

Ik ben nieuw in de wereld van VB en Homeseer. Welke parameters worden er mee gegeven en hoe haal ik ze er uit. Ik heb een scriptje gebakken dat mijn axis box een foto laat maken als er gebeld wordt. Ik wil hetzelfde script ook voor de deurbel gebruiken.

Sub Main(parm as object)
Dim s As String
s=Now.Ticks.ToString

hs.GetURLImageEx("vs-1","/axis-cgi/jpg/image.cgi?resolution=352x240&camera=1&compression=0&clock=0&date=0&text=0","C:\Images\image-" & s & ".jpg")

hs.WriteLog("DEURBEL", "Foto genomen")

End Sub

[TANE]

waarom gebruik je de gratis netcam plugin niet?

[Willem4ever]

Wist niet dat die er was.

[Willem4ever]

Leuke plug-in, maar je kan er geen emails versturen, jammer ....

[Lennart]

Probeer deze eens, in combinatie met de Netcam plugin.

* Maak een event die triggert als de deurbel gaat.

* Laat als action Netcam 3 plaatjes maken met 5 seconde tussenpauze.

* Laat het event daarna een tijdje wachten (zeg 15 seconde)

* Run vervolgens dit script: (wel even je eigen e-mailadres invullen en de naam van je camera waar nu "Camera voordeur" staat; let er verder op dat de lange statements op 1 regel staan (geen regelovergangen binnen de statements))

===

Sub Main(Optional ByVal pParms As String = "")

Dim pi As Object
pi = hs.Plugin("Netcam")

Dim files As Collection = pi.getimages("Camera voordeur")

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("email@adres", "email@adres", "Deurbel", "Deurbel", strFileName)
End If

End Sub

===

Je krijgt nu een mailtje met als attachment het 2e plaatje.

Lennart

[TANE]

Lennart,
je script werkt goed zoals hierboven weergegeven. Afgelopen dagen veel plezier van gehad...

Ik probeer een kleine verandering aan te brengen maar krijg het nog niet werkend.
ik wil graag hs.DeviceLastChange in onderwerp veld toevoegen zodat je direct kan zien om welke moment het gaat.

dit werkt niet
hs.SendEmail("email@adres", "email@adres", "Deurbel "+ hs.DeviceLastChange(B8), "Deurbel", strFileName)

[Lennart]

Hoi Chak,

Even een wild guess: als je de + vervangt door een &, werkt het dan?

Lennart

[TANE]

nee...ik zal ook nog even verder zoeken

Script compile error: Argument not specified for parameter 'message' of 'Public Sub SendEmail(mto As String, mfrom As String, msubject As String, message As String, [attach As String = ""])'.on line 25

[TANE]

volgende optie werkt wel.

Sub Main(Optional ByVal pParms As String = "")

Dim pi As Object
dim time
time = timevalue(now)
pi = hs.Plugin("Netcam")
Dim files As Collection = pi.getimages("CVoordeur")

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("email@adres.nl", "email@adres.nl", "Homeseer Deurbel "&time, "Homeseer Deurbel", strFileName)
End If

End Sub

[Digit]

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"><i>Originally posted by Chak</i>
dit werkt niet
hs.SendEmail("email@adres", "email@adres", "Deurbel "+ hs.DeviceLastChange(B8), "Deurbel", strFileName)
<hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">Nog ook een wild guess: ik zou bij een <b>hs.DeviceLastChange()</b> iets in een datum-formaat terugverwachten, puur op basis van de naamgeving. Dat kun je dus niet zomaar aan een string plakken zou ik zeggen. Converteer naar string en je hebt misschien wat meer geluk.

[Digit]

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"><i>Originally posted by Chak</i>
<br />volgende optie werkt wel.
hs.SendEmail("email@adres.nl", "email@adres.nl", "Homeseer Deurbel "&time, "Homeseer Deurbel", strFileName)
<hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">Zal wel zijn omdat time een string oplevert[:)]

Nogmaals, HS ken ik niet en VBScript vind ik ook niet leuk.
Dus als ik het mis heb dan...[:o)]