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

[DigiRev]

I wrote this last night out of boredom and after reading a lot of posts about people wanting to make a basic multi-user chat room.

This is the most stripped-down code I could come up with that does things "correctly". For that reason, some of the code may seem more complex than it needs to be but I commented it pretty well.

I am going to write a tutorial to go along with it, as soon as I get free time.

One common mistake a lot of client/server programs make is they don't program according to the TCP (streaming) protocol. Sometimes "packets" get split up, truncated, sent together, etc. and this data arrival event is coded to expect that and handle it smoothly.

I set it up so you can add in your own commands easily to the Data Arrival event.

If you have any questions/comments/suggestions, post them here. I kept out most features like private messages, file transfers, web cams, etc. to keep things simple and straightforward, but if someone wants something added in here let me know.

[MrMakealotofsmoke]

did i make you want to start this?

BTW, thanks for helping me out

[DigiRev]

did i make you want to start this?

Yes, actually, your thread (and a few others) is what inspired me to write this.

BTW, thanks for helping me out

You're welcome.

[Debug.Assert]

This is a nice lil project.
Is there a way that the Server could remove a user from the server and prevent their return?
What are some safe (safe = not likely to be in use) ports that can be used other than your default "1234"?

Thanks for sharing this.

[Paul M]

Service Port
HTTP 80
FTP 20,21
Gopher 70
SMTP 25
POP3 110
Telnet 23
Finger 79
Local loops/callbacks 0

Here are some publicly acceptable ports for the corresponding commuincation types.

[DigiRev]

This is a nice lil project.
Is there a way that the Server could remove a user from the server and prevent their return?
What are some safe (safe = not likely to be in use) ports that can be used other than your default "1234"?

Thanks for sharing this.

Along with Hell-Lord's post, here's another list:
http://www.governmentsecurity.org/ar...ommonPorts.php

To remove a user from the server, do you mean to ban them? By IP? If you like, I can add that in there real quick.

[psychotomus]

how about allowing people to change the text colour? not how you have it now.

but if a user bolds there text, it will be bold on the other clients comps too. know what i'm saying? This is what I am having difficulty doing atm.

[DigiRev]

I'll add in text font/color/b/i/u, and IP banning. And I guess private messages while I'm at it.

[Debug.Assert]

To remove a user from the server, do you mean to ban them? By IP? If you like, I can add that in there real quick.

Yes, thats what I meant. To remove a person from the chat "room"

[DigiRev]

Yes, thats what I meant. To remove a person from the chat "room"

Adding in both a kick and ban feature.

[psychotomus]

Heres some more things you can add. invite only chats (must be in the chat room and invite someone to enter), password chats,and set a user limit on chats.

Allready have password chats in my messenger. working on invite only chats now. kinda like mIRC channel modes.

[DigiRev]

Thanks psycho.

I've decided since I'm adding in these other things I might as well make it multi-room also like mIRC. So next update will have:

• Private messages
• Font, color, bold/italic/underline, etc.
• Multiple rooms
• Invites to rooms
• Private and passworded rooms
• Other things like hyperlinks

Thanks for all the ideas, if anyone has anymore let me know.

[zynder]

Im waiting for it Digi.

[psychotomus]

if he don't updateit soon. i'll update his source =)

[DigiRev]

Sorry I've been busy with work and other projects but I've already almost finished the update (which is a pretty big update). It will be uploaded tomorrow.

[TheBigB]

Ever tried smileys?
The only way I got it to work once was with the copy-from-clipboard method to RTF-box.

[DigiRev]

Ever tried smileys?
The only way I got it to work once was with the copy-from-clipboard method to RTF-box.

You can insert them directly into the .TextRTF property but I prefer the clipboard method because the other one can be buggy from my experience. I've got so many other projects going on right now I don't know if I will get the smilies put in.

If you want smilies, then apparently you can ask psycho to put them in since he is planning on updating this code anyway.

[DigiRev]

Sorry for another post. I've decided to just start from scratch and keep this first one as a basic example. The one I'm working on now will have more features than what is listed, so I hope this will satisfy everyone. It will be up sometime tomorrow afternoon/evening.

[DigiRev]

Sorry it's taking so long. I've gotten a lot of requests from people to add in even more features.

So I'm working on file transfers, web cameras, whiteboard, and more. You can visit this program's new website:

http://www.dannydotguitar.com/VBChat/

The site is new but I will be updating it so check back.

[zynder]

I cant download your chat app on your website.

[DigiRev]

It's coming soon. I've been working on a website for someone and it's taking all my time, but it's paying good money.

So I haven't given up on it or anything.

[itzviper]

have you given up yet digirev? or you just been busy? haha, just want to see if this project is still active.

[werny]

I am having troubles, me and my friend are trying this, and it works when he hosts the server but when i host he cant connect, it tells him he timed out, I tried turning off my firewall and it still gives him the time our message, has this happened to anybody else?

[TheBigB]

you probably connect to the net with a router.
am I correct?

