Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
.... now I need to work out some more ways to use this.... "play more songs from this era/genre/album" maybe? 
<?xml version="1.0" encoding="utf-8"?>
<commandGroup open="True" name="Play more songs by this artist" enabled="True" prefix="" priority="0" requiredProcess="" description="">
<command id="171" name="Play more songs by this artist" enabled="true" alwaysOn="False" confirm="False" requiredConfidence="0" loop="False" loopDelay="0" loopMax="0" description="">
<action>
<cmdType>MM.SoftMute</cmdType>
<cmdString>20</cmdString>
<cmdRepeat>1</cmdRepeat>
</action>
<action>
<cmdType>MM.currentsongdata</cmdType>
<cmdString>Artist</cmdString>
<cmdRepeat>1</cmdRepeat>
</action>
<action>
<cmdType>OSD.ShowText</cmdType>
<cmdString>{lastresult}</cmdString>
<cmdRepeat>1</cmdRepeat>
</action>
<if ifBlockDisabled="False" ifNot="False">
<ifType>LastActionSuccess</ifType>
<ifParams>&&</ifParams>
<then>
<action>
<cmdType>TTS.SpeakSync</cmdType>
<cmdString>Please wait while I select hits by {lastresult}</cmdString>
<cmdRepeat>1</cmdRepeat>
</action>
</then>
<else>
<action>
<cmdType>TTS.SpeakSync</cmdType>
<cmdString>I'm sorry I don't know who sings this song</cmdString>
<cmdRepeat>1</cmdRepeat>
</action>
</else>
</if>
<action>
<cmdType>MM.LoadBySQL</cmdType>
<cmdString>Artist = '{lastresult}' and rating>60 order by random() limit 200</cmdString>
<cmdRepeat>1</cmdRepeat>
</action>
<action>
<cmdType>MM.Play</cmdType>
<cmdString />
<cmdRepeat>1</cmdRepeat>
</action>
<action>
<cmdType>MM.SoftUnmute</cmdType>
<cmdString />
<cmdRepeat>1</cmdRepeat>
</action>
<phrase>Play more songs by this artist</phrase>
</command>
</commandGroup>
If anyone has got another way to do this I'd love to see it 
and if music was playing when I gave the command to turn the speakers on it wasn't muted while Bob was talking. Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^+{M}"
Dim sapi,ttsmeassage
set sapi = CreateObject("sapi.spvoice")
with sapi
Set .voice = .getvoices.item(0)
.Volume = 15
.Rate = 1
end with
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^+{M}"
Dim sapi,ttsmeassage
set sapi = CreateObject("sapi.spvoice")
with sapi
Set .voice = .getvoices.item(0)
.Volume = 15
.Rate = 1
end with
Randomize
myrand = Int((3)*Rnd+1)
if hour(now)<6 then
ttsmessage = "wow, your up early David! The outside speakers are now on"
elseif hour(now)<12 then
ttsmessage = "Good morning David, The outside speakers are now on"
elseif hour(now)<17 then
ttsmessage = "Good after noon David. The outside speakers are now on"
elseif hour(now)<22 then
ttsmessage = "Good evening David. The outside speakers are now on"
else
ttsmessage = "Good evening David, isn't it past your bed time? The outside speakers are now on"
end if
sapi.Speak ttsmessage
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^+{M}"
Cheers Guys (and gals!)
but the "check if item is already on the list" part doesn't work. I changed the RoboB.ElementRegex patter to "iname" because "class=iname" was throwing an error in VC History but apart from that i haven't had any luck. Any ideas on this one?
) and gave it a go - "beer" is entered into the "zipbox_command" field and the screen acts as though the "Add Item" button has been clicked (i.e. the screen fades out and the "wait" icon appears) but when the list re-loads the item hasn't been added. I tried all sorts of different things but nothing worked - unfortunately I eventually managed to crash VC so I can't show you what I tried 
Did you manage to get items to load?
I have tweaked the OurGroceries group and changed it so that RoboBrowser opens up the ZipList shopping list but I can't get VC to check/add items to the shopping list. Looking at the page source for ZipList it is far more involved than the OurGroceries page source - I've tried a few different ID's but haven't had any luck. I have attached the Group Command with "
?" noted, it would be great if someone could give me a clue as to what I need to do here..
is there any way to restrict the duplicate item check to just the "Shopping List"?