'------------------------------------------------------------------------------ ' ' 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. ' '------------------------------------------------------------------------------ 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 ' 'Saturn Web Development Tool ' Namespace ect ' _ Public Class changeUserInfoClass Inherits System.Web.Services.Protocols.SoapHttpClientProtocol ' Public Sub New() MyBase.New Me.Url = "http://192.168.1.5/agsm/profile/changeUserinfo.asmx" End Sub ' _ Public Function infoRetrieval(ByVal loginID As String) As System.Data.DataSet Dim results() As Object = Me.Invoke("infoRetrieval", New Object() {loginID}) Return CType(results(0),System.Data.DataSet) End Function ' Public Function BegininfoRetrieval(ByVal loginID As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("infoRetrieval", New Object() {loginID}, callback, asyncState) End Function ' Public Function EndinfoRetrieval(ByVal asyncResult As System.IAsyncResult) As System.Data.DataSet Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),System.Data.DataSet) End Function ' _ Public Function infoUpdate(ByVal password As String, ByVal address As String, ByVal city As String, ByVal state As String, ByVal zip As String, ByVal email As String, ByVal homePhone As String, ByVal workPhone As String, ByVal cellPhone As String, ByVal fax As String, ByVal loginID As String) As Object Dim results() As Object = Me.Invoke("infoUpdate", New Object() {password, address, city, state, zip, email, homePhone, workPhone, cellPhone, fax, loginID}) Return CType(results(0),Object) End Function ' Public Function BegininfoUpdate(ByVal password As String, ByVal address As String, ByVal city As String, ByVal state As String, ByVal zip As String, ByVal email As String, ByVal homePhone As String, ByVal workPhone As String, ByVal cellPhone As String, ByVal fax As String, ByVal loginID As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("infoUpdate", New Object() {password, address, city, state, zip, email, homePhone, workPhone, cellPhone, fax, loginID}, callback, asyncState) End Function ' Public Function EndinfoUpdate(ByVal asyncResult As System.IAsyncResult) As Object Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),Object) End Function End Class End Namespace