WPFxUPnP その13

最後に、コントロールです！
操作用のVBScriptはこんな感じ。

' -----------------------------------------------------------------------------
' Control
' -----------------------------------------------------------------------------
Sub LightOn()
	Dim emptyArgs(0)
	Dim inArgs(1)
	inArgs(0) = 1
	SwitchPowerSrv.InvokeAction "SetTarget", inArgs, emptyArgs
end Sub
 
Sub LightOff()
	Dim emptyArgs(0)
	Dim inArgs(1)
	inArgs(0) = 0
	SwitchPowerSrv.InvokeAction "SetTarget", inArgs, emptyArgs
end Sub

この関数を操作させたい場所で呼び出します。

<p>
    ライトの操作：
    <input type="button" value="ON" onclick="LightOn()" onkeypress="LightOn()">
    <input type="button" value="OFF" onclick="LightOff()" onkeypress="LightOff()">
</p>

これで、デバイスを操作して、状態が変わるようになります。
変わると、イベントで状態が変わる。
複数のクライアントでも動く。
と、以上でUPnP ライトの作成でした。
輝度調整用のdimmは皆さんでチャレンジしてくださいな。
きっと、うごかなーい！と唸ること請け合いです（苦笑）