AOA Forums

AOA Forums (http://www.aoaforums.com/forum/)
-   OS, Software, Firmware, and BIOS (http://www.aoaforums.com/forum/12-os-software-firmware-and-bios/)
-   -   RSS feed for XP desktop? (http://www.aoaforums.com/forum/os-software-firmware-and-bios/30765-rss-feed-for-xp-desktop.html)

danrok 2nd May, 2005 12:06 AM

RSS feed for XP desktop?
 
Anyone know of an RSS news reader which will display headlines on the XP desktop?

danrok 2nd May, 2005 02:04 AM

1 Attachment(s)
Managed to get something going with CoolMon and a VB script which harvests the data from BBC news web pages.

benighted 2nd May, 2005 04:50 AM

Cool! I want it.

danrok 2nd May, 2005 08:13 PM

1 Attachment(s)
I've written a VBScript which gets all the latest threads from AOA! :D

danrok 3rd May, 2005 04:26 PM

1 Attachment(s)
Here's the VBScript which will get the latest threads from AOA and write them in to a text file.

To use this code, copy and paste it into a text file called "aoa_threads.vbs".

Use the Windows scheduler to run the script every 5 mins or so.

Quote:

' This script will get the latest threads from AOA Forums
' the thread titles will be written in to a text file.
' Code last updated 20050503

'variables

Dim regEx

On Error Resume Next

' Set filenames and URLs

Const StatusFile ="aoa_status.txt"
Const ThreadsFile = "aoa_new_threads.txt"
Const pageURL ="http://www.aoaforums.com/forum/search.php?do=getnew"

set http = createobject("microsoft.xmlhttp")
Http.open "GET", PageURL, false
Http.send
strng = Http.responsetext

' Create the output file
Set fs = CreateObject("Scripting.FileSystemObject")
Set StatusoutFile = fs.CreateTextFile(StatusFile, True)

If strng <> "" then
' Create the output file
Set fs = CreateObject("Scripting.FileSystemObject")
Set ThreadsoutFile = fs.CreateTextFile(ThreadsFile, True)
' Make sure the output is formatted with correct quotes and ampersands
strng = replace(strng,"&quot;",Chr(34))
strng = replace(strng,"&amp;",Chr(38))

' Find the thread titles

Set regEx = New RegExp
regEx.Global = True
regEx.Pattern = "<strong>(.*?)</strong></a>"

Set Matches = regEx.Execute(strng)

' Write the text lines to file

For Each Match in Matches
Threadsoutfile.write match.SubMatches(0)
ThreadsoutFile.WriteLine
Next
' Close the Threads file
ThreadsoutFile.close
Statusoutfile.write "<c:lime>on-line</c>"
StatusoutFile.WriteLine
else
Statusoutfile.write "<c:red>off-line</c>"
StatusoutFile.WriteLine
end if

' Close status file
StatusoutFile.close
You can display the contents of the text file using CoolMon 1.

You'll need to put the following lines or similar into the Display Options in CM1.

Quote:

<c:yellow><b>AOA Latest Threads</b></c> <NAME=FILEDATA FORMAT="aoa_status.txt,1">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,2">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,3">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,4">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,5">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,6">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,7">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,8">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,9">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,10">
<NAME=FILEDATA FORMAT="aoa_new_threads.txt,11">

danrok 3rd May, 2005 04:30 PM

You could adapt the above to get almost any info from any website.

Daniel ~ 3rd May, 2005 06:30 PM

That last bit was more information than anyone could possibly use!...LOL

Daniel ~ 3rd May, 2005 06:30 PM

Very cool script Danrok!!

danrok 3rd May, 2005 06:33 PM

Quote:

Originally Posted by Daniel ~
That last bit was more information than anyone could possibly use!...LOL

Quite easy to set-up!

Just a case of installing CoolMon v1 and copy and paste the script from here. Then schedule it.

Daniel ~ 3rd May, 2005 06:37 PM

Very cool mon!

fantomfreq 3rd May, 2005 07:32 PM

1 Attachment(s)
Check out this desktop RSS thingy. I'll explain later as I have a final exam right now.

EDIT: That's actually the new screensaver for Tiger. You can make it your desktop by using a simple UNIX command (so simple a command that I had to look it up.) :rolleyes:


All times are GMT +1. The time now is 06:53 PM.


Copyright ©2001 - 2010, AOA Forums


Search Engine Friendly URLs by vBSEO 3.3.0