使用VB.NET调用Web服务WSDL

在我发疯想弄明白这件事之前，请有人帮我一下。我是一名SQL DBA，自学了一些VB.NET，以便与我们内部用于数据输入等的SQL数据库进行交互

我有一个web服务，我正试图为它构建一个“加载器”，因为该公司提供的基于Java的服务不能处理多个文件，一次只能处理一个文件

这是WSDL的URL。我有一些自动化软件，它有一个内置的WebService/WCF执行器，而这是伟大的看和做的工作，它不与我的.NET工作，所以我不得不自己手动做这件事

本质上，我需要使用上述WSDL中的特定函数激发一些XML，以向我的应用程序返回响应

现在根据自动化程序，它使用“OpenInterchange”类，然后使用OpenInterchange.XStreamMessage（x，x，x，x，1）方法返回信息

我最终得到了一些类似于

    Dim MyService As New XstreamUAT.xStreamMessageRequest(brokreftxtbx.Text, bnumtxtbx.Text, lickeytxtbx.Text, "This", 30)

    Dim MyResult As New XstreamUAT.xStreamMessageResponse(MyService.ToString)

    MsgBox(MyResult)

但我什么也没有得到，我显然完全没有抓住要点。我不能给你详细的信息来登录他们的WSDL，但是通过链接，我认为那里有足够的信息来为我指明正确的方向

更新

我更改了一些代码并添加了：

Public Class Form1
Implements XstreamUAT.OpenInterchange

然后这更新了我的VB底部的函数加载，但它们都是空的

Public Function getMessages(request As XstreamUAT.getMessagesRequest) As XstreamUAT.getMessagesResponse Implements XstreamUAT.OpenInterchange.getMessages

End Function

Public Function inStreamMessage(request As XstreamUAT.inStreamMessageRequest) As XstreamUAT.inStreamMessageResponse Implements XstreamUAT.OpenInterchange.inStreamMessage

End Function

Public Function processMessage(request As XstreamUAT.processMessageRequest) As XstreamUAT.processMessageResponse Implements XstreamUAT.OpenInterchange.processMessage

End Function

Public Function returnResponse(request As XstreamUAT.returnResponseRequest) As XstreamUAT.returnResponseResponse Implements XstreamUAT.OpenInterchange.returnResponse

End Function

Public Function xStreamMessage(request As XstreamUAT.xStreamMessageRequest) As XstreamUAT.xStreamMessageResponse Implements XstreamUAT.OpenInterchange.xStreamMessage

End Function

很明显，这些函数没有返回任何内容，有人可以请求eadd WSDL并告诉我哪里出了问题，我正在努力解决这个问题，而web上缺乏关于这个特定WSDL的信息正使我陷入困境

我应该能够使用OpenInterchange类中的xStreamMessage方法向服务发送数据，然后从web服务返回响应，我甚至无法让它发送消息！！：(

干杯

Dim client As New XstreamUAT.OpenInterchangeClient() 
Dim XMLResponseTxt= client.xStreamMessage(brokreftxtbx.Text, bnumtxtbx.Text, lickeytxtbx.Text, "This", 10)

我为正在讨论的任务声明了错误的对象。最后，我用以下代码对此进行了扩展：

        'Specify the binding to be used for the client.
        Dim binding As New BasicHttpBinding(BasicHttpSecurityMode.Transport)

        'Specify the address to be used for the client.
        Dim address As New EndpointAddress(hubURLtxtbx.Text)

        ' Create a client that is configured with this address and binding.
        Dim client As New XstreamLIVE.OpenInterchangeClient(binding, address)

        GlobalVariables.response = client.xStreamMessage(brokreftxtbx.Text, bnumtxtbx.Text, lickeytxtbx.Text, "This", 10)
        XMLResponseTxtBx.Text = PrettyXML(GlobalVariables.response)

---

谷歌“添加服务引用”。我们已经做到了@JohnSaunders；）这并不是它使用WSDL中的方法正确启动XML的那一部分。我的密码可能有好几英里远。看看它，它看起来像是OpenInterchage类，然后是该类中的方法，但我似乎无法在代码或方法中引用该类。请参阅。否则，我想你可能不明白这个概念。您的表单几乎肯定不会实现该接口。请使用它！Dim client作为新的XstreamUAT.OpenInterchangeClient（）Dim xmlresponseText=client.xStreamMessage（brokreftxtbx.Text，bnumtxtbx.Text，lickeytxtbx.Text，“This”，10）您应该添加它作为答案，并说明您是如何解决的。它可以帮助别人。如果你愿意，你甚至可以接受你的答案。