(转)MSN Spaces开发接口 Vb.Net版本

转载 2006年06月19日 13:02:00

很久都没有写blog了,翻译的工作在考完软件设计师也没有继续下去。希望以后有时间可以继续那个工作,最近实在是太忙了,期末了,有一堆的东西要看,设计周也有图纸要话,储油罐真是把我折腾个够呛~如果有网友想继续翻译,请联系我。我可以做校对工作。谢谢,前几天偶然在MSDN社区找到了下面的东西,因为偶也在用MSN空间写偶的生活琐事,而MSN经常会出一些问题,所以找到了下面的东西,偶想写个Client,然后本地编辑存储,自动上传。呵呵~等考完试一定要试试的,有想一起开发的朋友也可以联系我。呵呵~先转下面的东东~有兴趣的朋友可以看看,代码很清晰,也很容易看懂~

MetaWeblogAPI and MSN Spaces 
MSN Spaces MetaWeblog API, version 1.00 

MetaWeblogAPI VisualBasic .NET Code Sample
 
Imports System

Imports CookComputing.XmlRpc

Imports System.Net

 

Namespace MetaWeblogApi


 

          '/ <summary>

          '/ This struct represents information about a user's blog.

          '/ </summary>

          <XmlRpcMissingMapping(MappingAction.Ignore)> _

          Structure UserBlog

                   Public url As String

                   Public blogid As String

                   Public blogName As String

          End Structure


 

          '/ <summary>

          '/ This struct represents information about a user.

          '/ </summary>

          <XmlRpcMissingMapping(MappingAction.Ignore)> _

          Structure UserInfo

                   Public url As String

                   Public blogid As String

                   Public blogName As String

                   Public firstname As String

                   Public lastname As String

                   Public email As String

                   Public nickname As String

          End Structure


 

          '/ <summary>

          '/ This struct represents the information about a category that could be returned by the

          '/ getCategories() method.

          '/ </summary>

          <XmlRpcMissingMapping(MappingAction.Ignore)> _

          Structure Category

                   Public description As String

                   Public title As String

          End Structure

 

          '/ <summary>

          '/ This struct represents the information about a post that could be returned by the

          '/ editPost(), getRecentPosts() and getPost() methods.

          '/ </summary>

          <XmlRpcMissingMapping(MappingAction.Ignore)> _

          Structure Post

                   Public dateCreated As DateTime

                   Public description As String

                   Public title As String

                   Public postid As String

                   Public categories() As String

          End Structure

 

          '/ <summary>

          '/ This class can be used to programmatically interact with a Weblog on

          '/ MSN Spaces using the MetaWeblog API.

          '/ </summary>

          <XmlRpcUrl("https://storage.msn.com/storageservice/MetaWeblog.rpc")> _     

          Class MsnSpacesMetaWeblog

           Inherits XmlRpcClientProtocol

 

 

                   '/ <summary>

                   '/ Returns the most recent draft and non-draft blog posts sorted in descending order by publish date.

                   '/ </summary>

                   '/ <param name="blogid">This should be the string MyBlog, which indicates that the post is being created in the user’s blog.</param>

                   '/ <param name="username">The name of the user’s space.</param>

                   '/ <param name="password">The user’s secret word.</param>

                   '/ <param name="numberOfPosts">The number of posts to return. The maximum value is 20.</param>

                   '/ <returns></returns>

                   <XmlRpcMethod("metaWeblog.getRecentPosts")> _

                   Public Property getRecentPosts(() As Post()

                   End Property

)

                             End Function

 

 

        '/ <summary>

        '/ Posts a new entry to a blog.

        '/ </summary>

                   '/ <param name="blogid">This should be the string MyBlog, which indicates that the post is being created in the user’s blog.</param>

                   '/ <param name="username">The name of the user’s space.</param>

                   '/ <param name="password">The user’s secret word.</param>

                   '/ <param name="post">A struct representing the content to update. </param>

        '/ <param name="publish">If false, this is a draft post.</param>

        '/ <returns>The postid of the newly-created post.</returns>

        <XmlRpcMethod("metaWeblog.newPost")> _

                   Public Property NewPost(() As String

                   End Property

)

                             End Function

 

                   '/ <summary>

                   '/ Edits an existing entry on a blog.

                   '/ </summary>

                   '/ <param name="postid">The ID of the post to update.</param>

                   '/ <param name="username">The name of the user’s space.</param>

                   '/ <param name="password">The user’s secret word.</param>

                   '/ <param name="post">A struct representing the content to update. </param>

                   '/ <param name="publish">If false, this is a draft post.</param>

                   '/ <returns>Always returns true.</returns>

                   <XmlRpcMethod("metaWeblog.editPost")> _

                   Public Property editPost(() As Boolean

                   End Property

)

                             End Function

 

                   '/ <summary>

                   '/ Deletes a post from the blog.

                   '/ </summary>

                   '/ <param name="appKey">This value is ignored.</param>

                   '/ <param name="postid">The ID of the post to update.</param>

                   '/ <param name="username">The name of the user’s space.</param>

                   '/ <param name="password">The user’s secret word.</param>

                   '/ <param name="post">A struct representing the content to update. </param>

                   '/ <param name="publish">This value is ignored.</param>

                   '/ <returns>Always returns true.</returns>

                   <XmlRpcMethod("blogger.deletePost")> _

                   Public Property deletePost(() As Boolean

                   End Property

)

                             End Function

 

 

                   '/ <summary>

                   '/ Returns information about the user’s space. An empty array is returned if the user does not have a space.

                   '/ </summary>

                   '/ <param name="appKey">This value is ignored.</param>

                   '/ <param name="postid">The ID of the post to update.</param>

                   '/ <param name="username">The name of the user’s space.</param>   

                   '/ <returns>An array of structs that represents each of the user’s blogs.

                   '/ The array will contain a maximum of one struct, since a user can only have a single space with a single blog.</returns>

                   <XmlRpcMethod("blogger.getUsersBlogs")> _

                   Public Property getUsersBlogs(() As UserBlog()

                   End Property

)

                             End Function

 

                   '/ <summary>

                   '/ Returns basic user info (name, e-mail, userid, and so on).

                   '/ </summary>

                   '/ <param name="appKey">This value is ignored.</param>

                   '/ <param name="postid">The ID of the post to update.</param>

                   '/ <param name="username">The name of the user’s space.</param>   

                   '/ <returns>A struct containing profile information about the user.

                   '/Each struct will contain the following fields: nickname, userid, url, e-mail,

                   '/lastname, and firstname.</returns>

                   <XmlRpcMethod("blogger.getUserInfo")> _

                   Public Property getUserInfo(() As UserInfo

                   End Property

)

                             End Function

 

 

                   '/ <summary>

                   '/ Returns a specific entry from a blog.

                   '/ </summary>

                   '/ <param name="postid">The ID of the post to update.</param>

                   '/ <param name="username">The name of the user’s space.</param>

                   '/ <param name="password">The user’s secret word.</param>

                   '/ <returns>Always returns true.</returns>

                   <XmlRpcMethod("metaWeblog.getPost")> _

                   Public Property getPost(() As Post

                   End Property

)

                             End Function

 

                   '/ <summary>

                   '/ Returns the list of categories that have been used in the blog.

                   '/ </summary>

                   '/ <param name="blogid">This should be the string MyBlog, which indicates that the post is being created in the user’s blog.</param>

                   '/ <param name="username">The name of the user’s space.</param>

                   '/ <param name="password">The user’s secret word.</param>

                   '/ <returns>An array of structs that contains one struct for each category.

                   '/ Each category struct will contain a description field that contains the name of the category.</returns>

                   <XmlRpcMethod("metaWeblog.getCategories")> _

                   Public Property getCategories(() As Category()

                   End Property

)

                             End Function

 

                   '/ <summary>

                   '/ The main entry point for the application.

                   '/ </summary>

                   <STAThread> _

                   Shared  Sub Main(ByVal args() As String)

 

                             Dim mw As MsnSpacesMetaWeblog =  New MsnSpacesMetaWeblog()

                             Dim username As String =  "!Space3*Pqc3*yUo00Y0!"

                             Dim password As String =  "mYsEcReTwOrD"

                             mw.Credentials = New NetworkCredential(username, password)

 

                             Try

 

                                       ' Space3Pqc3yUo00Y0

                                      Dim post As Post =  New Post()

                                      post.categories = New String()

                                      {

                                                "Test Posts"

                                      }

 

                                      post.title = "Tets 3"

                                      post.description = "This is my 3rd test post"

                                      post.dateCreated = DateTime.Now

 

                                      Dim id As String =  mw.NewPost("MyBlog",username,password,post,True)

 

                                      post.title = "Test 3 (typo fixed)"                                 

 

                                      mw.editPost(id, username, password, post, True)

 

                                      post = mw.getPost(id, username, password)

                                      Console.WriteLine("Just edited the post with the title '{0}' at '{1}'", post.title, post.dateCreated)

 '                                      display list of categories used on the blog */

                                      Dim categories() As Category =  mw.getCategories("MyBlog",username,password)

 

                                      Dim c As Category

                                      For Each c In categories

                                                Console.WriteLine("Category: {0}", c.description)

                                      Next

 '                                      display title of the ten most recent posts. */

                                      Dim posts() As Post =  mw.getRecentPosts("MyBlog",username,password,10)

 

                                      Dim p As Post

                                      For Each p In posts

                                                Console.WriteLine("Post Title: {0}", p.title)

                                      Next

 

                                      mw.deletePost(String.Empty, id, username, password, True)

                                      Console.WriteLine("The post entitled '{0}' has been deleted", post.title)

 '                                      get info on user's blogs */

                                      Dim blogs() As UserBlog =  mw.getUsersBlogs(String.Empty,username,password)

 

                                      Dim b As UserBlog

                                      For Each b In blogs

                                                Console.WriteLine("The URL of '{0}' is {1}", b.blogName, b.url)

                                      Next

 '                                      get info on the user */

                                      Dim user As UserInfo =  mw.getUserInfo(String.Empty,username,password)

                                      Console.WriteLine("{0} {1} ({2}) is the owner of the space whose URL is {3}", user.firstname, user.lastname, user.email, user.url)

 

 

