Announcement

Collapse
No announcement yet.

[VBScript] Word of the day

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    [VBScript] Word of the day

    Word of the day script that pulls the RSS feed from http://wordsmith.org/awad/rss1.xml

    This is a fix until http://dictionary.reference.com/wordoftheday/wotd.rss gets there feed fixed.

    Sub Main

    Set objXMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
    objXMLDoc.async = false
    objXMLDoc.load("http://wordsmith.org/awad/rss1.xml")
    set sWordOfTheDay= objXMLDoc.selectSingleNode("rss/channel/item/title")
    set sDefinition= objXMLDoc.selectSingleNode("rss/channel/item/description")
    hs.speak ("The word of the day is " & sWordOfTheDay.text &". The definition of " & sWordOfTheDay.text & " is " & sDefinition.text)

    End Sub
    -Rupp
    sigpic
Working...
X