HTML Code:
https://forums.homeseer.com/forum/lighting-primary-technology-plug-ins/lighting-primary-technology-discussion/z-wave-homeseer/99734-reset-application-status-schlage-z-wave-lock?p=1478590#post1478590x
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
https://forums.homeseer.com/forum/lighting-primary-technology-plug-ins/lighting-primary-technology-discussion/z-wave-homeseer/99734-reset-application-status-schlage-z-wave-lock?p=1478590#post1478590x
Sub Main(parms as object) Dim ref as Integer = CInt(parms(0)) hs.WriteLog("Script", "Tamper reset button pressed device " & ref) hs.SetDeviceValueByRef(ref, 0, true) End Sub
Sub Main(parms as object) 'North Gate Tamper (420) 'South Gate Tamper (426) 'Front Door Lock Tamper (294) 'Garage Door Lock Tamper (313) hs.DeviceScriptButton_AddButton(420, "Reset", 1.0, "tamper_reset.vb", Nothing, Nothing, 1, 1, 1) hs.DeviceScriptButton_AddButton(426, "Reset", 1.0, "tamper_reset.vb", Nothing, Nothing, 1, 1, 1) hs.DeviceScriptButton_AddButton(313, "Reset", 1.0, "tamper_reset.vb", Nothing, Nothing, 1, 1, 1) hs.DeviceScriptButton_AddButton(294, "Reset", 1.0, "tamper_reset.vb", Nothing, Nothing, 1, 1, 1) hs.WriteLog("Script", "Tamper device reset buttons added.") End Sub​
hs.RunScript("Add_tamper_Reset.vb", False, False)
http://homeseerip/JSON?&request=setdeviceproperty&ref=XXX&property=NewDevValue&value=0
Comment