Winsock Chat Won't Work

Ok I made a winsock chat and it just wont connect, here is the code :

Server :

VB Code:

Private Sub sckMain_ConnectionRequest(ByVal requestID As Long)
If sckMain.State <> sckClosed Then sckMain.Close
sckMain.Accept requestID 'Accept incoming Connection
End Sub
 
Private Sub sckMain_DataArrival(ByVal bytesTotal As Long)
 'Get Data from Buffer and store it in GDATA
sckMain.GetData GDATA
txtInfo.Text = GDATA
End Sub

Client :

VB Code:

Private Sub cmdStart_Click()
sckMain.RemotePort = txtPort.Text 'Set Port
sckMain.RemoteHost = txtIP.Text 'Set Remote IP
sckMain.Connect RemoteHost, RemotePort
End Sub
 
Private Sub sckMain_ConnectionRequest(ByVal requestID As Long)
If sckMain.State <> sckClosed Then sckMain.Close
sckMain.Accept requestID 'Accept incoming Connections
End Sub
 
Private Sub sckMain_DataArrival(ByVal bytesTotal As Long)
sckMain.GetData GDATA
txtInfo.Text = GDATA
End Sub

It's not as simple as that...

for the client you don't need this code, only for the server

VB Code:

Private Sub sckMain_ConnectionRequest(ByVal requestID As Long)
If sckMain.State <> sckClosed Then sckMain.Close
sckMain.Accept requestID 'Accept incoming Connections
End Sub

Where you set the server side to Listen on the port ?

I forgot to add sry :

VB Code:

sckMain.LocalPort = txtPort.Text ' Set Port to listen on
sckMain.Listen ' Start Listening

Is it wrong only to set remoteport on client and localport on server?

No, that's the way it should be
You set local port for server, and remote port for client...

What do you use for remotehost at client side ?

Well to set the Remotehost I have the client go to my website, download the IP and connect with that.

Ow, so your not testing both (client & server) on your own computer...

In that case, a firewall is in the way for sure if it does not connect...

I dont have a firewall. And even when I try and run Client and Server on my computer it doesnt work. I can send u the whole code if you want.

Sure

Do you have msn/aim/yim/icq?

Check your PM (Private message)

Error


Add failed. Duplicate key value supplied.

Hi, I took a look at your code, but it's kinda messy, and I found it easier to just write a simple client/server chat program.

Right now with the default values, you can test it on your own computer, when you want to test over the internet, just change the "Remote Host" to the IP or DNS name of the server computer in the client...

Thanks for that. It works when I run just on my computer but, if i try for the client my ip that I got fromhttp://checkip.dyndns.org/ then it doesnt work ?! And how do I use the DNS from
www.no-ip.com?

The connection process is a bit more complicated than one would think. You cannot just go Winsock1.Connect, and have it be able to connect to the client. You also have to go into the server's source code, have the server listen on a specific port in the Form_Load event, go into the server's Winsock1_ConnectionRequest event, and have it accept the connection by going like this:

VB Code:

Private Sub Winsock1_ConnectionRequest
    Winsock1.Close
    Winsock1.Accept RequestID
    'Then put how you want the server to react when the connection is established here.
End Sub

I have a code sample that illustrates this, however it only works on the client end right now. You'll be able to type from the client to the server, but not vice versa. I haven't gotten that far along yet. However, the idea is the same, only you have the server do it automatically when the connection is received.

I am also doing things a bit differently than you are. Rather than writing two separate programs - one for the client, and one for the server, I'm incorporating both ends into a single application. Don't worry if the code looks a bit too complex for you, just drop a message in here, and I'll help you out.

hothead, take a look at the code I attached only 2 posts before your post... it actually works !

You mean my version doesn't work?

That's odd. It worked fine on my entire network, except it seems to favor using the IP of my network adapters, even on my host. It should be using the IP of my main modem on my host.

both ways, i shoud've added...

Oh, my apologies. I thought you were posting it because you had problems with it.

