Send Ping to Yahoo! when RSS Feed is Updated

Download Chilkat HTTP ActiveX

How to ping Yahoo! when an RSS feed has been updated, using the REST interface.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set http = CreateObject("Chilkat.Http")

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    WScript.Quit
End If

'  Yahoo indicates that The REST interface:
'  URL: http://ping.feeds.yahoo.com/rss/ping
'  Parameter(s): u=<site or feed url>
'  HTTP method: GET

'  The RSS2 feed URL for blog.chilkatsoft.com is:
'  http://blog.chilkatsoft.com/?feed=rss2

'  Send the HTTP GET and return the content in a string.

responseText = http.QuickGetStr("http://ping.feeds.yahoo.com/rss/ping?u=http://blog.chilkatsoft.com/?feed=rss2")

outFile.WriteLine(responseText)
outFile.Close