reference.vb

来自「Programming Web and Desktop Applications」· VB 代码 · 共 58 行

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

'
'This source code was auto-generated by Microsoft.VSDesigner, Version 1.0.3705.288.
'
Namespace WebReference1
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="EMailSoap", [Namespace]:="http://localhost/Chapter16")>  _
    Public Class EMail
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://68.83.140.121/Chapter16/FreeEMail/EMail.asmx"
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://localhost/Chapter16/SendMail", RequestNamespace:="http://localhost/Chapter16", ResponseNamespace:="http://localhost/Chapter16", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function SendMail(ByVal strFromAddr As String, ByVal strToAddr As String, ByVal strSubj As String, ByVal strMsg As String) As String
            Dim results() As Object = Me.Invoke("SendMail", New Object() {strFromAddr, strToAddr, strSubj, strMsg})
            Return CType(results(0),String)
        End Function
        
        '<remarks/>
        Public Function BeginSendMail(ByVal strFromAddr As String, ByVal strToAddr As String, ByVal strSubj As String, ByVal strMsg As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("SendMail", New Object() {strFromAddr, strToAddr, strSubj, strMsg}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndSendMail(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),String)
        End Function
    End Class
End Namespace