Her er et script som skal kunne sende flere headers:
Imports System.IO
Imports System.Net
Sub Main(ByVal Parm As Object)
Dim httpWebRequest = DirectCast(WebRequest.Create("https://api.lifx.com/v1/lights/group:XXXXX's Room/state"), HttpWebRequest)
httpWebRequest.ContentType = "application/json"
httpWebRequest.Method = "PUT"
httpWebRequest.Headers.Add("Authorization", "Bearer XXXXX(FILLED IN)XXXXX")
Using streamWriter = New StreamWriterhttpWebRequest.GetRequestStream().ToString)
Dim json As String = "{""power"" : ""on"", ""brightness"" : ""1""}"
streamWriter.Write(json)
End Using
Dim httpResponse = DirectCast(HttpWebRequest.GetResponse(), HttpWebResponse)
Using streamReader = New StreamReader(httpResponse.GetResponseStream().ToString)
Dim responseText = StreamReader.ReadToEnd()
hs.WriteLog("Response", responseText)
End Using
End Sub
... som du ser skal man kunne legge til flere headere med linjen httpWebRequest.Headers.Add("SOME HEADER", "CONTENT").