Navigation Menu

[buggs]

if i have to i will send you the code i already have so you can see if you can get it to work but its basic until i can get it to read the room until i place more programming in it

[buggs]

well the chat room uses HTML as a way to type what people say in the room but i cant get the window to show what people are saying in the chat room and this is part of the coding i have but i dunno how to do the rest to read it as the window is a webbrowser

Sub room_msg(A$)
1000 Dim Flood$, C$, NN$
1010 Rem record type 99 98
1020 Mod_Name$ = “Room_Msg”
1030 On Error GoTo Common_ErrorM
1040 If INRoom$ “Y” Then Exit Sub
1050 NN$ = Left$(A$, 24): A$ = Mid$(A$, 25)
1060 NN$ = Replace(NN$, Chr$(0), “”)
1070 If NN$ = “” Then NN$ = “”

‘ add code to process room message here

1100 Exit Sub
Common_ErrorM:
1120 ErrDescr$ = “Error ‘” & Err.Number & ” ” & Err.Description & “‘ occurred in ” & Mod_Name$ & ” at line ” & CStr(Erl) & “.”
1130 J = MsgBox(ErrDescr$, vbOK, “Master Error”)
1140 Resume Next
End Sub

and its an external html source

[Author]

Posts