'------------------------------------------------------------------------------
'
' 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