Я пишу код в VB для публикации блога в WordPress.
вот код
Imports CookComputing.XmlRpc
Public Structure blogInfo
Public title As String
Public description As String
End Structure
Public Class Form1
Public Interface IgetCatList
<CookComputing.XmlRpc.XmlRpcMethod("metaWeblog.newPost")> _
Function NewPage(ByVal blogId As String, ByVal strUserName As String, ByVal strPassword As String, ByVal content As blogInfo, ByVal publish As Integer) As String
End Interface
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim categories As IgetCatList
Dim clientprotocol As XmlRpcClientProtocol
Dim txt As String
Dim newBlogPost As blogInfo
newBlogPost.title = TextBox1.Text
newBlogPost.description = TextBox2.Text
categories = CType(XmlRpcProxyGen.Create(GetType(IgetCatList)), IgetCatList)
clientprotocol = CType(categories, XmlRpcClientProtocol)
clientprotocol.Url = "http://wordpress.com/#quickpress" 'i am not sure if this is the correct url
Dim id = categories.NewPage("1", "xxxxxx", "xxxxxxx", newBlogPost, 1)
MsgBox("Posted to Blog successfullly! Post ID : " + id)
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
End Class
Когда я запускаю этот код, я получаю сообщение об ошибке: Требуется проверка подлинности прокси (ISA ServerТребуется авторизация для выполнения запроса Доступ к фильтру веб-прокси запрещен)
Может кто-нибудь, пожалуйста, помогите мне решить эту проблему.Thnaks