[سعود]

هذا هو بحثت عنه بجهازي ووجدته
http://vb4arb.com/vb/uploaded/34_01377290150.zip

وهذا كلاس صفحة المحادثة

كود :

Partial Class chat
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("un") = "" Then
            Response.Redirect("~\mychat.aspx")
            Exit Sub
        End If
        If Not Me.IsPostBack Then
            Dim sName As String = Session("un")
            ' On Error Resume Next
            ' sName = Context.Items("UserName").ToString
            WebChat2.UserName = sName
            Me.Title = "مسجل باسم: " & Session("un")


        End If


    End Sub
    Protected Sub WebChat1_Chatter(ByRef ChatText As String) _
    Handles WebChat2.Chatter
        System.Diagnostics.Debug.WriteLine("Page detected chatter event from WebChat control")


        'The page will not be rendered
        'after this event since it's a callback
        'but ChatText will be displayed in the WebChat control.


        'So you can replace bad words...
        ChatText = ChatText.Replace("shit", "sh**")


        '...or spruce things up with emoticons
        ChatText = ChatText.Replace(":)", _
            "<img src='smiley.jpg' title=':)' />")


        ChatText = ChatText.Replace("entered", "دخل")
        ChatText = ChatText.Replace("exited", "خرج")


    End Sub
End Class