Send Ping to Yahoo! when RSS Feed is Updated

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

Download Chilkat HTTP ActiveX

Dim http As New ChilkatHttp

Dim success As Long

'  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
    Exit Sub
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.
Dim responseText As String
responseText = http.QuickGetStr("http://ping.feeds.yahoo.com/rss/ping?u=http://blog.chilkatsoft.com/?feed=rss2")

Text1.Text = Text1.Text & responseText & vbCrLf