Sub EnviarPUT(ipp As String, comando As String)
comando = "<Request><Playback>" & comando & "</Playback></Request>"
Dim url As String = "http://" & ipp & ":" & port & "/api/Replay/%7B%7D/Playback/"
Dim Job As HttpJob
Job.Initialize("RequisicaoPUT", Me)
' Set Content-Type as text/xml
Job.GetRequest.SetContentType("text/xml")
' Send the PUT request with the XML content
Job.PutString(url, comando)
End Sub