In my asp pages that I use code like this for interacting with the HS2 plugin.
hs.runex "alarmfunctions.vb", "armstay", "2" 'for partition 2
hs.runex "alarmfunctions.vb", "disarm", "2" 'for partition 2
hs.plugin("Vista Alarm").Armstay
hs.plugin("Vista Alarm").ChimeMode
hs.plugin("Vista Alarm").Disarm
Contents of alarmfunctions.vb
sub disarm(parms as object)
dim partnum as integer
partnum = cint(parms)
hs.Plugin("Vista Alarm").disarm(partnum)
end sub
sub chimemode(parms as object)
dim partnum as integer
partnum = cint(parms)
hs.Plugin("Vista Alarm").chimemode(partnum)
end sub
sub armstay(parms as object)
dim partnum as integer
partnum = cint(parms)
hs.Plugin("Vista Alarm").armstay(partnum)
end sub
sub armaway(parms as object)
dim partnum as integer
partnum = cint(parms)
hs.Plugin("Vista Alarm").armaway(partnum)
end sub
Does this port to HS3?
-Rick
hs.runex "alarmfunctions.vb", "armstay", "2" 'for partition 2
hs.runex "alarmfunctions.vb", "disarm", "2" 'for partition 2
hs.plugin("Vista Alarm").Armstay
hs.plugin("Vista Alarm").ChimeMode
hs.plugin("Vista Alarm").Disarm
Contents of alarmfunctions.vb
sub disarm(parms as object)
dim partnum as integer
partnum = cint(parms)
hs.Plugin("Vista Alarm").disarm(partnum)
end sub
sub chimemode(parms as object)
dim partnum as integer
partnum = cint(parms)
hs.Plugin("Vista Alarm").chimemode(partnum)
end sub
sub armstay(parms as object)
dim partnum as integer
partnum = cint(parms)
hs.Plugin("Vista Alarm").armstay(partnum)
end sub
sub armaway(parms as object)
dim partnum as integer
partnum = cint(parms)
hs.Plugin("Vista Alarm").armaway(partnum)
end sub
Does this port to HS3?
-Rick
Comment