'------------------------------------------------------------------------------ ' ' 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. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On Imports System Imports System.Diagnostics Imports System.Web.Services Imports System.Web.Services.Protocols Imports System.Xml.Serialization ' 'This source code was auto-generated by wsdl, Version=1.0.2914.16. ' Public Class TitlesServiceInput Inherits System.Web.Services.Protocols.HttpGetClientProtocol _ Public Sub New() MyBase.New Me.Url = "http://localhost/webservices" End Sub _ Public Function GetTitlesInput(ByVal type As String) As GetTitlesInputMatches Return CType(Me.Invoke("GetTitlesInput", (Me.Url + "/Titles.aspx"), New Object() {type}),GetTitlesInputMatches) End Function _ Public Function BeginGetTitlesInput(ByVal type As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("GetTitlesInput", (Me.Url + "/Titles.aspx"), New Object() {type}, callback, asyncState) End Function _ Public Function EndGetTitlesInput(ByVal asyncResult As System.IAsyncResult) As GetTitlesInputMatches Return CType(Me.EndInvoke(asyncResult),GetTitlesInputMatches) End Function End Class Public Class GetTitlesInputMatches (.*?)- \$", IgnoreCase:=true, MaxRepeats:=100)> _ Public Titles() As String _ Public Prices() As String End Class