Code: Select all
Sub Main(ByVal strDuneCmd As String)
Dim strReturn, strWebsite As String
Dim strDune As String
strDune = "BC43BF00"
strWebsite = "http://192.168.1.12/cgi-bin/do?cmd=ir_code&ir_code=" & strDune
strReturn = hs.URLAction(strWebsite, "GET", "", "")
End Sub
I tried the script part below, but I don't get around the param part.
Code: Select all
Dim action
Dim cmd
action = param(0).ToString 'button to take action on
Select Case action
Case "dunepower"
cmd = "BC43BF00"
Case "1191"
cmd = "E718BF00"
End Select
Does any one have a lookalike script or can give me hints?
dune-hd.nl/eng/support/additional_featu ... ntrol.html