- 전체
- Native Apps
- WinJS App
- C# Apps
- XAML
- VB.net
- VisualC.net
- C++
- MFC
- visual studio mobile app dev
- Azure ms cloud service
- Asp.net
- 인공지능 (AI)
- wpf
- UWP
- MAUI
VB.net MetaWeblogAPI VisualBasic .NET 코드 샘플
2019.02.08 14:17
MetaWeblogAPI VisualBasic .NET 코드 샘플
이 VisualBasic.NET 샘플은 MetaWeblog API에서 지원하는 모든 메서드를 사용하는 방법을 보여 줍니다.
이 VisualBasic.NET 코드 예제는 MetaWeblog API에서 지원하는 모든 메서드를 사용하는 방법을 보여 줍니다. 이 예제를 통해 외부 프로그램에서 웹 로그 게시물의 텍스트 및 특성을 가져오고 설정할 수 있습니다. 이 예제는 클라이언트 응용 프로그램과 웹 로그 서버 간 통신을 위한 XML-RPC 프로토콜을 사용합니다.
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 Function getRecentPosts(ByVal blogid As String, ByVal username As String, ByVal password As String, ByVal numberOfPosts As Integer) As Post() Return CType(Me.Invoke("getRecentPosts", New Object() {blogid, username, password, numberOfPosts}), Post()) End Function 'getRecentPosts '/ <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 Function newPost(ByVal blogid As String, ByVal username As String, ByVal password As String, ByVal content As Post, ByVal publish As Boolean) As String Return CStr(Me.Invoke("newPost", New Object() {blogid, username, password, content, publish})) End Function 'newPost '/ <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 Function editPost(ByVal postid As String, ByVal username As String, ByVal password As String, ByVal content As Post, ByVal publish As Boolean) As Boolean Return CBool(Me.Invoke("editPost", New Object() {postid, username, password, content, publish})) End Function 'editPost '/ <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 Function deletePost(ByVal appKey As String, ByVal postid As String, ByVal username As String, ByVal password As String, ByVal publish As Boolean) As Boolean Return CBool(Me.Invoke("deletePost", New Object() {appKey, postid, username, password, publish})) End Function 'deletePost '/ <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 Function getUsersBlogs(ByVal appKey As String, ByVal username As String, ByVal password As String) As UserBlog() Return CType(Me.Invoke("getUsersBlogs", New Object() {appKey, username, password}), UserBlog()) End Function 'getUsersBlogs '/ <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 Function getUserInfo(ByVal appKey As String, ByVal username As String, ByVal password As String) As UserInfo Return CType(Me.Invoke("getUserInfo", New Object() {appKey, username, password}), UserInfo) End Function 'getUserInfo '/ <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 Function getPost(ByVal postid As String, ByVal username As String, ByVal password As String) As Post Return CType(Me.Invoke("getPost", New Object() {postid, username, password}), Post) End Function 'getPost '/ <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 Function getCategories(ByVal blogid As String, ByVal username As String, ByVal password As String) As Category() Return CType(Me.Invoke("getCategories", New Object() {blogid, username, password}), Category()) End Function 'getCategories '/ <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 Dim post As Post = New Post post.categories = New String() {"Test Posts"} post.title = "Test 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
[출처] https://msdn.microsoft.com/ko-kr/library/aa905668.aspx
본 웹사이트는 광고를 포함하고 있습니다.
광고 클릭에서 발생하는 수익금은 모두 웹사이트 서버의 유지 및 관리, 그리고 기술 콘텐츠 향상을 위해 쓰여집니다.
광고 클릭에서 발생하는 수익금은 모두 웹사이트 서버의 유지 및 관리, 그리고 기술 콘텐츠 향상을 위해 쓰여집니다.