如何从VB.NET调用Magento API

Function gethttpStream() As String
    Dim myh As httpWebrequest = _
    httpWebrequest.Create("http://yourmagentoweb/soap/api/?wsdl")
    myh.Timeout = 30000
    myh.UserAgent = "Test"
    Dim myR As httpWebResponse = myh.GetResponse()
    Dim myEnc As Encoding = Encoding.GetEncoding(1252)
    Dim mySr As StreamReader = New StreamReader(myR.GetResponseStream(),myEnC)

    Return mySr.ReadToEnd()
End Function

该代码显然需要调整 – 我没有时间来美化这些东西

来自Abid Hussain的链接

1.使用wdsl工具我通过调用以下方法创建了一个.vb源文件：

2.之后我使用VB Comand Line Editor将源文件编译成dll.

3.最后,我能够创建在MageProxyClass.dll中定义的Magentoservice类的实例

Private WithEvents msvc As New Magentoservice()

4.示例：

Public Class main
    Private WithEvents msvc As New Magentoservice()
    Private ssid As String
    Private Sub main_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        ListBox1.Items.Add("Trying to connect")
        msvc.loginAsync("xxxx","xxxxxxxxxxxxxxxx")
    End Sub

    Public Sub MageLoginComplete(ByVal sender As System.Object,ByVal e As loginCompletedEventArgs) Handles msvc.loginCompleted
        ListBox1.Items.Add("Login completed")
        ssid = e.Result
        ListBox1.Items.Add(String.Concat("Session ID: ",ssid))
    End Sub
End Class