Re: Digiguide?

["max barker" <max@xxxxxxxxxxxxxxxxxxx>]

------=_NextPart_000_0029_01C4BF86.3F896BB0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

MessageGood one. Added to the wiki.

Max
----- Original Message -----=20
From: Edward Pearson=20
To: xap_automation@xxxxxxx=20
Sent: Sunday, October 31, 2004 4:54 PM
Subject: RE: [xap_automation] Digiguide?


I use DigiGuide and xAP to change channel on my TV. There's a simple scri=
pting plugin for DigiGuide that lets you call a vbscript or jscript. This
i=
s handy because it means you don't have to mess with the DigiGuide API
just=
use simple script.

The script plugin .ini file lets you add events and context menu items. I=
just use a 'change channel' menu item on the channel bar. I compose the xA=
P messages in vbscript and then shell out to Stuart B's xAP send utility.
x=
AP messages are picked up by Stuart's RedRat connector. I run digiguide on
=
a laptop that's generally lives on the coffe table - the red rat is on
anot=
her PC which feeds into my wired IR distribution.

The Digiguide scripting plugin (DG script) is at:
http://freespace.virgin.net/julian.cable/DGscript.html

The send program, red rat connector etc are at:
www.xapframework.net


My script is pasted below. I have a line in the scripting.ini fle to call=
it from the channel menu:

[ChannelMenu]
Menu0=3DSelect channel on Sky box

Edward

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Const ForReading =3D 1, ForWriting =3D 2, ForAppending =3D 8
Dim argv, chanNo, digits, i, digit
Dim fso, f, shell, network, host

Set argv =3D WScript.Arguments
Set fso =3D CreateObject("Scripting.FileSystemObject")
Set shell =3D WScript.CreateObject("WScript.Shell")
Set f =3D fso.OpenTextFile("tune.xap", ForWriting, True)
Set network =3D WScript.CreateObject("WScript.Network")

host =3D lcase(network.ComputerName)

chanNo =3D argv(1)

digits =3D len(chanNo)

StartXAPScript f

for i =3D 1 to digits
digit =3D mid(chanNo, i, 1)
WriteXAPScriptBody f, "Sky+", CStr(digit)
next

EndXAPScript f

shell.Run "tune.xap", 2, true

fso.DeleteFile("tune.xap")



Sub StartXAPScript(f)
f.writeline "xap-header"
f.writeline "{"
f.writeline "    v=3D12"
f.writeline "    hop=3D1"
f.writeline "    uid=3DFF123400"
f.writeline "    class=3DIR.Transmit"
f.writeline "    source=3Dersp.digiGuide." + host
f.writeline "}"
End Sub


Sub WriteXAPScriptBody(f, device, signal)
f.writeline "IR.Signal"
f.writeline "{"
f.writeline "    device=3D" + device
f.writeline "    signal=3D" + signal
f.writeline "}"
End Sub


Sub EndXAPScript(f)
f.Close
End Sub

-----Original Message-----
From: Ian B [mailto:ian.bird@xxxxxxx]=20
Sent: 31 October 2004 09:56
To: xap_automation@xxxxxxx
Subject: [xap_automation] Digiguide?


Hi y'all (sorry, just got back from the States where they actually say =
this
;-))

Has anyone xAP'd digiguide or even thought about it. I am sitting here
working on the software for my home brew touch screen controller and
suddenly thought it would be great if it could reflect digiguide events
particularly alarms. Now and next and other good stuff too of course bu=
t
other tools can do this. I love these alarms but they are any only good=
for
me if I have the laptop on which is not very often (main PC is in the
workshop these days).

Any thoughts?

Thanks

Ian