[VB6] - Multi-User Chat Example (Winsock)

[paki42o]

i want to know how can i save chat? i mean when ppl chat with tht program all gona be save when i admin login can view all chat wat ever thy chat in day user etc... if someone can help please share

[minidesigner]

if i'm reading what your asking correctly when you look at the original server console you see all the chat that there has been since you have been running it..... and you have the option i believe to save the chat to a file from the console if you want it to auto save the chat if i remember correctly you will have to program that yourself. i had to tweek the program myself to make the original work for me.

[paki42o]

i asked a friend same q he told me i have to make data base for save chat etc... so i have to know php code:-s
i got no idea about php lol so im not gonna coded:
thanks for reply

[minidesigner]

if i can find the code i did i will post it tomorrow

[M]

hijack?
I Just want to Ask a Question in this post[because most of those peoples come here! Know about Multi User Chatting Problems...! And U Say Why did u hijack...?
lol
Must of Guys post Screenshot! so is it problem?

[M]

i asked a friend same q he told me i have to make data base for save chat etc... so i have to know php code:-s
i got no idea about php lol so im not gonna coded:
thanks for reply

Why u use php?
U can store ur data in db with vb

Public dB As New ADODB.Connection

Sub OpenDB()
ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=mdbAccess.mdb;DefaultDir=" & App.Path & ";UID=;PWD="  ' mdbAccess is ur database name! i save mdbAccess.mdb in my Program path

dB.ConnectionString = ConnectionString
dB.ConnectionTimeout = 10
dB.Open
End Sub

and with this code[below] u can Save ur Chat Archives... in DB

Function AddMessageArchive(Username As String, Message As String) As Boolean
Dim rs As New ADODB.Recordset
rs.Open "Ranking", dB, adOpenKeyset, adLockOptimistic 'Ranking is ur table in db file
With rs
    .AddNew
    !Username = Username
    !Message = Message
    Err = 0
    .Update
    If Err <> 0 Then
        AddRankInfo = False
        Exit Function
    End If
End With
AddMessageArchive = True
End Function

I HOpe U Got What I Say:-s

[BPrashanthVB]

Yu could use OLEDB provider for speed while archiving messages.

[damselindistress]

Here i come.. New to vb6....
I used the pretty cool Digirev's App. Gonna need help to work on it for my Term Project
Digi's work was very much helpful...got the basic stuff..
Sweet proj

[Aaron02]

Digi

I'm trying to test your chat project (V 1 first file), but on my client-side pc it asked for the RICHTX32.OCX.
So I installed the file, and registered it using REGSVR32. My server side on a different pc operated perfectly.

The Client side still can't find the OCX, any suggestions?

[minidesigner]

copy from the server machine and place in the correct folder should work then

[minidesigner]

sorry i been away

[VB Client/Server]

Well here is a huge revamp from my previous version. Please let me know if you find any bugs or have any suggestions. Feedback is much appreciated!

If you are trying to use the e-mail feature you will need to edit the SendMail sub and enter your gmail user account information. The only thing that is not functional server side is the chatrooms feature that is still a work in progress. Ignore any foul language in the code it is mostly me talking to myself. The main server is online so feel free to connect if you have questions or want to talk.

Thanks!

I use some part of code from post 132...
My question is how to modify server side code to accept only 1 connection at time ?

So that next client will wait until first client disconnect's...