Lets Make a local Chat :)

[anath3ma]

i will show you how to make a program to chating

we need visual basic 6

and mswinsck.ocx

First make a new project

Then add component mswinsck.ocx

and add it on form

now make 2 textbox,2 labels,3buttons(for now) look at image:

now lets write some codes

open command1 = connect button and write:

Winsock1.Close

Winsock1.RemoteHost = Text1.Text

Winsock1.RemotePort = Text2.Text

Winsock1.Connect

If Winsock1.RemoteHost = Empty Then Winsock1.Close: MsgBox "Add Host Or Ip", vbCritical, "Error"

If Winsock1.RemotePort = Empty Then Winsock1.Close: MsgBox "Add Por", vbCritical, "Error"

ok now lets write on command2 = dis button

winsock1.close

and on command3=Exit buttond jus type

end

After this lets add One more button

command5=LocalHost/Ip

in this button type

msgbox winsock1.LocalHostName & "@ " & winsock1.LocalIP

this is show what is the host and ip names

After this lets Make one command more

command6=Chat

now maybe its more complicated

dont write nothing in this command

add a second form in the same project i think u know how to do it

rename it as Chat or write in the main form form2.caption="Chat"

now lets go back to form1 and open the last button6

in this button type

Form2.show

ok now lets work on Form2

http://www.imageshack.gr/files/61i2k6ybq7cpdccjbq6a.jpg[/img]

now lets make one biGGG textBox

after thiss add 3 new Buttons like this:

http://www.imageshack.gr/files/dbtsmdmz508h3mjs5cpe.jpg[/img]

now open button1=send on form2!

write

Form1.Winsock1.SendData Text1

now open Button2=Clear text

and write

text1=clear

and at Button3=Exit

type

form2.hide

(OFC u can add multiline on text1 and scrollbars to make it looks better

like this :

http://www.imageshack.gr/files/sx1ziek6kg41kkvn995q.jpg[/img]

now we need to type in form2

Private Sub form1_winsock1_dataarrival()

Dim Othchat As String

form1.winsock1.getdata(Othchat)

text1=winsock1.remotehostname & " " & Othchat

End Sub

now i think we are ok with client...

lets make A server now :)

now make a new project with Server caption

add 3 buttons again for now

dont forget to add winsock osx again

anyway

type this in form

Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)

If winsock1.State <> winsock1Closed Then winsock1.Close

winsock1.Accept (requestID)

End Sub

 

button1=listen,button2=close,button3=exit

lets write on button1

setRemoteport=inputbox("Set Port:","")

winsock1.close

winsock1.localport =setRemoteport

winsock1.listen

 

for command2

winsock1.close

 

and command3

end

now lets make one more button

command4=ShowPort

msgbox winsock1.LocalPort,vbInformation,""

and add one more button like button5=Chat

command5

form2.show 'we need again one second Form'

Now Lets work on form 2 again

now add text box like the client and 3 buttons like the client

and dont forget to type again

private sub form1_winsock1_dataarrival()

dim inComeChat as string

form1.winsock1.getdata(inComeChat)

text1=winsock1.remotehostname & " " & inComeChat

Good Luck