Winsock help:

[|2eM!x]

Okay, ive never used winsock before..But i have a tictactoe game and im wondering how i could make it mulitplayer. I have an array of 9 labels, id just like to know how i could send the data to the other player what label and what letter to select. I think i could get the rest from there.

Thanks

[dglienna]

Are they in an array? I'd just send (r,c,0) or (r,c,1). Have each side send over a WINNER message to the other side. Do you have Pino's Winsock sample?
Get it runing on your computer first and see how it works.

[|2eM!x]

no i dont have his example. can i have a link?

[dglienna]

I don't have a link, but I downloaded it the other day. Just run each program in its own IDE at the same time. Make sure you unzip it into two separate folders (make sure the Use Folder Names button is checked)

This is PINO's code.

[|2eM!x]

wait, so i have to run two different programs to get it to work? Theres no way that it can be both server and client(i guess?). Id really like to have one .exe instead of two..

[Inuyasha1782]

You could combine the server and client together, see it alot. Here is a file that has the client and server in one.

[|2eM!x]

not what i want..i want to be able to whoever connects first to be server, and who ever is connected to, to be the client (or something similar) i dont want the option to be server or client.

[Inuyasha1782]

Well, that was more of an example. You would have to have a way, of notifying the other program who is did what first. Without a connection, I dont know how to really do that. I think I might know one way, let me go find the source.

[|2eM!x]

i know it was an example, but i dont know how id do it so thats why im asking for help..

[Inuyasha1782]

What you might be able to do, is when the program loads, start listening for a connection. Then have a command button that connects via like a client. So it would work like this
1.Program starts, listening for connections
2. Who ever clicks on connect first, will start the connection
3. Display a messagebox saying "Connected" so both users know they are connected, and wont try to connect.

If you dont know how to listen, and request a connection, read Pinos tut.

[Inuyasha1782]

So it would look something like this:

Sub Form_Load()
Winsock.LocalPort = 15151
Winsock.Listen
End Sub
 
Private Sub cmdConnect_Click()
Winsock.RemoteHost = "127.0.0.1" 'Ip of the user
Winsock.RemotePort = 15151
Winsock.Connect 
End Sub
 
Private Sub winsock_connect()
MsgBox "We are connected"
End Sub

I think that might do what you wanted. Not really sure though.

[dglienna]

Open the client, and start it running,
Start the server in another instance of VB and start it running. Click the button.

Go back to the client and click connect. See connected message.

Now you are connected. Have both windows side by side.


You could have the same game be client or server, just the first one that hits listen is the server. There has to be a way for someone to tell the other to start listening for traffic. If you put a server in the middle, it can listen to more than one client and pass traffic back and forth.

[Inuyasha1782]

He said he only wanted one program that does both. Not one client and one server.

[|2eM!x]

well, i surprised myself here. Winsock is really damn easy!

Option Explicit
 
Private Sub Form_Load()
    With Winsock1
        .LocalPort = "12423"
        .RemoteHost = "127.0.0.1"
        .RemotePort = "12313"
        .Connect
    End With
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dataStr As String
        Winsock1.GetData dataStr
        MsgBox dataStr
End Sub
 
Private Sub Command1_Click()
    Winsock1.SendData Text1.Text
End Sub

Option Explicit
 
Private Sub Command1_Click()
    Winsock1.SendData Text1.Text
End Sub
 
Private Sub Form_Load()
    With Winsock1
        .LocalPort = "12313"
        .Listen
    End With
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dataStr As String
        Winsock1.GetData dataStr
        MsgBox dataStr
End Sub

Now, i think i might be able to figure out how to do the 2 in one, we shall see!

[Inuyasha1782]

Very interesting. Like to see what you get as a result from adding them together.

Yea its easy afterawhile. As dglienna knows, I spent like a week of hardwork, trying to figure out connecting -.^

[|2eM!x]

yeah, why doesnt this work:

Option Explicit
 
Private Sub Form_Load()
    With Winsock1
        .LocalPort = "12423"
        .Listen
    End With
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dataStr As String
        Winsock1.GetData dataStr
        MsgBox dataStr
