'------------------------------------------------------------------------------ ' ' 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 newUserClass Inherits System.Web.Services.Protocols.SoapHttpClientProtocol ' Public Sub New() MyBase.New Me.Url = "http://www.gcrc.uic.edu/AGSM/components/newUser1.asmx" End Sub ' _ Public Function Add(ByVal a As Integer, ByVal b As Integer) As Integer Dim results() As Object = Me.Invoke("Add", New Object() {a, b}) Return CType(results(0),Integer) End Function ' Public Function BeginAdd(ByVal a As Integer, ByVal b As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("Add", New Object() {a, b}, callback, asyncState) End Function ' Public Function EndAdd(ByVal asyncResult As System.IAsyncResult) As Integer Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),Integer) End Function ' _ Public Function getUserInformation() As System.Data.DataSet Dim results() As Object = Me.Invoke("getUserInformation", New Object(-1) {}) Return CType(results(0),System.Data.DataSet) End Function ' Public Function BegingetUserInformation(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("getUserInformation", New Object(-1) {}, callback, asyncState) End Function ' Public Function EndgetUserInformation(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 MyInsertMethod() As Integer Dim results() As Object = Me.Invoke("MyInsertMethod", New Object(-1) {}) Return CType(results(0),Integer) End Function ' Public Function BeginMyInsertMethod(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("MyInsertMethod", New Object(-1) {}, callback, asyncState) End Function ' Public Function EndMyInsertMethod(ByVal asyncResult As System.IAsyncResult) As Integer Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),Integer) End Function End Class End Namespace