RE: homeseer news script ?

["Amar Nagi" <amar@xxxxxxx>]

Wrote a small and compact script to speak the daily news headlines
>from
'  Very Quick and simple Script to read off the news
'  headlines from Yahoo.
'  By Amar Nagi (17/07/2002)
'
' Please feel Free to Modify
'
Sub Main
Dim sRawWeb, iPos1,iPos2, sPara, icnt
system.speak "Here are the Main Headlines;"
' Get the Webpage
sRawWeb =  
hs.GetURL("www.yahoo.com","",1,80)
'Find the positions in Page
iPos1 = InStr(1,sRawWeb,"In The News")
iPos2= InStr(1,sRawWeb,"News - ")
' Kill some ugly characters and replace with period
sPara =
Replace(Mid(sRawWeb,iPos1,iPos2-iPos1),"•;",".")
'Split the String By Period into an array
SNews=Split(sPara,".")
' Walk through the array and speak the headlines
For icnt=0 To UBound(SNews)
  system.speak RTrim(LTrim(SNews(icnt)))
Next
End Sub
      -----Original Message----- 
      From: Amar Nagi 
      Sent: Tue 16/07/2002 22:47 
      To: ukha_d@xxxxxxx 
      Cc: 
      Subject: [ukha_d] homeseer news script ?
      
      
      Anyone have a news script for homeseer or a
morning greeting (wakeup) script