Sorry I forgot a line. You need:
hs.SetDeviceString ("v1", wstr + 1)
This is the whole thing:
k = InStr(webstr, "ri:")
wstr = "?"
If k > 0 Then
wstr = Mid(webstr, k + 4, 1)
End If
hs.writelog ("EtherRain", wstr + 1)
hs.SetDeviceString ("v1", wstr + 1)
hs.SetDeviceString ("v1", wstr + 1)
This is the whole thing:
k = InStr(webstr, "ri:")
wstr = "?"
If k > 0 Then
wstr = Mid(webstr, k + 4, 1)
End If
hs.writelog ("EtherRain", wstr + 1)
hs.SetDeviceString ("v1", wstr + 1)
Comment