You'd need to set up an UPnP configuration.
Dunno how to do that, but solves problems for p2p applications.

[werny]

ok ill look into it, I have never heard of that before

[GDOG34]

Here is a problem i encountered.

On my computer i run the server appkication
2. on another computer i cannot connect to the ip. Why?
Do i have to use telnet or what?

[TheBigB]

what does the ip look like?
is it in the ranges:

10.0.0.0 - 10.255.255.255
172.16.0.0 - 172.31.255.255
192.168.0.0 - 192.168.255.255

btw, NAT traversal is the part I meant in the UPnP technologies

[werny]

192.168 range, class c i believe, and holy crap I am lost with all this upnp and NAT traversal crap, I cant find any download links or anything

[TheBigB]

an ip in the ranges I mentioned is a 'private' ip.
it's your computer's ip within a network.
your network connects to the internet through a router. (which in for example my case is the wireless router)
the router has the public ip; the ip that connects you to the world. connections go to the router, and the router determines the destination of the packets within that private network.

problem is; winsock doesn't know what computer it should target behind the public ip.

you probably have the router and you act as server within the private network.
your friend sends a packet to your router, but as there is no further destination info the router doesn't know what to do with the packet so it dumps it.

[GDOG34]

My ip looks like 192.168.1.72. Is there still a way where this can work? I never worked with winstock.

[itzviper]

you would need to setup port forwarding on your router. Log into your router, i'm not going to go into details on this, you can do a google search for the model number of your router and should find some kind of documentation. you need to forward the port that you're trying to connect on (example: port 2000) to your computers local IP (in your case 192.168.1.72). This lets the router know that if a connection comes in on 2000 that it should relay the connection to your IP. Without the port forward the router would deny the request.

[TheBigB]

http://portforward.com/english/route...outerindex.htm
of course an automatic alternative would be better for an application.

[GDOG34]

Woot i got it to work i had to alter the ports telling it which ones to use. I have a few question.

1. Is there a way to restreive the list of online users and put them in a listbox? This listbox differs from the one in the chat window.

2nd. Is there a way with this code where i can add a button and make a new chat window and be able to privite chat with a selected user?

Thx!

[psychotomus]

try changing the ip address to localhost. it will connect to yourself no matter what. i'm also about to release sim-chat as open source. link in sig =]

[GDOG34]

May i have an example?

[GDOG34]

I have a question i have this code and i and wondering if this can be inserted into the messenger above. There is a problem thought evertime it send the smile it will popup with your picture editor to show the picture. Can this be added to the code above to send smileys?

Private Sub Command1_Click()
'First, just add plain text:
rchText1.SelText = rchText1.SelText & "Guest: " & Text1 & vbCrLf
 
'Then change what needs to be changed to pictures:
RefreshPics
DoEvents
rchText1.SelStart = Len(rchText1.Text) 'Put the start at the end, thats where you want to add the next line
Text1 = ""
Call Text1.SetFocus
End Sub
 
Private Sub Form_Load()
rchText1.OLEObjects.Clear 'Clear the ole objects to prevent errors
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
DoEvents
rchText1.OLEObjects.Clear 'You must add this or the
                            'program will crash. This doesnt
                            'happen in Windows 2k
DoEvents
End Sub
 
Sub RefreshPics() 'This scans the text for :) and (l)'s to change
Dim lFoundPos As Long           'Position of first character
                                        'of match
Dim lFindLength As Long         'Length of string to find
 
Dim MakeSure As Boolean 'I have this to do the procedure twice, just to "make sure"
 
 
GoTo Skip:
Start:
MakeSure = True
Skip:
 
lFoundPos = rchText1.Find(":)", 0, , rtfNoHighlight)
        While lFoundPos > 0
          rchText1.SelStart = lFoundPos
          'The SelLength property is set to 0 as
          'soon as you change SelStart
          rchText1.SelLength = 2
          rchText1.SelText = ""
          rchText1.OLEObjects.Add , , App.Path & "\smile.bmp" 'Add the picture after it has deleted the string
          DoEvents
          'Attempt to find the next match
          lFoundPos = rchText1.Find(sFindString, lFoundPos + 2, , rtfNoHighlight)
Wend
If MakeSure = False Then GoTo Start
 
' I guess by changing or adding a few lines, you
'   can make it add more pictures with different strings.
 
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub

[GDOG34]

No help? The code above works but i need help inserting it into the project. Can someone alter this code where it can send images?

Thx

[Justin M]

This is better than the chat i have in my program already, may I use this instead???

[DigiRev]

Hey guys...

Wow, I haven't been in here in forever. I've been so busy trying to land a good job, build up a portfolio, do some freelance webdesigning for money, etc., that I haven't had much time at all to work on anything in VB.

Anyway, that time is coming to an end and I will be able to get back to work on VBChat, the open source VB instant messenger.

I'll let you know as it progresses.

[Justin M]

lol I have a certian IP adress, but while I can connect to the chat thing, no one else can??????????

the port thing is set to port 1234, should that be changed?