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

[othmanmohammed]

i can't download the tut pdf!!

[Corliansa]

there is this word in front = "Run-Time Error '40006';

[Corliansa]

I can't when i click "Send" button it give this message = "Wrong Protocol Or Connection State For The Requested Transaction Or Request" can you fix it?

[markjeggar]

A simple VB.NET chat program with source code

http://vb.net-informations.com/communications/vb.net_chat_server_program.htm

jeggr.

[kumali]

is it working with at least 3 computers?

[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)

[sathiprady]

how is it possible can you explain

[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

[MunRa]

How to make the message sent to ListBox if use ENTER BUTTON on Keyboard?

Like chat aplication generally, example: Facebook chat.

Thanks

[pradysathi]

Hai I tried to connect the chat(program which is developed in vb 6) with another system on the LAN. i am finding it hard to do so.kindly help me.

[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??