?? payment.vb
字號:
?'------------------------------------------------------------------------------
' <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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -