DOBON.NET DOBON.NETプログラミング掲示板過去ログ

ブログの更新PINGをVBで行いたい

環境/言語:[WindowsXP、VB.NET(Express2008)]
分類:[.NET]

はじめまして、SmileLakeと申します。
こちらはよく利用させていただいており、
大変お世話になっております。

さて、質問の内容ですが、
●ブログの更新PINGをVBで行いたい
というものです。

過去ログ:http://dobon.net/vb/bbs/log3-37/22447.html
メルマガ:http://dobon.net/vb/melma/dotnet74.txt
も閲覧し、またいろいろと検索で何日も探してみたのですが、
ブログの更新PINGを指定したPING-URLに送信するといったことが
わかりませんでした。

XmlRpcを用いたブログ(JUGEM)への投稿には成功したのですが、
それに対応するブログ更新PINGを送信したいと思っています。

現在投稿のVBのプログラムは下記のように記述しております。
-----------------------------------------------------------------
Imports CookComputing.XmlRpc

Public Structure content
Public title As String
Public description As String
Public dateCreated As System.DateTime
End Structure

<XmlRpcUrl("http://●●●.jugem.jp/admin/xmlrpc.php")> _
Public Interface ProxtFc2
Inherits IXmlRpcProxy
<XmlRpcMethod("metaWeblog.newPost")> _
Function newPost( _
ByVal blogid As String, _
ByVal username As String, _
ByVal password As String, _
ByVal content As content, _
ByVal publishu As Boolean) As Object
End Interface

Module module1
Sub Main(ByVal st_a_title As String, ByVal st_a_contents As String)
Dim blogID As String = "0"
Dim userName As String = "●●●"
Dim password As String = "パスワード"

Dim proxy As ProxtFc2
proxy = CType(XmlRpcProxyGen.Create(GetType(ProxtFc2)), ProxtFc2)

Dim pst As content
pst.dateCreated = Now
pst.description = st_a_contents
pst.title = st_a_title

Dim rtn As String
rtn = proxy.newPost(blogID, userName, password, pst, True).ToString

End Sub
End Module
---------------------------------------------------------------------
タイトルとコンテンツを引数として渡して送信しています。

これに更新PINGサーバへの更新PING送信を行いたいです。

お忙しいところ申し訳ありませんが御教授のほど、
よろしくお願いいたします。
少し調べてみました。XmlRpcを使った例は、

http://www.wwwcoder.com/Default.aspx?tabid=68&site=4709&parentid=460&type=art

XmlRpcを使わない例は、

http://jeremywadsworth.com/Default.aspx?blogentryid=29

が参考になりそうです。
■No25628に返信(管理人さんの記事)
> XmlRpcを使わない例は、
>
> http://jeremywadsworth.com/Default.aspx?blogentryid=29
>
> が参考になりそうです。
まさに私が求めていたのはコレでした!

上記のページのプログラムサンプルに
Imports System.Net
Imports System.Xml
を付ける必要はありましたが、
「Thank you for the ping, http://●●●.jugem.jp/ [0.0051 Seconds]」
とPINGサーバからもレスが返ってきました。

本当にありがとうございます。
今後ともどうぞよろしくお願いいたします。
解決済み!

DOBON.NET | プログラミング道 | プログラミング掲示板