Hei.
Har prøvd flere ganger, men føler det er noe jeg har oversett, med å få script til å fungere i HS3.
Legger ved et sms-script som jeg har kopiert her på forumet.
Imports System.net
Sub Main (Parms As Object)
Dim ParmArray As String()
ParmArray = Parms.ToString.Split("|")
Dim PhoneNumber As String = ParmArray(0)
Dim MsgCode As Char = ParmArray(1)
Dim Message As String
Dim Url As String
Dim result As String
Dim royk_vaskerom As String = "Røykvarsler utløst på vaskerom!"
Dim royk_soverom_voksen As String = "Røykvarsler utløst på voksen-soverom"
Dim kloakk_over As String = "Alarm KLOAKK Overstrøm pumpe"
Dim kloakk_niv As String = "Alarm KLOAKK Høyt Nivå"
Select Case MsgCode
Case "1"
Message = royk_vaskerom
Case "2"
Message = royk_soverom_voksen
Case "3"
Message = kloakk_over
Case "4"
Message = kloakk_niv
Case Else
Exit Select
End Select
hs.WriteLog("HS3 SMS", ParmArray(0) & "to:" & Message)
Url = "https://rest.nexmo.com/sms/xml?api_key=DINKEY&api_secret=HEMMELIGHET&from="HS3 SMS"&to=" & PhoneNumber & "&text=" & Message & Now()
result = hs.URLAction(Url, "GET", "", "")
hs.WriteLog("SMS", result)
ParmArray = Nothing
PhoneNumber = Nothing
Message = Nothing
result = Nothing
End Sub
Når jeg kjører dette, så får jeg feilmelding i loggen.
Har skjønt at det er noe med bibliotekene / namespacer, / dll-er som må ordnes, men ikke hva.
Kan noen av dere som er eksperter, gi en liten guide på hvilke filer, som må legges til og endres og hvilke includes som må være med.
Prat sakte, så tror jeg at jeg skal skjønne det.
Takk
Andreas