'------------------------------------------------------------------------------ ' ' 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. ' Namespace services _ Public Class SecureService Inherits System.Web.Services.Protocols.SoapHttpClientProtocol Public AuthHeaderValue As AuthHeader _ Public Sub New() MyBase.New Me.Url = "http://localhost/webservices/SecureService.asmx" End Sub _ Public Function Login(ByVal username As String, ByVal password As String) As ServiceTicket Dim results() As Object = Me.Invoke("Login", New Object() {username, password}) Return CType(results(0),ServiceTicket) End Function _ Public Function BeginLogin(ByVal username As String, ByVal password As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("Login", New Object() {username, password}, callback, asyncState) End Function _ Public Function EndLogin(ByVal asyncResult As System.IAsyncResult) As ServiceTicket Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),ServiceTicket) End Function _ Public Function GetLuckyNumber() As Integer Dim results() As Object = Me.Invoke("GetLuckyNumber", New Object(-1) {}) Return CType(results(0),Integer) End Function _ Public Function BeginGetLuckyNumber(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("GetLuckyNumber", New Object(-1) {}, callback, asyncState) End Function _ Public Function EndGetLuckyNumber(ByVal asyncResult As System.IAsyncResult) As Integer Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),Integer) End Function End Class _ Public Class AuthHeader Inherits SoapHeader Public SessionKey As String End Class _ Public Class ServiceTicket Public IsAuthenticated As Boolean Public SessionKey As String Public Expiration As Date End Class End Namespace