reference.vb

一个管理系统

'------------------------------------------------------------------------------
' <autogenerated>
'     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.
' </autogenerated>
'------------------------------------------------------------------------------

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

'
'This source code was auto-generated by Microsoft.VSDesigner, Version 1.0.3705.288.
'
Namespace AuthWS
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="AuthServiceSoap", [Namespace]:="http://tempuri.org/")>  _
    Public Class AuthService
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Dim urlSetting As String = System.Configuration.ConfigurationSettings.AppSettings("TaskVision.AuthWS.AuthService")
            If (Not (urlSetting) Is Nothing) Then
                Me.Url = String.Concat(urlSetting, "")
            Else
                Me.Url = "http://localhost/taskvisionws/authservice.asmx"
            End If
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/GetAuthorizationTicket", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetAuthorizationTicket(ByVal userName As String, ByVal password As String) As String
            Dim results() As Object = Me.Invoke("GetAuthorizationTicket", New Object() {userName, password})
            Return CType(results(0),String)
        End Function
        
        '<remarks/>
        Public Function BeginGetAuthorizationTicket(ByVal userName As String, ByVal password As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetAuthorizationTicket", New Object() {userName, password}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndGetAuthorizationTicket(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),String)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/GetUserInfo", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetUserInfo(ByVal ticket As String) As UserInformation
            Dim results() As Object = Me.Invoke("GetUserInfo", New Object() {ticket})
            Return CType(results(0),UserInformation)
        End Function
        
        '<remarks/>
        Public Function BeginGetUserInfo(ByVal ticket As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetUserInfo", New Object() {ticket}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndGetUserInfo(ByVal asyncResult As System.IAsyncResult) As UserInformation
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),UserInformation)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/InsertUser", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function InsertUser(ByVal ticket As String, ByVal userInfo As UserInformation) As Integer
            Dim results() As Object = Me.Invoke("InsertUser", New Object() {ticket, userInfo})
            Return CType(results(0),Integer)
        End Function
        
        '<remarks/>
        Public Function BeginInsertUser(ByVal ticket As String, ByVal userInfo As UserInformation, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("InsertUser", New Object() {ticket, userInfo}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndInsertUser(ByVal asyncResult As System.IAsyncResult) As Integer
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Integer)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/UpdateUser", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function UpdateUser(ByVal ticket As String, ByVal userInfo As UserInformation) As UserInformation
            Dim results() As Object = Me.Invoke("UpdateUser", New Object() {ticket, userInfo})
            Return CType(results(0),UserInformation)
        End Function
        
        '<remarks/>
        Public Function BeginUpdateUser(ByVal ticket As String, ByVal userInfo As UserInformation, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("UpdateUser", New Object() {ticket, userInfo}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndUpdateUser(ByVal asyncResult As System.IAsyncResult) As UserInformation
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),UserInformation)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/ChangePassword", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function ChangePassword(ByVal ticket As String, ByVal userInfo As UserInformation) As UserInformation
            Dim results() As Object = Me.Invoke("ChangePassword", New Object() {ticket, userInfo})
            Return CType(results(0),UserInformation)
        End Function
        
        '<remarks/>
        Public Function BeginChangePassword(ByVal ticket As String, ByVal userInfo As UserInformation, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("ChangePassword", New Object() {ticket, userInfo}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndChangePassword(ByVal asyncResult As System.IAsyncResult) As UserInformation
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),UserInformation)
        End Function
    End Class
    
    '<remarks/>
    <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://tempuri.org/")>  _
    Public Class UserInformation
        
        '<remarks/>
        Public UserID As Integer
        
        '<remarks/>
        Public UserName As String
        
        '<remarks/>
        Public UserPassword As String
        
        '<remarks/>
        Public UserFullName As String
        
        '<remarks/>
        Public UserEmail As String
        
        '<remarks/>
        Public IsAdministrator As Boolean
        
        '<remarks/>
        Public IsAccountLocked As Boolean
    End Class
End Namespace