home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / setup / vbnet / 26 web services / advancedwsclient / web references / localhost / reference.vb < prev    next >
Encoding:
Text File  |  2002-03-01  |  16.6 KB  |  317 lines
  1. '------------------------------------------------------------------------------
  2. ' <autogenerated>
  3. '     This code was generated by a tool.
  4. '     Runtime Version: 1.0.3705.0
  5. '
  6. '     Changes to this file may cause incorrect behavior and will be lost if 
  7. '     the code is regenerated.
  8. ' </autogenerated>
  9. '------------------------------------------------------------------------------
  10.  
  11. Option Strict Off
  12. Option Explicit On
  13.  
  14. Imports System
  15. Imports System.ComponentModel
  16. Imports System.Diagnostics
  17. Imports System.Web.Services
  18. Imports System.Web.Services.Protocols
  19. Imports System.Xml.Serialization
  20.  
  21. '
  22. 'This source code was auto-generated by Microsoft.VSDesigner, Version 1.0.3705.0.
  23. '
  24. Namespace localhost
  25.     
  26.     '<remarks/>
  27.     <System.Diagnostics.DebuggerStepThroughAttribute(),  _
  28.      System.ComponentModel.DesignerCategoryAttribute("code"),  _
  29.      System.Web.Services.WebServiceBindingAttribute(Name:="SampleServiceSoap", [Namespace]:="http://www.vb2themax.com/")>  _
  30.     Public Class SampleService
  31.         Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
  32.         
  33.         Public UserInfoHeaderValue As UserInfoHeader
  34.         
  35.         Public AccountInfoHeaderValue As AccountInfoHeader
  36.         
  37.         '<remarks/>
  38.         Public Sub New()
  39.             MyBase.New
  40.             Me.Url = "http://localhost/advancedws/sampleservice.asmx"
  41.         End Sub
  42.         
  43.         '<remarks/>
  44.         <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/GetTime", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  45.         Public Function GetTime(ByVal arg As Integer) As Date
  46.             Dim results() As Object = Me.Invoke("GetTime", New Object() {arg})
  47.             Return CType(results(0),Date)
  48.         End Function
  49.         
  50.         '<remarks/>
  51.         Public Function BeginGetTime(ByVal arg As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  52.             Return Me.BeginInvoke("GetTime", New Object() {arg}, callback, asyncState)
  53.         End Function
  54.         
  55.         '<remarks/>
  56.         Public Function EndGetTime(ByVal asyncResult As System.IAsyncResult) As Date
  57.             Dim results() As Object = Me.EndInvoke(asyncResult)
  58.             Return CType(results(0),Date)
  59.         End Function
  60.         
  61.         '<remarks/>
  62.         <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/GetTimeCounter", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  63.         Public Function GetTimeCounter() As Integer
  64.             Dim results() As Object = Me.Invoke("GetTimeCounter", New Object(-1) {})
  65.             Return CType(results(0),Integer)
  66.         End Function
  67.         
  68.         '<remarks/>
  69.         Public Function BeginGetTimeCounter(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  70.             Return Me.BeginInvoke("GetTimeCounter", New Object(-1) {}, callback, asyncState)
  71.         End Function
  72.         
  73.         '<remarks/>
  74.         Public Function EndGetTimeCounter(ByVal asyncResult As System.IAsyncResult) As Integer
  75.             Dim results() As Object = Me.EndInvoke(asyncResult)
  76.             Return CType(results(0),Integer)
  77.         End Function
  78.         
  79.         '<remarks/>
  80.         <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/IncrementCounter", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  81.         Public Function IncrementCounter() As Integer
  82.             Dim results() As Object = Me.Invoke("IncrementCounter", New Object(-1) {})
  83.             Return CType(results(0),Integer)
  84.         End Function
  85.         
  86.         '<remarks/>
  87.         Public Function BeginIncrementCounter(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  88.             Return Me.BeginInvoke("IncrementCounter", New Object(-1) {}, callback, asyncState)
  89.         End Function
  90.         
  91.         '<remarks/>
  92.         Public Function EndIncrementCounter(ByVal asyncResult As System.IAsyncResult) As Integer
  93.             Dim results() As Object = Me.EndInvoke(asyncResult)
  94.             Return CType(results(0),Integer)
  95.         End Function
  96.         
  97.         '<remarks/>
  98.         <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/GetSessionID", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  99.         Public Function GetSessionID() As String
  100.             Dim results() As Object = Me.Invoke("GetSessionID", New Object(-1) {})
  101.             Return CType(results(0),String)
  102.         End Function
  103.         
  104.         '<remarks/>
  105.         Public Function BeginGetSessionID(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  106.             Return Me.BeginInvoke("GetSessionID", New Object(-1) {}, callback, asyncState)
  107.         End Function
  108.         
  109.         '<remarks/>
  110.         Public Function EndGetSessionID(ByVal asyncResult As System.IAsyncResult) As String
  111.             Dim results() As Object = Me.EndInvoke(asyncResult)
  112.             Return CType(results(0),String)
  113.         End Function
  114.         
  115.         '<remarks/>
  116.         <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/LengthyMethodCall", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  117.         Public Function LengthyMethodCall(ByVal seconds As Integer) As Integer
  118.             Dim results() As Object = Me.Invoke("LengthyMethodCall", New Object() {seconds})
  119.             Return CType(results(0),Integer)
  120.         End Function
  121.         
  122.         '<remarks/>
  123.         Public Function BeginLengthyMethodCall(ByVal seconds As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  124.             Return Me.BeginInvoke("LengthyMethodCall", New Object() {seconds}, callback, asyncState)
  125.         End Function
  126.         
  127.         '<remarks/>
  128.         Public Function EndLengthyMethodCall(ByVal asyncResult As System.IAsyncResult) As Integer
  129.             Dim results() As Object = Me.EndInvoke(asyncResult)
  130.             Return CType(results(0),Integer)
  131.         End Function
  132.         
  133.         '<remarks/>
  134.         <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/OneWayLengthyMethodCall", RequestNamespace:="http://www.vb2themax.com/", OneWay:=true, Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  135.         Public Sub OneWayLengthyMethodCall(ByVal seconds As Integer)
  136.             Me.Invoke("OneWayLengthyMethodCall", New Object() {seconds})
  137.         End Sub
  138.         
  139.         '<remarks/>
  140.         Public Function BeginOneWayLengthyMethodCall(ByVal seconds As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  141.             Return Me.BeginInvoke("OneWayLengthyMethodCall", New Object() {seconds}, callback, asyncState)
  142.         End Function
  143.         
  144.         '<remarks/>
  145.         Public Sub EndOneWayLengthyMethodCall(ByVal asyncResult As System.IAsyncResult)
  146.             Me.EndInvoke(asyncResult)
  147.         End Sub
  148.         
  149.         '<remarks/>
  150.         <System.Web.Services.Protocols.SoapRpcMethodAttribute("http://www.vb2themax.com/GetDocument", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/")>  _
  151.         Public Function GetDocument(ByVal docname As String) As Document
  152.             Dim results() As Object = Me.Invoke("GetDocument", New Object() {docname})
  153.             Return CType(results(0),Document)
  154.         End Function
  155.         
  156.         '<remarks/>
  157.         Public Function BeginGetDocument(ByVal docname As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  158.             Return Me.BeginInvoke("GetDocument", New Object() {docname}, callback, asyncState)
  159.         End Function
  160.         
  161.         '<remarks/>
  162.         Public Function EndGetDocument(ByVal asyncResult As System.IAsyncResult) As Document
  163.             Dim results() As Object = Me.EndInvoke(asyncResult)
  164.             Return CType(results(0),Document)
  165.         End Function
  166.         
  167.         '<remarks/>
  168.         <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/ThrowAnException", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  169.         Public Sub ThrowAnException()
  170.             Me.Invoke("ThrowAnException", New Object(-1) {})
  171.         End Sub
  172.         
  173.         '<remarks/>
  174.         Public Function BeginThrowAnException(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  175.             Return Me.BeginInvoke("ThrowAnException", New Object(-1) {}, callback, asyncState)
  176.         End Function
  177.         
  178.         '<remarks/>
  179.         Public Sub EndThrowAnException(ByVal asyncResult As System.IAsyncResult)
  180.             Me.EndInvoke(asyncResult)
  181.         End Sub
  182.         
  183.         '<remarks/>
  184.         <System.Web.Services.Protocols.SoapHeaderAttribute("UserInfoHeaderValue", Required:=false),  _
  185.          System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/GetClientTime", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  186.         Public Function GetClientTime() As String
  187.             Dim results() As Object = Me.Invoke("GetClientTime", New Object(-1) {})
  188.             Return CType(results(0),String)
  189.         End Function
  190.         
  191.         '<remarks/>
  192.         Public Function BeginGetClientTime(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  193.             Return Me.BeginInvoke("GetClientTime", New Object(-1) {}, callback, asyncState)
  194.         End Function
  195.         
  196.         '<remarks/>
  197.         Public Function EndGetClientTime(ByVal asyncResult As System.IAsyncResult) As String
  198.             Dim results() As Object = Me.EndInvoke(asyncResult)
  199.             Return CType(results(0),String)
  200.         End Function
  201.         
  202.         '<remarks/>
  203.         <System.Web.Services.Protocols.SoapHeaderAttribute("AccountInfoHeaderValue"),  _
  204.          System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/ProtectedMethod", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  205.         Public Function ProtectedMethod() As Boolean
  206.             Dim results() As Object = Me.Invoke("ProtectedMethod", New Object(-1) {})
  207.             Return CType(results(0),Boolean)
  208.         End Function
  209.         
  210.         '<remarks/>
  211.         Public Function BeginProtectedMethod(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  212.             Return Me.BeginInvoke("ProtectedMethod", New Object(-1) {}, callback, asyncState)
  213.         End Function
  214.         
  215.         '<remarks/>
  216.         Public Function EndProtectedMethod(ByVal asyncResult As System.IAsyncResult) As Boolean
  217.             Dim results() As Object = Me.EndInvoke(asyncResult)
  218.             Return CType(results(0),Boolean)
  219.         End Function
  220.         
  221.         '<remarks/>
  222.         <System.Web.Services.Protocols.SoapHeaderAttribute("AccountInfoHeaderValue"),  _
  223.          System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/AnotherProtectedMethod", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  224.         Public Function AnotherProtectedMethod() As Boolean
  225.             Dim results() As Object = Me.Invoke("AnotherProtectedMethod", New Object(-1) {})
  226.             Return CType(results(0),Boolean)
  227.         End Function
  228.         
  229.         '<remarks/>
  230.         Public Function BeginAnotherProtectedMethod(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  231.             Return Me.BeginInvoke("AnotherProtectedMethod", New Object(-1) {}, callback, asyncState)
  232.         End Function
  233.         
  234.         '<remarks/>
  235.         Public Function EndAnotherProtectedMethod(ByVal asyncResult As System.IAsyncResult) As Boolean
  236.             Dim results() As Object = Me.EndInvoke(asyncResult)
  237.             Return CType(results(0),Boolean)
  238.         End Function
  239.         
  240.         '<remarks/>
  241.         <System.Web.Services.Protocols.SoapHeaderAttribute("AccountInfoHeaderValue"),  _
  242.          System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/YetAnotherProtectedMethod", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  243.         Public Function YetAnotherProtectedMethod() As Boolean
  244.             Dim results() As Object = Me.Invoke("YetAnotherProtectedMethod", New Object(-1) {})
  245.             Return CType(results(0),Boolean)
  246.         End Function
  247.         
  248.         '<remarks/>
  249.         Public Function BeginYetAnotherProtectedMethod(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  250.             Return Me.BeginInvoke("YetAnotherProtectedMethod", New Object(-1) {}, callback, asyncState)
  251.         End Function
  252.         
  253.         '<remarks/>
  254.         Public Function EndYetAnotherProtectedMethod(ByVal asyncResult As System.IAsyncResult) As Boolean
  255.             Dim results() As Object = Me.EndInvoke(asyncResult)
  256.             Return CType(results(0),Boolean)
  257.         End Function
  258.     End Class
  259.     
  260.     '<remarks/>
  261.     <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://www.vb2themax.com/"),  _
  262.      System.Xml.Serialization.XmlRootAttribute([Namespace]:="http://www.vb2themax.com/", IsNullable:=false)>  _
  263.     Public Class AccountInfoHeader
  264.         Inherits SoapHeader
  265.         
  266.         '<remarks/>
  267.         Public UserName As String
  268.         
  269.         '<remarks/>
  270.         Public Password As String
  271.     End Class
  272.     
  273.     '<remarks/>
  274.     <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://www.vb2themax.com/"),  _
  275.      System.Xml.Serialization.XmlRootAttribute([Namespace]:="http://www.vb2themax.com/", IsNullable:=false)>  _
  276.     Public Class UserInfoHeader
  277.         Inherits SoapHeader
  278.         
  279.         '<remarks/>
  280.         Public Culture As String
  281.         
  282.         '<remarks/>
  283.         Public TimeOffset As Single
  284.     End Class
  285.     
  286.     '<remarks/>
  287.     <System.Xml.Serialization.SoapTypeAttribute("Document", "http://www.vb2themax.com/encodedTypes"),  _
  288.      System.Xml.Serialization.SoapIncludeAttribute(GetType(Invoice)),  _
  289.      System.Xml.Serialization.SoapIncludeAttribute(GetType(PurchaseOrder))>  _
  290.     Public Class Document
  291.         
  292.         '<remarks/>
  293.         Public [Date] As Date
  294.         
  295.         '<remarks/>
  296.         Public Number As Integer
  297.     End Class
  298.     
  299.     '<remarks/>
  300.     <System.Xml.Serialization.SoapTypeAttribute("Invoice", "http://www.vb2themax.com/encodedTypes")>  _
  301.     Public Class Invoice
  302.         Inherits Document
  303.         
  304.         '<remarks/>
  305.         Public Total As Decimal
  306.     End Class
  307.     
  308.     '<remarks/>
  309.     <System.Xml.Serialization.SoapTypeAttribute("PurchaseOrder", "http://www.vb2themax.com/encodedTypes")>  _
  310.     Public Class PurchaseOrder
  311.         Inherits Document
  312.         
  313.         '<remarks/>
  314.         Public AuthorizedBy As String
  315.     End Class
  316. End Namespace
  317.