payment.vb

j2ee技术内幕源码包括了这本书的所有代码

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.0.2914.16
'
'     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 System
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization

Namespace WebReference1
    
    <System.Web.Services.WebServiceBindingAttribute(Name:="PaymentAgentBinding", [Namespace]:="http://www.capeclear.com/Payment.wsdl"),  _
     System.Xml.Serialization.SoapIncludeAttribute(GetType(CreditCardInfo))>  _
    Public Class Payment
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.Url = "http://142.107.253.41:8200/ccx/SOAPServlet"
        End Sub
        
        <System.Diagnostics.DebuggerStepThroughAttribute(),  _
         System.Web.Services.Protocols.SoapRpcMethodAttribute("capeconnect:Payment:PaymentAgent#processPayment", RequestNamespace:="capeconnect:Payment:PaymentAgent", ResponseNamespace:="capeconnect:Payment:PaymentAgent")>  _
        Public Sub processPayment(ByVal arg0 As CreditCardInfo)
            Me.Invoke("processPayment", New Object() {arg0})
        End Sub
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Function BeginprocessPayment(ByVal arg0 As CreditCardInfo, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("processPayment", New Object() {arg0}, callback, asyncState)
        End Function
        
        <System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Sub EndprocessPayment(ByVal asyncResult As System.IAsyncResult)
            Me.EndInvoke(asyncResult)
        End Sub
    End Class
    
    <System.Xml.Serialization.SoapTypeAttribute("CreditCardInfo", "http://www.capeclear.com/Payment.xsd")>  _
    Public Class CreditCardInfo
        
        Public ccName As String
        
        Public ccNumber As String
        
        Public ccExpiry As String
        
        Public amount As Double
    End Class
End Namespace