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

Step 5 Coding the command buttons

now it is time to write the code for the command buttons

lets start with the first one cmdHost

1. double click it, this will bring up the code window
2. it should look like this
Private Sub cmdHost_Click()

End Sub
3. enter this code

sckMain.LocalPort = txtPort.text
sckMain.listen

now what does that mean??

the first line makes the winsocks local port equal the number in the textbox (txtPort)

the second line tells the winsock to listen on that port for someone trying to connect

now close that and double click on cmdConnect

enter this code

sckMain.RemoteHost = txtIP.text
sckMain.RemotePort = txtPort.text
sckMain.Connect

the first two lines change the RemoteHost and the RemotePort of the winsock (sckMain) to the ip and port we want

the sckMain.Connect tells it to connect to someone listening on that port and ip

now for the close button

double click on cmdClose and type

sckMain.close
txtLog = txtLog.text & "Connection closed!" & vbCrlf

the sckMain.close tells the winsock to disconnect

the second line adds Connection closed to txtLog

double click on cmdSend and type

sckMain.senddata "[" & txtName.text & "]" & txtSend.text
txtLog = txtLog.text & "[" & txtName.text & "]" & txtSend.text & vbcrlf
txtSend.text = ""

the first two lines are wrong i have them right in the editor and it changes them when i save so look at the picture for the right code

first line sends the text in txtSend and your name in txtName
second line adds the message you sent and your name to txtLog
third line clears the text in txtSend

Comments

[MunRa]

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

Like chat aplication generally, example: Facebook chat.

Thanks

[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

[gurgle528]

Do the same for cmdSend:
Dim proCedure As String
sckMain.SendData("[" & txtName.Text & "]" & txtSend.Text)
proCedure = txtLog.Text & "[" & txtName.Text & "]" & txtSend.Text & vbCrLf
proCedure = txtLog.Text
txtSend.Text = ""

[gurgle528]

Something I hate about VB. If you get an error where it can't convert String to System.Controls.RichTextBox or something the do the following:
Dim proCedure As String
sckMain.Close()
proCedure = txtLog.Text & "Connection closed!" & vbCrLf
proCedure = txtLog.Text
2 additional lines of code doing the same thing that gets rid of an error.

[nishantmendh]

Whenever i click on  .exe file it is showing an error

[pdpantig]

Mr. twenglish1 i tried your code but not working.. how do i know my local port please help me when i connect it seems NOT RESPONDING thanks

[twenglish1]

try installing this:
http://support.microsoft.com/kb/290887

[pdpantig]

Mr. twenglish1 its working now in my computer but only in my computer i tried to use in the LAN but it gives me error i used our local ip address but not working please hellppppp

[twenglish1]

You don't use the local ip of the router you usethe static ip of each computer

[pee009]

Always have an error on this codes... somebody can help me?


Private Sub cmdSend_Click()

sckMain.SendData "[" & txtName.Text & "]" & txtSend.Text
txtLog = txtLog.Text & "[" & txtName.Text & "]" & txtSend.Text & vbCrLf
txtSend.Text = ""

End Sub

[twenglish1]

its not connecting to the other chat program

[youngprogrammer]

Can I change the second line in the cmd close to txtlog.text="Connection Closed"?

[twenglish1]

no you can't it won't work cause if you change it to txtlog.text="Connection Closed" then it will not keep everything else thats in the text box

[hyker69]

sir when i run the
program it says that it has a run time error and it requires an object how can i fix that?

[vinodcb]

sckMain.LocalPort = txtPort.text
 is error in my vb

[Ghezzo]

Could anyone help me? I get: operator '&' is not defined for types 'string' and 'system.windows.forms.textbox' With the send button.

[RoboticProgrammer]

add .text behind it

[yaj126]

thanks,i would start working on that but now i have a new problem,i have tried re reading your script and re scripting the entire thing, but i still have the same problem. when i try to host,i get: run time error:13. mismatch.why? can u help me!

[yaj126]

great tutorial,i have managed to make it work.could you tell me how to stop or replace these error popups when ever something has not been compleated or filled in?

[twenglish1]

i am not going to write code for you but i will tell you how to do it, bassically for every button you want to put in an if statement, and have it check if the required fields are entered and if they aren't terminate the sub

[blite777]

the code you gave us for Private Sub cmdSend_Click() ... wont work :( i copied ur code and the one u corrected and it workk.. i would really appreciate if u can plz help me :) thanks again ... i really love ur tutorial..its nice and clear..

[SRBAle]

I got it working tnx, can u tell me how to enhance it? Like how to add to press entere insted of clicking on send evrytime,and how to add scroll bars and things like such.

[khjui]

(Naturally:) You could just press the Send button once, and then just press enter to auto click the button....naturally....

[Poptrop99]

I copied what it said in the picture but it still wont work? HELP ME!!!

[SRBAle]

Whan i try to save it as exe. it seas compile error: Method or Date member not found. and it marks the "close" in the first line of
sckMain.close(this close)
txtLog = txtLog.text & "Connection closed!" & vbCrlf

what to do?
tnx