Hallo,
hab am Freitag meinen geflashten TH16 bekommen und hab am Wochenende gleich mal ein bisschen rumgespielt.
Falls es jemand braucht.. weiß nicht ob das schon mal jemand gepostet hat.
Mit dem Excel-Beispiel kann man ganz einfach den TH16 auslesen und schalten.
Man braucht nur 3 CommandButtons die mit den Makros verknüpft werden.
Und în den Zeilen B5, B6 und B7 die richtigen Befehle (natürlich mit Eurer IP-Adresse)
Excel sieht bei mir so aus wie im Screenshot.
Makro-Teil in EXCEL:
Code
Option Explicit
Private Sub CommandButton1_Click()
Call Http_request
End Sub
Private Sub CommandButton2_Click()
Call Relais_ON
End Sub
Private Sub CommandButton3_Click()
Call Relais_OFF
End Sub
Public Sub Http_request()
Dim myurl As String
Dim status As String
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
Range("B10").Value = ""
myurl = Range("B5").Value
xmlhttp.Open "GET", myurl, False
xmlhttp.Send
status = xmlhttp.responseText
Range("B10").Value = status
End Sub
Sub Relais_ON()
Dim myurl As String
Dim status As String
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
Range("B10").Value = ""
myurl = Range("B6").Value
xmlhttp.Open "GET", myurl, False
xmlhttp.Send
status = xmlhttp.responseText
Range("B10").Value = status
End Sub
Sub Relais_OFF()
Dim myurl As String
Dim status As String
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
Range("B10").Value = ""
myurl = Range("B7").Value
xmlhttp.Open "GET", myurl, False
xmlhttp.Send
status = xmlhttp.responseText
Range("B10").Value = status
End Sub
Alles anzeigen
LG Geri