RSS: Site FeedSimple Client Server chat program using Winsock control
Level:
Many people want to be able to write a program that chats between two computers. This Visual Basic 6 source code sample shows exactly how to do that. It uses the Winsock control and demonstrates how you can use VB6 to create both the client and server. If you would like step by step directions in how to do this check out our tutorial: A Client server Chat program using Winsock control tutorial.
Download Visual Basic 6 Source Code Sample
- Printer Friendly
- 45600 reads
Comments
winsock control in vb 6.0
plz help me on how to use the winsock control in vb 6.0. our program is about the networking secuirty policy
adding password to winsock
hiii ....
i want to know ... that how can we add a password when a client wants a connection request to the server ?
Chat in Intranet
hay ur prog is wrkin ... but once the connection state is true it s wrking but once i close the program the con s not closed
Thank u!
about port nomber
i can not get port number , program throws error about port number . how i insert the port number plz rpl
dizi izle I saw an article
dizi izle I saw an article similar to this web pages. film izle I also share with you will find an. Thanks
Thanx
I'm a newbie but now I can make Client Server Program because of your tutorial. Thank you
Thanks
awesome.
thanks , thanks , thanks
in need help with a program that manages a rental business
Im supposed to make an application that will manage a car rental and ive made all the forms but when i run the program it gives me an error "Method or data member not found (Error 461)"
hares the code
'
"Private Sub Command1_Click()
Dim DatConn As New ADODB.Connection
Dim myRecordSet As New ADODB.Recordset
Const myconnect = "Provider = Microsoft.jet.OLEDB.4.0;Data Source=c:\Project.mdb"
Call DataConn.Open(Myconnector)
Call myRecordSet.Open("SELECT*from tblCars where [CarID]=" & (txtCarID) & "", DataConn, adOpenDynamic, adLockOptimistic)
If myRecordSet.EOF = True Then
msg "The table is empty"
End If
myRecordSet.MoveFirst
myRecordSet.EOF = False
If myRecordSet("CarID") = txtCarID Then
lblModel.Text = myRecordSet("Model")
lblRegistration.Text = myRecordSet("Registration")
lblMillage.Text = myRecordSet("IMillage")
Exit Sub
Else
myRecordSet.MoveNext
End If
If myRecordSet.EOF = True Then
MsgBox "The record does not exist"
Exit Sub
End If
Wend
End Sub"
"rivate Sub cmdAddcar_Click()
Dim CustConn As New ADODB.Connection
Dim CustDBase As New ADODB.Recordset
Const dataCon = "Provider=Microsoft.jet.oledb.4.0;data source=c:\Poject.mbd\Cars"
Call CustConn.Open(dataCon)
Call CustDBase.Open("tblCars", CustConn, adOpenDynamic, adLockOptimistic)
CustDBase.AddNew
CustDBase("CarID") = txtCarID.Text
CustDBase("CarModel") = txtModel.Text
CustDBase("Make") = txtmake.Text
CustDBase("CarRegistration") = txtRegistration.Text
CustDBase("Millage") = txtMillage.Text
CustDBase("Available") = 1
CustDBase.update
txtCarID.Text = ""
txtModel.Text = ""
txtRegistration.Text = ""
txtModel.Text = ""
txtID.SetFocus
End Sub
Plz help
i think your error is in
i think your error is in these lines
lblModel.Text = myRecordSet("Model")
lblRegistration.Text = myRecordSet("Registration")
lblMillage.Text = myRecordSet("IMillage")
if i'm not mistaken that is a label, labels do not have .text property. they have .caption property.
Every time you method or data member not found. always check the .property part.
I hope it helps. Good luck with the program
created a DC++ Client
I took this tool, and created a custom DC++ chat client for P2P file sharing and to control the hub settings with other windows etc. All possible because of your little program.
Thanks
dvd rom intilazing
oh can i make a app. that will read what on my disc in the dvd rom and copie it to hdd or save in temp for burning????? can anyone help me please email me back
comments
Eow...!, nice tutorial, this site is very helpful....!
wish that you have more tutorials.....!!!
keep up the good work!!!! thank you!!
hola chilangos
hola lokos ps namas pasaba a desirles k se les va kaer el kanton i k pasen a www/elguille.info esta chevere y hay mas codigos VB6 jaja arre
winsock with authentication
Hi,
Having a problem with this winsock thing.
The server need username and password authentication. How do i do that ?
Anyone?
Pls advice. Thank you.
Best Regards,
to creat voice chating program
i wanna creat my own voice chating program plz help me
\
Simple networking?
how can i run an application in a computer in a LAN?
please give me a simple example for just two computers.
One from which I will attempt to run notepad.exe in the other computer.
Just a button in a form that when clicked will run the application notepad.exe in the other computer
is it possible?
thanks in advance!
help pls...
do you have some invoice system? or program something like that... pls help me..
thankS!
this program is so good. im currently working a program that very similar to your's but ive encounterd some errors so ive decided to check on the net. im very lucky that ive found this site and your program.
thank you!
chat over internet
this works in a system.
what if i want it over lan or wan or internet what do i do
heheheh
salamat s gumawa nito!!!
thanks for the help,,it was very nice of you.. ^^
hahahahahah
SimpleClientServer Code
I have dowloaded the sample code frm here..I am encountering an Error Which say....
Error 2 Overload resolution failed because no accessible 'GetData' accepts this number of arguments.
Could anyone tel me wad does tis means..wad must i do inorder to gt tis working..Thank You
it's cuz u sent an empty
it's cuz u sent an empty text and the senddata could not send an empty text so u have to validate it xD
How do I do that?
???
Post new comment