PDA

Click to See Complete Forum and Search --> : Internet Chat Room

Jon Corbett
Jan 30th, 2000, 07:06 AM
How would I make an internet chat room? I've seen that MS uses an OCX, how can i do that?
Thanks
privoli
Jan 30th, 2000, 11:31 AM
<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 :D6526FE0-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
-------------------
privoli@bigpond.com
http://users.bigpond.com/privoli
privoli
Jan 30th, 2000, 11:33 AM
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="clsid:D6526FE0-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
-------------------
privoli@bigpond.com
http://users.bigpond.com/privoli
ufjessey
Jan 30th, 2000, 12:21 PM
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