03Mar Technorati ping code
I wanted to be able to ping technorati when I was done posting a new post (such as this).
After signing up and checking out some code online I talked with Shawn W again and came up with
Dim req As WebRequest
Dim resp As WebResponse
Dim reader As StreamReader
req = HttpWebRequest.Create(“http://rpc.technorati.com/rpc/ping”)
Dim b() As Byte = System.Text.Encoding.ASCII.GetBytes(“
req.Method = “POST”
‘req.Headers(“User-Agent”) = “IE”
req.ContentType = “text/xml”
req.ContentLength = b.Length
Dim s As System.IO.Stream = req.GetRequestStream()
s.Write(b, 0, b.Length)
s.Close()
resp = req.GetResponse()
This seems to work. I get a response that says thanks. and flerror =0, so I guess I assume it is working.. we shall see….