Creating a SOAP Client in VB.Net

[austincolby]

I am working on creating a SOAP client in Visual Studio 2008 for the first time but am running into a few issues. I added the Web Service reference to the project and am able to see the namespace and set the information for the classes but cannot figure out how to send the information to the server or receive a response. Below is my code and any help is appreciated!

Imports Microsoft.Web.Services2
 
Public Class Form1
    Public username As String
    Public password As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim Info As New MYWebService.TransactionInfo
 
        Dim pTamount As Single = "10.00"
        Dim pTmailcode As String = "123456789"
        Dim pTprogramCode As String = "AB"
        Dim pTdonorID As String = "123456789"
        Dim pTfirstName As String = "Test"
        Dim pTmiddleName As String = ""
        Dim pTlastName As String = "Name"
        Dim pTemail As String = ""
        Dim pTcompanyName As String = ""
        Dim pTaddress1 As String = "123 Test Street"
        Dim pTaddress2 As String = ""
        Dim pTcity As String = "Springfield"
        Dim pTstateCode As String = "IN"
        Dim pTzip As String = "12345"
        Dim pTzip4 As String = ""
        Dim pTcountryCode As String = ""
        Dim pTcardNumber As String = "4111111111111111"
        Dim pTcardCSC As String = ""
        Dim pTexpMonth As Integer = "04"
        Dim pTexpYear As Integer = "2010"
        Dim pTrecur As Boolean = "0"
 
        Info.amount = pTamount
        Info.mailcode = pTmailcode
        Info.programCode = pTprogramCode
        Info.donorID = pTdonorID
        Info.firstName = pTfirstName
        Info.middleName = pTmiddleName
        Info.lastName = pTlastName
        Info.email = pTemail
        Info.companyName = pTcompanyName
        Info.address1 = pTaddress1
        Info.address2 = pTaddress2
        Info.city = pTcity
        Info.stateCode = pTstateCode
        Info.zip = pTzip
        Info.zip4 = pTzip4
        Info.countryCode = pTcountryCode
        Info.cardNumber = pTcardNumber
        Info.cardCSC = pTcardCSC
        Info.expMonth = pTexpMonth
        Info.expYear = pTexpYear
        Info.recur = pTrecur
 
        Dim CreateTransaction As New MYWebService.ProcessCardRequest(username, password, "test", Info)
        Dim RecordResponse As New MYWebService.ProcessCardResponse()
        Dim SendRequest As New MYWebService.MYGatewayServicePortTypeClient
 
 
    ****This seems to be where I am stuck... The SendRequest returns the response I guess?****
      SendRequest.Open()
        RecordResponse = SendRequest.MYWebService_MYGatewayServicePortType_ProcessCard(CreateTransaction)
      SendRequest.Close()
 
        MsgBox("")
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        username = "Username"
        password = "Password"
    End Sub
End Class
 
 

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.1.4322.2407
'
'     Changes to this file may cause incorrect behavior and will be lost if 
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------
 
Option Strict Off
Option Explicit On
 
Imports Microsoft.Web.Services2
Imports Microsoft.Web.Services2.Addressing
Imports Microsoft.Web.Services2.Messaging
Imports System
Imports System.Xml
Imports System.Xml.Serialization
 
'
'InfoVersionComment, WseWsdl2, Version=2.0.2.0, Culture=neutral, PublicKeyToken=26ba029e599ec4f8, RunTime Version: 1.1.4322.2407
'
 
'<remarks/>
<System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://MYgateway.com/xsd6"),  _
 System.Xml.Serialization.XmlRootAttribute("processCardRequest", [Namespace]:="http://www.wso2.org/php/xsd", IsNullable:=false)>  _
Public Class ProcessCardRequest
 
    '<remarks/>
    Public username As String
 
    '<remarks/>
    Public password As String
 
    '<remarks/>
    Public mode As String
 
    '<remarks/>
    Public transactionInfo As TransactionInfo
End Class
 
'<remarks/>
<System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://MYgateway.com/xsd5")>  _
Public Class TransactionInfo
 
    '<remarks/>
    Public amount As Single
 
    '<remarks/>
    Public mailcode As String
 
    '<remarks/>
    Public programCode As String
 
    '<remarks/>
    Public donorID As String
 
    '<remarks/>
    Public firstName As String
 
    '<remarks/>
    Public middleName As String
 
    '<remarks/>
    Public lastName As String
 
    '<remarks/>
    Public email As String
 
    '<remarks/>
    Public companyName As String
 
    '<remarks/>
    Public address1 As String
 
    '<remarks/>
    Public address2 As String
 
    '<remarks/>
    Public city As String
 
    '<remarks/>
    Public stateCode As String
 
    '<remarks/>
    Public zip As String
 
    '<remarks/>
    Public zip4 As String
 
    '<remarks/>
    Public countryCode As String
 
    '<remarks/>
    Public cardNumber As String
 
    '<remarks/>
    Public cardCSC As String
 
    '<remarks/>
    Public expMonth As Integer
 
    '<remarks/>
    Public expYear As Integer
 
    '<remarks/>
    Public recur As Boolean
