'------------------------------------------------------------------------------ ' ' 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 gcrc ' _ Public Class newRegistrationClass Inherits System.Web.Services.Protocols.SoapHttpClientProtocol ' Public Sub New() MyBase.New Me.Url = "http://www.gcrc.uic.edu/education/insertEducationRegistration.asmx" End Sub ' _ Public Function addNewUser(ByVal Name As String) As Boolean Dim results() As Object = Me.Invoke("addNewUser", New Object() {Name}) Return CType(results(0),Boolean) End Function ' Public Function BeginaddNewUser(ByVal Name As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("addNewUser", New Object() {Name}, callback, asyncState) End Function ' Public Function EndaddNewUser(ByVal asyncResult As System.IAsyncResult) As Boolean Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),Boolean) End Function End Class End Namespace