Well can you explain how to use the no-ip DNS? And explain why even when I put in my IP and run both on this computer it doesnt work, but if i run it with 127.0.0.1 it does?

I don't have, nor do I know how to use, a no-ip DNS, so I can't give you any helpful info on that.

As for the IP issue, I have no idea why it won't work for you. But, since 127.0.0.1 is a relocator address, I would figure that it only works on networks right now.

Yeah it's wierd. Could it be because I use a hub? Or does that have nothing to do with it?

Can you tell me exactly how your network is comfigured ?

And... IP 127.0.0.1 always points to the current computer. That's the best way to test a server/client app to see if it connects, if it does not connect with other IP's it means that there is a network problem, not server/client program problem.

If you have a network, then you can test the client/server by putting them in the same network also. For example if the ip on the server computer is 192.168.1.1 and one of the clients computers is 192.168.1.2 then put the server application on one of them, and client app on the other, and it should work because there is no firewall/router in the way.

And the no-ip, first of all you have to install the no-ip program on the server computer, the one connected directly to the internet, and from there, you can route a specific port to the client computer. Your DNS name is made up like this you_user_name.something.com/net, the something.com/net depends on what you choose when you set up the program.

The DNS you said didnt work, I tried evolution-messenger.serveftp.com/net and it didnt work. :S And the way I have it setup is that the ADSL box goes to the hub, then the hub goes to my laptop and the desktop. Could there be some control setup in the hub?

This is how you should have the network configured with a HUB
http://www.vbforums.com/attachment.p...postid=1637570

I have that exactly except for the server computer.

Look at the FLOW...

If you install the no-ip DNS on the server computer, how do you tell it on what computer the port should go to ?

If you have it the way it's there, you can tell on the server computer where the port pints to (to what computer to go)

The way you have it now, both computers are clients, you have no server, actually, the ADSL is the server....
If you have a way to tell the ADSL, what ports go where, then do that... because the way you have it, the ADSL acts as a server...

PS:
THAT'S the reason why none of the DNS program work... it's because of the way you set up your network, if you set it you the way I have it in that picture, you will see that ALL (or most at least, depends if configured right) the DNS programs will work....

Well I can use what I have there now where I get my IP from that site. But why cant anyone connect to me?

Tried pinging? It may be a network problem. Is the hub the basic kind? Or the type configurable for VLANs, port grouping, etc?

Im pretty sure the hub is the basic kind but how can I test that. And how can I ping it? Just make Winsock1.Remotehost all IP's annd make all computers listen?

P lease
D o
N ot
T ake
S usan's
P anty
A way

P hysical Layer
D ata Access Layer
N etwork Layer
T ransport Layer
S ession Layer
P resentation Layer
A pplication Layer

Ping tests if the Data Access Layer at both ends (Physical layer implied, unless your willing to do a physical check of the cables) are working. If the ping is successful then you move up, if not then check the LAN configurations of the PCs at both ends. Network layer has to do with the settings of the network, eg. blocked IP addresses, VLANS, etc.

Test with the ping first if the hosts are reachable. You might be looking for problems at the wrong layer if the above suggestions haven't worked.

Type ping/? at the command prompt.

Thats a little over my head sry, could you explain exactly what I should do for each step? For instance how do I check the LAN settings on each computer?

Type ping/? to see the info on how o use ping. You'll have to open a command prompt window.

Essentially it's ping <ip address>

Do a local ping first: Ping 127.0.0.1

If that's successful then ping the remote hosts.

If the ping is successful, then the remote host is reachable, the problem lies somewhere else.

If the ping times out or is unsuccessful then better check the data access and physical layers.

- Physical layer, make sure all the wires are connected properly, no breaks, and that the wires are ok.

- Data access, check the LAN settings of the host computers. Workgroup, ip address, subnet mask, etc.

Ok, all conenctions are good, and i can see the subnet mask etc. should i ping the ip i get from the site too?

And when I pinged one of my friends the connection timed out...

Check that both of you have the same protocols installed, client installed, etc (local connection properties).