End Class
 
'<remarks/>
<System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://MYgateway.com/xsd7"),  _
 System.Xml.Serialization.XmlRootAttribute("processCardResponse", [Namespace]:="http://www.wso2.org/php/xsd", IsNullable:=false)>  _
Public Class ProcessCardResponse
 
    '<remarks/>
    Public errorCode As Integer
 
    '<remarks/>
    Public errorMsg As String
 
    '<remarks/>
    Public transactionID As String
 
    '<remarks/>
    Public transactionDate As Date
 
    '<remarks/>
    Public donorID As String
 
    '<remarks/>
    Public originalID As String
 
    '<remarks/>
    Public result As Integer
 
    '<remarks/>
    Public responseMsg As String
 
    '<remarks/>
    Public authCode As String
 
    '<remarks/>
    Public profileID As String
End Class
 
'<remarks/>
<System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://MYgateway.com/xsd6"),  _
 System.Xml.Serialization.XmlRootAttribute("recordGiftRequest", [Namespace]:="http://www.wso2.org/php/xsd", IsNullable:=false)>  _
Public Class RecordGiftRequest
 
    '<remarks/>
    Public username As String
 
    '<remarks/>
    Public password As String
 
    '<remarks/>
    Public mode As String
 
    '<remarks/>
    Public giftInfo As GiftInfo
End Class
 
'<remarks/>
<System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://MYgateway.com/xsd5")>  _
Public Class GiftInfo
 
    '<remarks/>
    Public amount As Single
 
    '<remarks/>
    Public mailcode As String
 
    '<remarks/>
    Public programCode As String
 
    '<remarks/>
    Public donorID As String
 
    '<remarks/>
    Public firstName As String
 
    '<remarks/>
    Public middleName As String
 
    '<remarks/>
    Public lastName As String
 
    '<remarks/>
    Public email As String
 
    '<remarks/>
    Public companyName As String
 
    '<remarks/>
    Public address1 As String
 
    '<remarks/>
    Public address2 As String
 
    '<remarks/>
    Public city As String
 
    '<remarks/>
    Public stateCode As String
 
    '<remarks/>
    Public zip As String
 
    '<remarks/>
    Public zip4 As String
 
    '<remarks/>
    Public countryCode As String
 
    '<remarks/>
    Public recur As Boolean
End Class
 
'<remarks/>
<System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://MYgateway.com/xsd7"),  _
 System.Xml.Serialization.XmlRootAttribute("recordGiftResponse", [Namespace]:="http://www.wso2.org/php/xsd", IsNullable:=false)>  _
Public Class RecordGiftResponse
 
    '<remarks/>
    Public errorCode As Integer
 
    '<remarks/>
    Public errorMsg As String
 
    '<remarks/>
    Public donorID As String
 
    '<remarks/>
    Public originalID As String
End Class
 
<SoapService("http://www.wso2.org/php")> _
Public Class MYGatewayService
    Inherits SoapClient 
 
    Public Sub New()
        MyBase.New(New Uri("http://www.MYgateway.com:443/index.php/svc"))
    End Sub
 
    <SoapMethod("http://www.MYgateway.com:443/index.php/svc/ProcessCard")> _
    Public Function ProcessCard(  request As processCardRequest) As processCardResponse
        Return CType(MyBase.SendRequestResponse("ProcessCard", request).GetBodyObject(GetType(processCardResponse), SoapServiceAttribute.TargetNamespace),processCardResponse)
    End Function
 
    Public Function BeginProcessCard(  request As processCardRequest, callback As System.AsyncCallback, asyncState As Object) As IAsyncResult
        Return MyBase.BeginSendRequestResponse("ProcessCard", request, callback, asyncState)
    End Function
 
    Public Function EndProcessCard( asyncResult As IAsyncResult ) As processCardResponse
        Return CType(MyBase.EndSendRequestResponse(asyncResult).GetBodyObject(GetType(processCardResponse), SoapServiceAttribute.TargetNamespace),processCardResponse)
    End Function
 
    <SoapMethod("http://www.MYgateway.com:443/index.php/svc/RecordGift")> _
    Public Function RecordGift(  request As recordGiftRequest) As recordGiftResponse
        Return CType(MyBase.SendRequestResponse("RecordGift", request).GetBodyObject(GetType(recordGiftResponse), SoapServiceAttribute.TargetNamespace),recordGiftResponse)
    End Function
 
    Public Function BeginRecordGift(  request As recordGiftRequest, callback As System.AsyncCallback, asyncState As Object) As IAsyncResult
        Return MyBase.BeginSendRequestResponse("RecordGift", request, callback, asyncState)
    End Function
 
    Public Function EndRecordGift( asyncResult As IAsyncResult ) As recordGiftResponse
        Return CType(MyBase.EndSendRequestResponse(asyncResult).GetBodyObject(GetType(recordGiftResponse), SoapServiceAttribute.TargetNamespace),recordGiftResponse)
    End Function
 
End Class