oops I forgot to attach the code here it is
<%@ Page Language="VB" AspCompat="true" %>
<script runat="server">
Sub A1on(Source As Object, e As EventArgs)
dim wshShell =
Server.CreateObject("WScript.Shell")
wshShell.Run ("cmd /c
AHSDK\bin\ahcmd.exe sendplc a1 on" ,1, true)
wshShell=Nothing
Response.redirect("control.aspx")
End Sub
Sub A1off(Source As Object, e As EventArgs)
dim wshShell =
Server.CreateObject("WScript.Shell")
wshShell.Run("cmd /c
AHSDK\bin\ahcmd.exe sendplc a1 off" ,1, true)
wshShell=Nothing
Response.redirect("control.aspx")
End Sub
Sub Button3_Click(sender As Object, e As
EventArgs)
dim x10 =
Server.CreateObject("X10.ActiveHome")
x10.SendAction("sendplc", "a1","off")
End Sub
Sub Button5_Click(sender As Object, e As
EventArgs)
dim x10 =
Server.CreateObject("X10.ActiveHome")
x10.SendAction("sendplc", "a1","on")
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p align="center">
</p>
<p align="center">
</p>
<p align="center">
</p>
<p align="center">
<asp:Button id="Button1"
onclick="A1on" runat="server" Text="A1
On"></asp:Button>
<asp:Button id="Button2"
onclick="A1off" runat="server" Text="A1
Off"></asp:Button>
</p>
<p align="center">
</p>
<p align="center">
<asp:Button id="Button3"
onclick="Button3_Click" runat="server"
Text="off"></asp:Button>
<asp:Button id="Button5"
onclick="Button5_Click" runat="server"
Text="on"></asp:Button>
</p>
</form>
</body>
</html>
