ブログの更新PINGをVBで行いたい
- 題名: ブログの更新PINGをVBで行いたい
- 著者: SmileLake
- 日時: 2009/10/21 9:52:56
- ID: 25620
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: ブログの更新PINGをVBで行いたい
- 著者: 管理人
- URL: http://dobon.net/
- 日時: 2009/10/22 2:50:07
- ID: 25628
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: ブログの更新PINGをVBで行いたい
- 著者: SmileLake
- 日時: 2009/10/22 18:46:32
- ID: 25641
- この記事の返信元:
- この記事への返信:
- ツリーを表示
分類:[.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送信を行いたいです。
お忙しいところ申し訳ありませんが御教授のほど、
よろしくお願いいたします。