Catch xrfe As XmlRpcFaultException

                              Console.WriteLine("ERROR: {0}", xrfe.FaultString)

                             End Try

                             Console.ReadLine()

                   End Sub

            End Class

  End Namespace

ebay的api的开发技术笔记,有点乱

ebay的api开发自己整理的资料
  • nittystone
  • nittystone
  • 2014年08月19日 21:36
  • 3172

vb.net利用SerialPort进行读取串口操作

mports SystemImports System.IO.PortsPublic Class Form1 Private Sub Form1_Load(ByVal sender As Sys...
  • u011788252
  • u011788252
  • 2016年12月14日 13:29
  • 1973

VB.NET GET接口传送数据,获取返回值

VB.NET GET接口传送数据,获取返回值
  • wybshyy
  • wybshyy
  • 2016年07月29日 14:08
  • 1512

VB.net版本的数据库访问类DataBaseAccess

在开发一个VB.net的项目时,曾经整理出了一个DataBaseAccess的访问类,现在将该类分享下: Imports System Imports System.IO Imports Sys...
  • weizhiai12
  • weizhiai12
  • 2011年09月27日 15:33
  • 549

VB.net学习笔记(十三)抽象类、多接口

Public MustInherit Class Person '只能被继承 Private mName As String Private mBirthDate As Date ...
  • dzweather
  • dzweather
  • 2013年08月15日 23:34
  • 6183

VB.NET版ssl链接(工行查询接口的实现)

Imports System Imports System.Collections.Generic Imports System.Web Imports System.Text Imports Sys...
  • kyleing
  • kyleing
  • 2011年07月06日 13:40
  • 2178

VB.NET中SAP RFC调用接口封装

因为经常需要访问sap操作数据,就封装了一个类方便调用,运行条件需要安装sap客户端,在sap客户端安装之后会带有一个com接口,本接口就通过这个com访问sap,因为com的后期绑定问题故使用了vb...
  • jievsvsvsvvs
  • jievsvsvsvvs
  • 2013年06月26日 00:27
  • 879

USB接口ID卡读卡器oem软件/读写卡测试程序及源代码/VB.net源代码

  详细代码如下:(如有疑问可13826029618进行相关提问解答,或荣士电子页面查询) Public Class Form1    Inherits System.Windows.Forms.Fo...
  • car_reader
  • car_reader
  • 2011年06月18日 09:04
  • 1672

VB.net学习笔记(十五)继承与多接口练习

Public MustInherit Class Contact '只能作基类且不能实例化 Private mID As Guid = Guid.NewGuid Private mNa...
  • dzweather
  • dzweather
  • 2013年08月21日 22:57
  • 2168

USB接口IC读写器oem软件_AB密码完整解决方案/读写卡测试程序及源代码/VB.NET2003源代码

界面图     详细代码  Public Class Form1    Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 "...
  • car_reader
  • car_reader
  • 2011年06月17日 11:19
  • 549
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:(转)MSN Spaces开发接口 Vb.Net版本
举报原因:
原因补充:

(最多只允许输入30个字)