How to make a simple chat program in visual basic using the Microsoft Winsock Control

In this instuctable i will show you how to make a simple chat program in visual basic. i will go over what all the code does so you will be learning as you make it, and at the end i will show you how to use it.

Step 1 Overview

This program will let you exchange messages between two people on your same network. It may work if your not on the same network but i can't test it now.

You should have Microsoft Visual Basic 6.0, that is what i am using.
Basic programing knowledge is recommended

Lets get started!!!

open visual basic and create a Standard EXE

Comments

[Hendro_Prayogo]

Sir ,
Error "40020" how come ?"
plese reply ..
:D

[hyker69]

mr twenglish when i run the program RUN TIME ERROR Occurs and says it Requires an Object how can i fix that?..pls reply until tommorow because im rushing our project tnx..pls teach me how to fix that problem..tnx again..

[ark_anghel07]

Successfull.. tnx

[twenglish1]

you need to make sure you renamed all the objects correctly

[embivert]

Hi,
I'm paras. I've never tried to run the above program but the way of describing the example is awesome.

[Mochamaddhany]

I have run-time error "40020" invalid operation at current state

[mhimebaugh]

Operator "&" is not defined for types "String" and "System.Windows.Forms.Textbox"
This message will appear when entering the code for cmdSend. This is the exact code I typed in
Private Sub cmdSend_Click()
sckMain.SendData("[" & txtName.Text & "]" & txtSend.Text)
txtLog = txtLog.Text & "[" & txtName & "]" & txtSend.Text & vbCrLf
txtSend.Text = ""
End Sub

[mhimebaugh]

Wait Nevermind i used a diffrent code it works now :P

[2?@8A:5]

is it working in WAN i mean like skype or MSN?

[twenglish1]

i tried to figure out how to use this over WAN but i couldn't figure it out

[msörhäll]

I need help.
EVERYTHING is working fine, but I want it so when you're active in the txtSend window, and press Enter/Return, it's the same as clicking Send.

So, when I click enter, it will send the message I've typed in the txtSend box.

Thanks!

[jormsbee]

im on vista so i couldn't get visual basics 6 to work

[jormsbee]

im on vista so i couldn't get visual basics 6 to work

[jormsbee]

does anyone know about visual basics 2010? winsock ?

[lshoko]

when l run my program it says object missing pliz help

[ctaniel]

same object are missing in you program, look up all program and make auto correct

[twenglish1]

When does that occur? It means that you didn't rename one of the controls.

[anthonyyy0]

how do i add winsock to visual basic 2010?

[nutsandbolts_64]

You could try using VPN to test out the "not in the same network" bit.

[jeff032690]

i have an error...kindly please help me..
Argument not optional

Private Sub CMDSEND_Click()
Me.SCKMAIN.SendData = "(" & Me.TXTNAME.Text & ")" & Me.TXTSEND.Text

[twenglish1]

are you using visual basic 6.0?

[jeff032690]

yes..

[twenglish1]

i don't see anything wrong with your code

[jeff032690]

then what should i do..?

[justin.samoisette]

i tried adding Microsoft Winsock but it wasn't in the list. what do i do??

[jflores-3]

find it fin and find until you find it

[de7ox]

Hi, i am coding in VB2008, it worked so far but this part doesn't work @ all for me :

sckMain.state <> sckClose

---

sckMain.accept requestid

---

Please e-mail me with a solution asap as i really like this proggy u made!
[e-mail]
Thanks!

[jflores-3]

I created a chat program without winsock and its works

[jflores-3]

the correct code is:If sckMain.CtlState <> 0 Then

sckMain.Accept(e.requestID)

[twenglish1]

How did you do it?

[gurgle528]

Dim proCedure As String
sckMain.Close()
sckMain.Accept(e.requestID)
sckMain.Accept(e.requestID)
proCedure = txtLog.Text & "Connected to: " & sckMain.RemoteHostIP & vbCrLf
proCedure = txtLog.Text
you will need to fix the lines, but this is what I have.

[RoboticProgrammer]

Winsock1.Close() Winsock1.Accept(e.requestID)

[twenglish1]

i don't know how to get this program to work with VB2008 you need to make changes to the code, sorry

[chvkaushik]

i am new to this field so please help me out unable to understand

[twenglish1]

Can you be a little more specific? what do you need help with?

[kevin-a101]

PS...im using Visual basic 2008 or 2005...ones at school ones at home (2008).. if u can give me a link to download vb 6.0 i would gladly install that if it helps

[twenglish1]

ok you can't use 2008 or 2005 you need 6.0 and i can't give you a link to download it cause you need to buy it(there are sites where you can download it but its illegal). and you can you 2005 and 2008 i think but i don't know how

[kevin-a101]

ok i have no problem getting it im buying it i should have it in a little but..like i said im probably gonna need you to teach me some stuff im new with connecting the program to servers

[twenglish1]

ok no problem i'll help you. and this program acts as its own server. like one you click host, and it will become the server. and on the other one you click connect and it connects to the server if you entered the ip and port that the server is on

[kevin-a101]

ok still downloading but as u can see im monitering posts