'------------------------------------------------------------------------------ ' ' 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 cric ' _ Public Class NewUserClass Inherits System.Web.Services.Protocols.SoapHttpClientProtocol ' Public Sub New() MyBase.New Me.Url = "http://128.248.192.168/cric/newUser/newUser.asmx" End Sub ' _ Public Function addNewUser(ByVal lastName As String, ByVal firstName As String, ByVal loginID As String, ByVal email As String, ByVal password As String, ByVal gender As String, ByVal address As String, ByVal state As String, ByVal city As String, ByVal zip As String) As String Dim results() As Object = Me.Invoke("addNewUser", New Object() {lastName, firstName, loginID, email, password, gender, address, state, city, zip}) Return CType(results(0),String) End Function ' Public Function BeginaddNewUser(ByVal lastName As String, ByVal firstName As String, ByVal loginID As String, ByVal email As String, ByVal password As String, ByVal gender As String, ByVal address As String, ByVal state As String, ByVal city As String, ByVal zip As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("addNewUser", New Object() {lastName, firstName, loginID, email, password, gender, address, state, city, zip}, callback, asyncState) End Function ' Public Function EndaddNewUser(ByVal asyncResult As System.IAsyncResult) As String Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),String) End Function End Class End Namespace