很久都没有写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
扫一扫
5674
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
