Results 1 to 4 of 4

Thread: Internet Chat Room

  1. Jan 30th, 2000, 08:06 AM #1
    Jon Corbett
    Jon Corbett is offline

    Thread Starter
    New Member
    Join Date
    Jan 1999
    Location
    Va. Beach, Va, USA
    Posts
    2

    Post

    How would I make an internet chat room? I've seen that MS uses an OCX, how can i do that?
    Thanks
    Reply With Quote Reply With Quote
  2. Jan 30th, 2000, 12:31 PM #2
    privoli
    privoli is offline
    Lively Member
    Join Date
    Nov 1999
    Location
    Melbourne, Victoria, Australia
    Posts
    126

    Post

    <script language="VBScript"></SCRIPT>

    <basefont face="Courier New">
    <center><font size=7>
    <b>Chat Page</b>

    </font><br><center>

    <form name=WEBChat>
    Chat NickName:<input name="NickName" value="" maxlength="32" size="25">
    <input type=Button value=" Join the chat " name="FluxBtn" onClick=Flux>
    <p>
    </form>
    </center><br>
    <OBJECT
    STANDBY="Downloading the Microsoft MSChat ActiveX Control"
    CODETYPE="application/x-oleobject"
    CLASSID="clsid 6526FE0-E651-11CF-99CB-00C04FD64497"
    CODEBASE="http://www.ms-normandy.com/chat/MSChatOCX.Cab#Version=4,71,108,0"
    WIDTH=95%
    HEIGHT=350
    ID=Chat>
    <PARAM NAME="UIOption" VALUE="4095">
    <PARAM NAME="Appearance" VALUE="5">
    <PARAM NAME="BorderStyle" VALUE="0">
    <PARAM NAME="BackColor" VALUE="13883354">
    </OBJECT>

    <script language="VBScript">
    <!--
    Dim szChannel

    SUB Flux
    Dim Form
    Set Form = Document.WEBChat
    If (Chat.State = 1) Then
    Chat.EnterRoom "mic:\\irc.chat.org\#channel", "", Form.NickName.Value, "ANON", 1, 1
    Else
    If (Chat.State = 2) Then
    Chat.CancelEntering
    Chat.ClearHistory
    Else
    If (Chat.State = 3) Then
    Chat.ExitRoom
    Chat.ClearHistory
    End If
    End If
    End If
    END SUB

    SUB Chat_OnStateChanged(ByVal NewState)
    If (NewState = 1) Then
    Document.WEBChat.FluxBtn.Value = " Join the chat "
    Chat.BackColor = 13883354
    Else
    If (NewState = 2) Then
    Document.WEBChat.FluxBtn.Value = "Cancel Entering"
    Chat.BackColor = 33023
    Else
    If (NewState = 3) Then
    Document.WEBChat.FluxBtn.Value = "Leave the chat"
    Chat.BackColor = 49152
    End If
    End If
    End If
    END SUB
    -->
    </script>
    </TD></TR></Table><P>
    <hr>
    <b>Instructions:</b> Enter your chat <b>NickName</b> then Click the <b>Join the Chat</b> button.
    <br>Enter your message text in the lower left box of the chat frame, then press <b>Return</b> to Chat!
    <br>
    <br>This applet requires <i>Microsoft Internet Explorer 3.0 or higher.</i>
    <br>

    </body>
    </html>



    ------------------
    Regards,

    Paul Rivoli
    -------------------
    [email protected]
    http://users.bigpond.com/privoli
    Reply With Quote Reply With Quote
  3. Jan 30th, 2000, 12:33 PM #3
    privoli
    privoli is offline
    Lively Member
    Join Date
    Nov 1999
    Location
    Melbourne, Victoria, Australia
    Posts
    126

    Post

    Sorry about that, forgot to remove the smiles...

    <html>
    <head>
    <title>IRC Chat</title>
    </head>

    <script language="VBScript"></SCRIPT>

    <basefont face="Courier New">
    <center><font size=7>
    <b>Chat Page</b>

    </font><br><center>

    <form name=WEBChat>
    Chat NickName:<input name="NickName" value="" maxlength="32" size="25">
    <input type=Button value=" Join the chat " name="FluxBtn" onClick=Flux>
    <p>
    </form>
    </center><br>
    <OBJECT
    STANDBY="Downloading the Microsoft MSChat ActiveX Control"
    CODETYPE="application/x-oleobject"
    CLASSID="clsid6526FE0-E651-11CF-99CB-00C04FD64497"
    CODEBASE="http://www.ms-normandy.com/chat/MSChatOCX.Cab#Version=4,71,108,0"
    WIDTH=95%
    HEIGHT=350
    ID=Chat>
    <PARAM NAME="UIOption" VALUE="4095">
    <PARAM NAME="Appearance" VALUE="5">
    <PARAM NAME="BorderStyle" VALUE="0">
    <PARAM NAME="BackColor" VALUE="13883354">
    </OBJECT>

    <script language="VBScript">
    <!--
    Dim szChannel

    SUB Flux
    Dim Form
    Set Form = Document.WEBChat
    If (Chat.State = 1) Then
    Chat.EnterRoom "mic:\\irc.chat.org\#channel", "", Form.NickName.Value, "ANON", 1, 1
    Else
    If (Chat.State = 2) Then
    Chat.CancelEntering
    Chat.ClearHistory
    Else
    If (Chat.State = 3) Then
    Chat.ExitRoom
    Chat.ClearHistory
    End If
    End If
    End If
    END SUB

    SUB Chat_OnStateChanged(ByVal NewState)
    If (NewState = 1) Then
    Document.WEBChat.FluxBtn.Value = " Join the chat "
    Chat.BackColor = 13883354
    Else
    If (NewState = 2) Then
    Document.WEBChat.FluxBtn.Value = "Cancel Entering"
    Chat.BackColor = 33023
    Else
    If (NewState = 3) Then
    Document.WEBChat.FluxBtn.Value = "Leave the chat"
    Chat.BackColor = 49152
    End If
    End If
    End If
    END SUB
    -->
    </script>
    </TD></TR></Table><P>
    <hr>
    <b>Instructions:</b> Enter your chat <b>NickName</b> then Click the <b>Join the Chat</b> button.
    <br>Enter your message text in the lower left box of the chat frame, then press <b>Return</b> to Chat!
    <br>
    <br>This applet requires <i>Microsoft Internet Explorer 3.0 or higher.</i>
    <br>

    </body>
    </html>



    ------------------
    Regards,

    Paul Rivoli
    -------------------
    [email protected]
    http://users.bigpond.com/privoli
    Reply With Quote Reply With Quote
  4. Jan 30th, 2000, 01:21 PM #4
    ufjessey
    ufjessey is offline
    New Member
    Join Date
    May 1999
    Posts
    11

    Post

    Dear,
    Nice to have such neat solution,
    but I got some problems.
    After resetting my browser security level
    to accept activeX install, and installing
    it, I got a page fault error in IE 5.0.

    Any other configuration is needed?
    Thanks.

    JC
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width