When everything works ok at the data access level, then start checking the ADSL or network layer settings, eg; access lists, port aggregation and or blocking, VLANS, router config etc whichever is applicable. Consult with the IT personnel in your company.

Im still in high school XD. And how do i check the hub settings?

Quote:

---

Originally posted by CVMichael
Hi, I took a look at your code, but it's kinda messy, and I found it easier to just write a simple client/server chat program.

Right now with the default values, you can test it on your own computer, when you want to test over the internet, just change the "Remote Host" to the IP or DNS name of the server computer in the client...

---

Nice...

I've been looking at this as well. However, I had some questions...Is it possible to get a listing of user names in a list box of all users connected to the server socket? Kind of like "Users Logged On" ?

Also what about replacing :-) with smilies in the lisbox ?

Jon

Quote:

---

Originally posted by Steve_F
Im still in high school XD. And how do i check the hub settings?

---

Regarding your problem...

Do you have a router? Check your ports and make sure you forward the correct ports from your routers setup page.

Jon

Quote:

---

Do you have a router? Check your ports and make sure you forward the correct ports from your routers setup page.

---

This is the problem. I am almost 100% sure its just a hub, and I dont know how to check the ports etc.

I'm pretty sure myself because I have had the same issues in the past and opening up specific ports was the resolution.

You don't know whether its a router or a hub ?

Do you share the net with more than one pc? If so its prolly a router...gimme specifics on it..model etc..

jon

Yes, my ADSL box goes to the hub/router, then that splits to my laptop and the desktop. The information for it is :

Micronet SP250B 10BASE-T EtherHub

Guess that means its jsut a hub? Silly me lol.

Quote:

---

Originally posted by jhermiz
Nice...

I've been looking at this as well. However, I had some questions...Is it possible to get a listing of user names in a list box of all users connected to the server socket? Kind of like "Users Logged On" ?

Also what about replacing :-) with smilies in the lisbox ?

Jon

---

Yes, it is possible to list the users... I'll change the program to do that and i'll re-upload it when I'm done.
But I can't do the smilies picture thing, don't know how to do it, maybe by using a rich text box, but don't have much experience using it...

Here it is, now the server supports multiple connections, up to 32768 (the max for integer) clients if i'm not mistaken...
It does not check for duplicate user names. That can be changed easily, but not me... i've done enough, don't wanna waste my time on this...

cool man,keep up the good work!

You just need to put the picture (smily face) you want into the clipboard, then paste it into a richtextbox..

VB Code:

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_PASTE = &H302
 
ClipBoard.SetData Picture.Picture
SendMessage RichTextBox.hWnd, WM_PASTE, 10, 10

Phreak

Quote:

---

Originally posted by «°°phReAk°°»
You just need to put the picture (smily face) you want into the clipboard, then paste it into a richtextbox..

VB Code:

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_PASTE = &H302
 
ClipBoard.SetData Picture.Picture
SendMessage RichTextBox.hWnd, WM_PASTE, 10, 10

Phreak

---

Hmm...
picture.picture is what? A picture control??? I cannot specify a path can I ?

Jon

Quote:

---

Originally posted by «°°phReAk°°»
You just need to put the picture (smily face) you want into the clipboard, then paste it into a richtextbox..

VB Code:

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_PASTE = &H302
 
ClipBoard.SetData Picture.Picture
SendMessage RichTextBox.hWnd, WM_PASTE, 10, 10

Phreak

---

I put this in a form:

VB Code:

Option Explicit
Const WM_PASTE = &H302
 
Private Sub Form_Load()
Clipboard.SetData Picture1.Picture
SendMessage RichTextBox1.hWnd, WM_PASTE, 10, 10
End Sub

And inside a module I did:

VB Code:

Option Explicit
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

I placed a PictureBox (Picture1) on the form with a picture on it...
the code doesnt do anything...it does not paste that picture into the rich text box.

Jon

Can you pliz e-mail your code and Design coz its seems as if this is what i'm looking for.