End Sub
 
Private Sub Command1_Click()
[B]Winsock1.Connect "127.0.0.1", "12313"[/B]
    Winsock1.SendData Text1.Text
End Sub

[dglienna]

You might be able to have winsock1 and winsock2 running in the same program, where winsock1 is always the client and winsock2 is always the server. Only one wil work at a time, and talk to the opposite side of the conversation.

You need the Server to control who goes first, for instance. It doesn't have to actually go first, but the choice would be sent to it, that gets sent to either itself or the client. The "Your Move" would light up on the correct panel.

[Inuyasha1782]

Why are you attempting to connect again before you send your data? Its not required if you already have a running connection.

[|2eM!x]

okay would this work if i wasnt using loopback?

Option Explicit
 
Private Sub Form_Load()
    With Winsock1
        .LocalPort = "12313"
        .RemoteHost = "127.0.0.1"
        .RemotePort = "12423"
        .Listen
    End With
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dataStr As String
        Winsock1.GetData dataStr
        MsgBox dataStr
End Sub
 
Private Sub Command1_Click()
       With Winsock2
        .LocalPort = "12313"
        .RemoteHost = "127.0.0.1"
        .RemotePort = "12423"
        .Connect
        End With
    Winsock2.SendData Text1.Text
End Sub

Option Explicit
 
Private Sub Form_Load()
    With Winsock1
        .LocalPort = "12423"
        .RemoteHost = "127.0.0.1"
        .RemotePort = "12313"
        .Listen
    End With
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dataStr As String
        Winsock1.GetData dataStr
        MsgBox dataStr
End Sub
 
Private Sub Command1_Click()
    With Winsock2
        .LocalPort = "12423"
        .RemoteHost = "127.0.0.1"
        .RemotePort = "12313"
        .Connect
    End With
    Winsock2.SendData Text1.Text
End Sub

[Inuyasha1782]

Well from what I see, that should work.

[|2eM!x]

anyone else? i want to make sure i did it right, although i do think i did something wrong

[dglienna]

Best way to check it is just to run it locally. If it works, then you did it right, and it will work as long as it can pass the firewalls in the middle.

[|2eM!x]

i cant run it locally, because they are both connecting to 127.0.0.1 : /

[dglienna]

I'm telling you I ran it on my laptop using 127.0.0.1 for the client and the server.
I told you how to do that up near the top using two versions of the IDE or compile it and run two .exes

Try PINO's version so you're convinced that it works.

[|2eM!x]

okay, what happened was they were connecting on the same ports (i guess ) but anyways why wont this work?? me and a friend are trying this:

Option Explicit
 
Private Sub Form_Load()
    With Winsock1
        .LocalPort = "12313"
        .Listen
    End With
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dataStr As String
        Winsock1.GetData dataStr
        MsgBox dataStr
End Sub
 
Private Sub Command1_Click()
       With Winsock2
        .LocalPort = "12314"
        .RemoteHost = ip here
        .RemotePort = "12423"
        .Connect
        End With
    Winsock2.SendData Text1.Text
End Sub

[Pino]

I dont think your fully udnerstanding sockets,

Option Explicit
 
Private Sub Form_Load()
    With Winsock1
        .LocalPort = "12313"
        .Listen
    End With
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dataStr As String
        Winsock1.GetData dataStr
        MsgBox dataStr
End Sub
 
Private Sub Command1_Click()
       With Winsock2
      '  .LocalPort = "12314" * remove this *
        .RemoteHost = ip here
        .RemotePort = "12423"
        .Connect
        End With
    Winsock2.SendData Text1.Text
End Sub

If that doesnt work i'll make a simple example.

[Pino]

Ok check out the example,

It contains 3 parts,

System Messages - For information regarding wincok errors etc,

Incomming Data - Data recieved from another app

Sent Data - data we have sent to the other app.

To test this you will need to compile there is an exe with the source which has been compiled for you. Run it twice and click listen (first) on one and connect on another then send data between them, source is also included.

Pino