Re: cant get this working -- Operator console does not connect

  •  04-23-2010, 12:34 AM

    Re: cant get this working -- Operator console does not connect

    Hi xaanix,
     
    Try
     
    1. <%@ Application Language="VB" %>   
    2. <%@ Import Namespace="CuteChat" %>   
    3.   
    4. <script RunAt="server">   
    5.     Private Sub Application_Start(ByVal sender As ObjectByVal e As EventArgs)   
    6.         ChatProvider.Instance = New AspNetChatProvider()   
    7.         ChatSystem.Start(New AppSystem())   
    8.     End Sub  
    9.        
    10.     Public Class AspNetChatProvider   
    11.         Inherits ChatProvider   
    12.        
    13.         Public Overloads Overrides Function GetLogonIdentity() As AppChatIdentity   
    14.             Dim context As HttpContext = HttpContext.Current   
    15.             'method ToUserId is necessaries   
    16.             Dim userid As String = ToUserId("orlandoj")   
    17.             Return New AppChatIdentity("orlandoj"False, userid, context.Request.UserHostAddress)   
    18.         End Function  
    19.        
    20.         Public Overloads Overrides Function FindUserLoginName(ByVal nickName As StringAs String  
    21.             Return "orlandoj"  
    22.         End Function  
    23.            
    24.         Public Overloads Overrides Function GetUserInfo(ByVal loginName As StringByRef nickName As StringByRef isAdmin As BooleanAs Boolean  
    25.             loginName = "orlandoj"  
    26.             nickName = "orlandoj"  
    27.             isAdmin = True  
    28.             Return True  
    29.         End Function  
    30.        
    31.         Public Overloads Overrides Function ValidateUser(ByVal username As StringByVal password As StringAs Boolean  
    32.             Return True  
    33.         End Function  
    34.              
    35.            
    36.     End Class  
    37.   
    38.           
    39. </script>  
    Regards,
     
    ken
View Complete Thread