script SCRIPT: Twinkly.vb - Juletrelys med forhåndsdefinerte og egne animasjoner

Moskus · 20. desember 2019

Det er det samme maset hvert år: "Hvorfor må vi alltid ha disse kjedelige juletrelysene? Klart jeg kan bruke RGBW-lys, men de er så... statiske.". Vi har alle vært der.

Vel, Twinkly er svaret. Det er juletrelys som kan styres via en app, man kan legge til animasjoner, og man kan til og med lage egne og "tegne" fargene på treet i sanntid. Og nå kan man også selvfølgelig styre treet fra HomeSeer.

Lagre scriptet under som Twinkly.vb i /scripts-mappen, endre IPen (nest øverste linje), og lag et event der du kjører "Setup"-funksjonen. Hvis du oppdaterer, så kan du istedenfor kjøre "AddDeviceButtons"-funksjonen og bruke deviceID'en til eksisterende Twinkly-devicer som parameter (en om gangen).

Twinkly.vb

'Moskus 2019-2020
    Dim IP As String
    Dim debug As Boolean = False

    Public Sub Main(ByVal something As Object)
    End Sub

    Public Sub ButtonPress(ByVal input As Object)
        Dim deviceRef As Integer = input(0)
        IP = DirectCast(hs.GetDeviceByRef(deviceRef), Scheduler.Classes.DeviceClass).Device_Type_String(hs)

        Dim cmd As String = input(1)
        If cmd.StartsWith("Brightness_") Then
            Dim value As Integer = cmd.Split("_")(1)
            DoCmd("Brightness", value)
        Else
            If DoCmd(cmd) Then hs.SetDeviceString(deviceRef, cmd, True)
        End If

        If DoCmd(cmd) Then hs.SetDeviceString(deviceRef, cmd.Replace("_", " "), True)
    End Sub

    Public Function DoCmd(ByVal command As String, Optional ByVal value As Integer = 100) As Boolean
        'SetMode("rt")
        'SetMode("demo")
        'SetMode("movie")
        'SetMode("effect")
        'SetMode("off")

        If debug Then hs.WriteLog("Twinkly", "Starting DoCmd()")
        Dim code As String = GetRandomCode()
        If debug Then hs.WriteLog("Twinkly", "Code: " & code)

        Dim auth As TwinklyAuthentication = Login(code, forceNew:=True)
        If debug Then hs.WriteLog("Twinkly", "Authentication_token: " & auth.authentication_token)

        Dim success As Boolean = Verify()
        If debug Then hs.WriteLog("Twinkly", "Verified: " & success)

        If command = "Brightness" Then
            SetBrightness(value)
        Else
            SetMode(command)
        End If
        Return True
    End Function

    Public Sub Setup(ByVal not_used As String)
        Dim new_ref As Integer = hs.NewDeviceRef("Twinkly")
        Dim dv As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(new_ref)
        dv.Location(hs) = "Twinkly"
        dv.Location2(hs) = "Twinkly"
        dv.Can_Dim(hs) = False
        dv.DeviceType_Set(hs) = New HomeSeerAPI.DeviceTypeInfo
        dv.Status_Support(hs) = True
        dv.Can_Dim(hs) = False
        dv.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) 'This is &H100
        dv.MISC_Clear(hs, HomeSeerAPI.Enums.dvMISC.STATUS_ONLY) 'This is &H10
        hs.SaveEventsDevices()

        AddDeviceButtons(new_ref)
        hs.WriteLog("Twinkly", "Initiation done!")
    End Sub


    Public Sub AddDeviceButtons(ByVal device_ref As String)
        Dim devID As Integer = CInt(device_ref)
        hs.DeviceScriptButton_DeleteAll(devID)
        hs.DeviceProperty_dvMISC(device_ref, HomeSeerAPI.Enums.eDeviceProperty.MISC_Set, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES)

        Try
            hs.WriteLog("Twinkly", "Added button 1: " & hs.DeviceScriptButton_AddButton(devID, "Movie", 101, "Twinkly.vb", "ButtonPress", "Movie", 1, 1, 1))
            hs.WriteLog("Twinkly", "Added button 2: " & hs.DeviceScriptButton_AddButton(devID, "Effect", 102, "Twinkly.vb", "ButtonPress", "Effect", 1, 2, 1))
            hs.WriteLog("Twinkly", "Added button 3: " & hs.DeviceScriptButton_AddButton(devID, "Demo", 103, "Twinkly.vb", "ButtonPress", "Demo", 1, 3, 1))
            hs.WriteLog("Twinkly", "Added button 4: " & hs.DeviceScriptButton_AddButton(devID, "Pause", 104, "Twinkly.vb", "ButtonPress", "RT", 1, 4, 1))
            hs.WriteLog("Twinkly", "Added button 5: " & hs.DeviceScriptButton_AddButton(devID, "Off", 0, "Twinkly.vb", "ButtonPress", "Off", 1, 5, 1))

            For i As Integer = 10 To 100 Step 10
                hs.WriteLog("Twinkly", "Added dimming " & i & " : " & hs.DeviceScriptButton_AddButton(devID, (i & "%").ToString, i, "Twinkly.vb", "ButtonPress", "Brightness_" & i, 2 + Math.Floor(i / 51), (i / 10 - Math.Floor(i / 51) * 5), 1))
            Next

        Catch ex As Exception
            hs.WriteLog("Twinkly", "Error adding buttons: " & ex.Message)
        End Try
    End Sub

    Public Sub SetMovieConfig(ByVal frameDelay As Integer, ByVal numberOfLEDs As Integer, ByVal framesNumber As Integer, ByVal loopType As Integer)
        Dim data As New System.Collections.Generic.Dictionary(Of String, Integer)
        data.Add("frame_delay", frameDelay)
        data.Add("leds_number", numberOfLEDs)
        data.Add("frames_number", framesNumber)

        Dim output As String = RunAPI("led/movie/config", Newtonsoft.Json.JsonConvert.SerializeObject(data))
        If debug Then hs.WriteLog("Twinkly", "SetMovieConfig: " & output)
    End Sub

    Public Sub GetMovieConfig()
        ' {"frame_delay":66,"leds_number":175,"loop_type":0,"frames_number":212,"sync":{"mode":"none","slave_id":"","master_id":""},"code":1000}
        Dim output As String = RunAPI("led/movie/config")
        If debug Then hs.WriteLog("Twinkly", "GetMovieConfig: " & output)
    End Sub

    Public Sub GetMovieFull()
        If debug Then hs.WriteLog("Twinkly", "GetMovieFull: ")
        Dim output As Byte() = RunAPIraw("led/movie/all")
        If debug Then hs.WriteLog("Twinkly", ConvertByteArrayToString(output) & " ... done!")
    End Sub

    Public Sub SetMovieFull(ByVal octetString As String)
        Dim movie() As Byte = ConvertStringToByteArray(octetString)
        If debug Then hs.WriteLog("Twinkly", "SetMovieFull: ")
        Dim ret = RunAPIraw("led/movie/full", movie)
        If debug Then hs.WriteLog("Twinkly", System.Text.Encoding.ASCII.GetString(ret) & " ... done!")
    End Sub

    ''' <summary>
    ''' Get brightness
    ''' </summary>
    Public Function GetBrightness() As Integer
        Console.Write("Getting brigthness...")

        Dim output As String = RunAPI("led/out/brightness")
        Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(output)
        Return json("value")
    End Function

    ''' <summary>
    ''' Set brightness
    ''' </summary>
    ''' <param name="brightness">0-100</param>
    Public Sub SetBrightness(ByVal brightness As Integer)
        If debug Then hs.WriteLog("Twinkly", "Setting brigthness to '" & brightness & "'...")
        Dim data As New System.Collections.Generic.Dictionary(Of String, Object)
        data.Add("mode", "enabled")
        data.Add("value", brightness)
        data.Add("type", "A")

        Dim output As String = RunAPI("led/out/brightness", Newtonsoft.Json.JsonConvert.SerializeObject(data))
        If debug Then hs.WriteLog("Twinkly", IIf(output.Contains("1000"), " was a success!", " failed. :("))
    End Sub

    ''' <summary>
    ''' Sets the display
    ''' </summary>
    ''' <param name="mode">rt, movie, demo, restart, effect, off</param>
    Public Sub SetMode(ByVal mode As String)
        If debug Then hs.WriteLog("Twinkly", "Setting mode to '" & mode & "'")

        Dim data As New System.Collections.Generic.Dictionary(Of String, String)
        data.Add("mode", mode.ToLower())

        Dim output As String = RunAPI("led/mode", Newtonsoft.Json.JsonConvert.SerializeObject(data))
        Dim success As Boolean = output.Contains("1000")
        If debug Then hs.WriteLog("Twinkly", "Mode set: " & IIf(success, " was a success!", " failed. :("))
        If Not success And debug Then hs.WriteLog("Twinkly", "Output: " & output)
    End Sub

    Public Function GetAuthentication() As TwinklyAuthentication
        Dim auth As TwinklyAuthentication = New TwinklyAuthentication
        Dim authString As String = hs.GetINISetting("Twinkly", "Authentication", "", "Twinkly.ini")
        Try
            If authString <> "" Then
                auth = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TwinklyAuthentication)(authString)
            End If
        Catch ex As Exception
        End Try

        Return auth
    End Function

    Public Function Verify() As Boolean
        Dim auth As TwinklyAuthentication = GetAuthentication()
        Dim data As New System.Collections.Generic.Dictionary(Of String, String)
        data.Add("challenge-response", auth.challengeresponse)

        Dim output As String = RunAPI("verify", Newtonsoft.Json.JsonConvert.SerializeObject(data))
        Return output.Contains("1000")
    End Function

    Public Function Login(ByVal challenge As String, Optional ByVal forceNew As Boolean = False) As TwinklyAuthentication
        Dim auth As TwinklyAuthentication = Nothing
        Dim authString As String = ""

        authString = hs.GetINISetting("Twinkly", "Authentication", "", "Twinkly.ini")
        Try
            If authString <> "" Then auth = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TwinklyAuthentication)(authString)
        Catch ex As Exception
        End Try

        If auth Is Nothing OrElse forceNew Then
            Dim data As New System.Collections.Generic.Dictionary(Of String, String)
            data.Add("challenge", challenge)

            Dim output As String = RunAPI("login", Newtonsoft.Json.JsonConvert.SerializeObject(data))


            hs.SaveINISetting("Twinkly", "Authentication", output, "Twinkly.ini")
            auth = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TwinklyAuthentication)(output)
        End If

        Return auth
    End Function

    Private Function RunAPI(ByVal urlFunction As String, Optional ByVal query As String = "") As String
        Dim source As String = ""
        Dim url As String = "http://" & IP & "/xled/v1/" & urlFunction
        Dim auth As TwinklyAuthentication = GetAuthentication()

        Using client As New System.Net.WebClient
            client.Headers.Add("Content-Type", "application/json")
            If auth.authentication_token <> "" Then
                client.Headers.Add("X-Auth-Token", auth.authentication_token)
            End If

            If query <> "" Then
                source = client.UploadString(url, "POST", query)
            Else
                source = client.DownloadString(url)
            End If
        End Using

        Return source
    End Function

    Private Function RunAPIraw(ByVal urlFunction As String, Optional ByVal bytes() As Byte = Nothing) As Byte()
        Dim auth As TwinklyAuthentication = GetAuthentication()
        Dim source As Byte() = {}

        Dim url As String = "http://" & IP & "/xled/v1/" & urlFunction
        Using client As New System.Net.WebClient
            Net.ServicePointManager.DefaultConnectionLimit = 9999
            client.Headers.Add("Content-Type", "application/octet-stream")
            If auth.authentication_token <> "" Then
                client.Headers.Add("X-Auth-Token", auth.authentication_token)
            End If

            If bytes IsNot Nothing Then
                source = client.UploadData(New Uri(url), bytes)
            Else
                source = client.DownloadData(url)
            End If
        End Using

        Return source
    End Function

    Public Function GetRandomCode(Optional ByVal forceNew As Boolean = False) As String
        Dim code As String = hs.GetINISetting("Twinkly", "Code", "", "Twinkly.ini")

        If code = "" OrElse forceNew Then
            code = GetRandomString(32)
            hs.SaveINISetting("Twinkly", "Code", code, "Twinkly.ini")
        End If

        Return code
    End Function

    Private Function GetRandomString(ByVal length As Integer)
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        Dim r As New Random
        Dim sb As New Text.StringBuilder
        For i As Integer = 0 To length - 1
            Dim idx As Integer = r.Next(0, 35)
            sb.Append(s.Substring(idx, 1))
        Next
        Return sb.ToString()
    End Function

    Public Function ConvertStringToByteArray(ByVal input As String) As Byte()
        Dim lst As New System.Collections.Generic.List(Of Byte)
        For i As Integer = 0 To input.Length - 1 Step 2
            Dim temp As String = input.Substring(i, 2)
            Dim val As Integer = Convert.ToInt32(temp, 16)
            lst.Add(Convert.ToByte(val))
        Next

        Return lst.ToArray()
    End Function

    Public Function ConvertByteArrayToString(ByVal bytes() As Byte) As String
        Dim ret As String = ""
        For Each b As Byte In bytes
            ret &= Convert.ToChar(b).ToString()
        Next
        Return ret
    End Function

    Public Class TwinklyAuthentication
        Private _authentication_token As String
        Public Property authentication_token() As String
            Get
                Return _authentication_token
            End Get
            Set(ByVal value As String)
                _authentication_token = value
            End Set
        End Property

        Private _authentication_token_expires_in As Integer
        Public Property authentication_token_expires_in() As Integer
            Get
                Return _authentication_token_expires_in
            End Get
            Set(ByVal value As Integer)
                _authentication_token_expires_in = value
            End Set
        End Property

        Private _challengeresponse As String
        Public Property challengeresponse() As String
            Get
                Return _challengeresponse
            End Get
            Set(ByVal value As String)
                _challengeresponse = value
            End Set
        End Property

        Private _code As Integer
        Public Property code() As Integer
            Get
                Return _code
            End Get
            Set(ByVal value As Integer)
                _code = value
            End Set
        End Property

    End Class

Gammelt script:

Spoiler



'Moskus 2019
    Const IP As String = "192.168.0.166"
    Dim debug As Boolean = False

    Public Sub Main(ByVal something As Object)
    End Sub

    Public Sub ButtonPress(ByVal input As Object)
        Dim deviceRef As Integer = input(0)
        Dim cmd As String = input(1)
        If DoCmd(cmd) Then hs.SetDeviceString(deviceRef, cmd, True)
    End Sub

    Public Function DoCmd(ByVal command As String) As Boolean
        'SetMode("rt")
        'SetMode("demo")
        'SetMode("movie")
        'SetMode("effect")
        'SetMode("off")

        If debug Then hs.WriteLog("Twinkly", "Starting DoCmd()")
        Dim code As String = GetRandomCode()
        If debug Then hs.WriteLog("Twinkly", "Code: " & code)

        Dim auth As TwinklyAuthentication = Login(code, forceNew:=True)
        If debug Then hs.WriteLog("Twinkly", "Authentication_token: " & auth.authentication_token)

        Dim success As Boolean = Verify()
        If debug Then hs.WriteLog("Twinkly", "Verified: " & success)

        SetMode(command)
        Return True
    End Function

    Public Sub Setup(ByVal not_used As String)
        Dim new_ref As Integer = hs.NewDeviceRef("Twinkly")
        Dim dv As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(new_ref)
        dv.Location(hs) = "Twinkly"
        dv.Location2(hs) = "Twinkly"
        dv.Can_Dim(hs) = False
        dv.DeviceType_Set(hs) = New HomeSeerAPI.DeviceTypeInfo
        dv.Status_Support(hs) = True
        dv.Can_Dim(hs) = False
        dv.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) 'This is &H100
        dv.MISC_Clear(hs, HomeSeerAPI.Enums.dvMISC.STATUS_ONLY) 'This is &H10
        hs.SaveEventsDevices()

        AddDeviceButtons(new_ref)
        hs.WriteLog("Twinkly", "Initiation done!")
    End Sub


    Public Sub AddDeviceButtons(ByVal device_ref As String)
        Dim devID As Integer = CInt(device_ref)
        hs.DeviceScriptButton_DeleteAll(devID)
        hs.DeviceProperty_dvMISC(device_ref, HomeSeerAPI.Enums.eDeviceProperty.MISC_Set, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES)

        Try
            hs.WriteLog("Twinkly", "Added button 1: " & hs.DeviceScriptButton_AddButton(devID, "Movie", 1, "Twinkly.vb", "ButtonPress", "Movie", 1, 1, 1))
            hs.WriteLog("Twinkly", "Added button 2: " & hs.DeviceScriptButton_AddButton(devID, "Effect", 2, "Twinkly.vb", "ButtonPress", "Effect", 1, 2, 1))
            hs.WriteLog("Twinkly", "Added button 3: " & hs.DeviceScriptButton_AddButton(devID, "Demo", 3, "Twinkly.vb", "ButtonPress", "Demo", 1, 3, 1))
            hs.WriteLog("Twinkly", "Added button 4: " & hs.DeviceScriptButton_AddButton(devID, "RT", 4, "Twinkly.vb", "ButtonPress", "RT", 2, 1, 1))
            hs.WriteLog("Twinkly", "Added button 5: " & hs.DeviceScriptButton_AddButton(devID, "Off", 0, "Twinkly.vb", "ButtonPress", "Off", 2, 2, 1))
        Catch ex As Exception
            hs.WriteLog("Twinkly", "Error adding buttons: " & ex.Message)
        End Try
    End Sub

    Public Sub SetMovieConfig(ByVal frameDelay As Integer, ByVal numberOfLEDs As Integer, ByVal framesNumber As Integer, ByVal loopType As Integer)
        Dim data As New System.Collections.Generic.Dictionary(Of String, Integer)
        data.Add("frame_delay", frameDelay)
        data.Add("leds_number", numberOfLEDs)
        data.Add("frames_number", framesNumber)

        Dim output As String = RunAPI("led/movie/config", Newtonsoft.Json.JsonConvert.SerializeObject(data))
        If debug Then hs.WriteLog("Twinkly", "SetMovieConfig: " & output)
    End Sub

    Public Sub GetMovieConfig()
        ' {"frame_delay":66,"leds_number":175,"loop_type":0,"frames_number":212,"sync":{"mode":"none","slave_id":"","master_id":""},"code":1000}
        Dim output As String = RunAPI("led/movie/config")
        If debug Then hs.WriteLog("Twinkly", "GetMovieConfig: " & output)
    End Sub

    Public Sub GetMovieFull()
        If debug Then hs.WriteLog("Twinkly", "GetMovieFull: ")
        Dim output As Byte() = RunAPIraw("led/movie/all")
        If debug Then hs.WriteLog("Twinkly", ConvertByteArrayToString(output) & " ... done!")
    End Sub

    Public Sub SetMovieFull(ByVal octetString As String)
        Dim movie() As Byte = ConvertStringToByteArray(octetString)
        If debug Then hs.WriteLog("Twinkly", "SetMovieFull: ")
        Dim ret = RunAPIraw("led/movie/full", movie)
        If debug Then hs.WriteLog("Twinkly", System.Text.Encoding.ASCII.GetString(ret) & " ... done!")
    End Sub

    ''' <summary>
    ''' Sets the display
    ''' </summary>
    ''' <param name="mode">rt, movie, demo, restart, effect, off</param>
    Public Sub SetMode(ByVal mode As String)
        If debug Then hs.WriteLog("Twinkly", "Setting mode to '" & mode & "'")

        Dim data As New System.Collections.Generic.Dictionary(Of String, String)
        data.Add("mode", mode.ToLower())

        Dim output As String = RunAPI("led/mode", Newtonsoft.Json.JsonConvert.SerializeObject(data))
        Dim success As Boolean = output.Contains("1000")
        If debug Then hs.WriteLog("Twinkly", "Mode set: " & IIf(success, " was a success!", " failed. :("))
        If Not success And debug Then hs.WriteLog("Twinkly", "Output: " & output)
    End Sub

    Public Function GetAuthentication() As TwinklyAuthentication
        Dim auth As TwinklyAuthentication = New TwinklyAuthentication
        Dim authString As String = hs.GetINISetting("Twinkly", "Authentication", "", "Twinkly.ini")
        Try
            If authString <> "" Then
                auth = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TwinklyAuthentication)(authString)
            End If
        Catch ex As Exception
        End Try

        Return auth
    End Function

    Public Function Verify() As Boolean
        Dim auth As TwinklyAuthentication = GetAuthentication()
        Dim data As New System.Collections.Generic.Dictionary(Of String, String)
        data.Add("challenge-response", auth.challengeresponse)

        Dim output As String = RunAPI("verify", Newtonsoft.Json.JsonConvert.SerializeObject(data))
        Return output.Contains("1000")
    End Function

    Public Function Login(ByVal challenge As String, Optional ByVal forceNew As Boolean = False) As TwinklyAuthentication
        Dim auth As TwinklyAuthentication = Nothing
        Dim authString As String = ""

        authString = hs.GetINISetting("Twinkly", "Authentication", "", "Twinkly.ini")
        Try
            If authString <> "" Then auth = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TwinklyAuthentication)(authString)
        Catch ex As Exception
        End Try

        If auth Is Nothing OrElse forceNew Then
            Dim data As New System.Collections.Generic.Dictionary(Of String, String)
            data.Add("challenge", challenge)

            Dim output As String = RunAPI("login", Newtonsoft.Json.JsonConvert.SerializeObject(data))


            hs.SaveINISetting("Twinkly", "Authentication", output, "Twinkly.ini")
            auth = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TwinklyAuthentication)(output)
        End If

        Return auth
    End Function

    Private Function RunAPI(ByVal urlFunction As String, Optional ByVal query As String = "") As String
        Dim source As String = ""
        Dim url As String = "http://" & IP & "/xled/v1/" & urlFunction
        Dim auth As TwinklyAuthentication = GetAuthentication()

        Using client As New System.Net.WebClient
            client.Headers.Add("Content-Type", "application/json")
            If auth.authentication_token <> "" Then
                client.Headers.Add("X-Auth-Token", auth.authentication_token)
            End If

            If query <> "" Then
                source = client.UploadString(url, "POST", query)
            Else
                source = client.DownloadString(url)
            End If
        End Using

        Return source
    End Function

    Private Function RunAPIraw(ByVal urlFunction As String, Optional ByVal bytes() As Byte = Nothing) As Byte()
        Dim auth As TwinklyAuthentication = GetAuthentication()
        Dim source As Byte() = {}

        Dim url As String = "http://" & IP & "/xled/v1/" & urlFunction
        Using client As New System.Net.WebClient
            Net.ServicePointManager.DefaultConnectionLimit = 9999
            client.Headers.Add("Content-Type", "application/octet-stream")
            If auth.authentication_token <> "" Then
                client.Headers.Add("X-Auth-Token", auth.authentication_token)
            End If

            If bytes IsNot Nothing Then
                source = client.UploadData(New Uri(url), bytes)
            Else
                source = client.DownloadData(url)
            End If
        End Using

        Return source
    End Function

    Public Function GetRandomCode(Optional ByVal forceNew As Boolean = False) As String
        Dim code As String = hs.GetINISetting("Twinkly", "Code", "", "Twinkly.ini")

        If code = "" OrElse forceNew Then
            code = GetRandomString(32)
            hs.SaveINISetting("Twinkly", "Code", code, "Twinkly.ini")
        End If

        Return code
    End Function

    Private Function GetRandomString(ByVal length As Integer)
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        Dim r As New Random
        Dim sb As New Text.StringBuilder
        For i As Integer = 0 To length - 1
            Dim idx As Integer = r.Next(0, 35)
            sb.Append(s.Substring(idx, 1))
        Next
        Return sb.ToString()
    End Function

    Public Function ConvertStringToByteArray(ByVal input As String) As Byte()
        Dim lst As New System.Collections.Generic.List(Of Byte)
        For i As Integer = 0 To input.Length - 1 Step 2
            Dim temp As String = input.Substring(i, 2)
            Dim val As Integer = Convert.ToInt32(temp, 16)
            lst.Add(Convert.ToByte(val))
        Next

        Return lst.ToArray()
    End Function

    Public Function ConvertByteArrayToString(ByVal bytes() As Byte) As String
        Dim ret As String = ""
        For Each b As Byte In bytes
            ret &= Convert.ToChar(b).ToString()
        Next
        Return ret
    End Function

    Public Class TwinklyAuthentication
        Private _authentication_token As String
        Public Property authentication_token() As String
            Get
                Return _authentication_token
            End Get
            Set(ByVal value As String)
                _authentication_token = value
            End Set
        End Property

        Private _authentication_token_expires_in As Integer
        Public Property authentication_token_expires_in() As Integer
            Get
                Return _authentication_token_expires_in
            End Get
            Set(ByVal value As Integer)
                _authentication_token_expires_in = value
            End Set
        End Property

        Private _challengeresponse As String
        Public Property challengeresponse() As String
            Get
                Return _challengeresponse
            End Get
            Set(ByVal value As String)
                _challengeresponse = value
            End Set
        End Property

        Private _code As Integer
        Public Property code() As Integer
            Get
                Return _code
            End Get
            Set(ByVal value As Integer)
                _code = value
            End Set
        End Property

    End Class

Da får du en device som dette:

Gå inn på Devicen, og gå til Advanced.

Legg så IP-adressen til Twinkly-lenken inn under "Device Type (String)":

... og siden vi endrer Device Types, må vi huske å vise alle etter på:

Den nye versjonen støtter altså flere lenker på samme script, man slipper å lage kopier av scriptet hvis man har flere lenker.

mk1 black limited · 20. desember 2019

Najs! Og hvis man har flere Twinkly'er? Et script pr. Twinkly?

gullfrode · 20. desember 2019

Er vel bare å bytte IP i starten og kalle scriptet noe annet?

Moskus · 20. desember 2019

1 time siden, gullfrode skrev:

Er vel bare å bytte IP i starten og kalle scriptet noe annet?

Ikke bare. Du må da også bytte ut "Twinkly.vb" navnet i AddDeviceButtons. Men ellers er det slik.

einarli · 21. desember 2019

Hei,

Takk for at du deler. Jeg har ingen kompetanse på VBscript og får det ikke til å kjøre hos meg. Kan det være at dette scriptet kun kjører godt i Windows?

Jeg kjører HS3 i Linux.

Dec-21 09:58:29

Error

Compiling script /HomeSeer/scripts/Twinkly.vb: 'i'.

Dec-21 09:58:29

Error