Client-Server Where is the error ?

[lifesux]

Hi guys again I wrote a script to learn how tou use tcp...

It works good on my computer. But it doesnt work other computers. Port 33891 is open. Tested.

Client:

#include <GUIConstants.au3>
$ServerIP = @IPAddress1
$Port = 33891
TCPStartup()
$ConnectedSocket = TCPConnect($ServerIP, $Port)
If @error Then
        MsgBox(4112, "error", "error" & @error)
Else
        While 1
                $Data = InputBox("command", "write command")
                If @error or $Data = "" Then ExitLoop
                TCPSend($ConnectedSocket, $Data)
                If @error Then ExitLoop
        WEnd
EndIf

Server:

#include <GUIConstants.au3>

$ServerIP = @IPAddress1
$Port = 33891
TCPStartup()
$MainSocket = TCPListen($ServerIP, $Port)
if $MainSocket = -1 Then Exit
$ConnectedSocket = -1
Do
        $ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1
While 1
        $recv = TCPRecv($ConnectedSocket, 2048)
        if @error Then ExitLoop
      if $recv <> "" Then
                _CommandToAction($recv)
        EndIf
WEnd
if $ConnectedSocket  <> -1 Then TCPCloseSocket($ConnectedSocket)
TCPShutdown()

Func _CommandToAction($command)
        $ar = StringSplit($command, "|")
        Switch $ar[1]
                Case "Msg"
                        MsgBox(0, $ar[2], $ar[3])
EndSwitch
EndFunc

Thanks for your helps..

[qsek]

Hi again

I hope you know that @IPAddress1 returns the address of the first network adapter of the local PC where the script is running.

Tested the script with my root server IP (server) and my PC (client), and its runnig fine.

Edited March 27, 2012 by qsek

[lifesux]

mm...

Thanks for the answer.

So, how can i fix it as i want ???

[qsek]

use the internet IP of your server in the client script.

[lifesux]

No Still same error. Cant connect. ( i am trying it my other computer. )

My codes :

Client:

#include <GUIConstants.au3>
$ServerIP = "192.168.2.4"
$Port = 33891
TCPStartup()
$ConnectedSocket = TCPConnect($ServerIP, $Port)
If @error Then
        MsgBox(4112, "error", "error" & @error)
Else
        While 1
                $Data = InputBox("command", "write command")
                If @error or $Data = "" Then ExitLoop
                TCPSend($ConnectedSocket, $Data)
                If @error Then ExitLoop
        WEnd
EndIf

Server:

#include <GUIConstants.au3>
$ServerIP = "192.168.2.4"
$Port = 33891
TCPStartup()
$MainSocket = TCPListen($ServerIP, $Port)
if $MainSocket = -1 Then Exit
$ConnectedSocket = -1
Do
        $ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1
While 1
        $recv = TCPRecv($ConnectedSocket, 2048)
        if @error Then ExitLoop
      if $recv <> "" Then
                _CommandToAction($recv)
        EndIf
WEnd
if $ConnectedSocket  <> -1 Then TCPCloseSocket($ConnectedSocket)
TCPShutdown()
Func _CommandToAction

My port options are :

and :

Edited March 28, 2012 by lifesux

[BrewManNH]

Are the 2 computers on the same LAN network?

[lifesux]

They are connected same modem. so yes same lan network. Is it problem ???

[BrewManNH]

It would only be a problem if they weren't and you were trying to access it through the internet. Check to see if there's a firewall issue that's blocking one or both of the computers from communicating with each other. Turn off all firewalls, including the built-in Windows firewall if it's on, and see if there's any difference.

[lifesux]

I tryed it at my friend. Still doesnt work. He opened the server but not working

[qsek]

what do you type into the input field?

[lifesux]

No problem at input. GUI ısnt come. My error message comes

MsgBox(4112, "error", "error" & @error)

[BrewManNH]

I tryed it at my friend. Still doesnt work. He opened the server but not working

Tried to do what at your friends? Connect 2 computers on the same network or connect his to your computer which is at another location? Remember this if you plan on using this between 2 computers over the internet, the 192.168.xx.xx address is not your real IP address, it's your LAN address, you need the external IP address of your network, the one that the world sees you at.

[lifesux]

Tried to do what at your friends? Connect 2 computers on the same network or connect his to your computer which is at another location? Remember this if you plan on using this between 2 computers over the internet, the 192.168.xx.xx address is not your real IP address, it's your LAN address, you need the external IP address of your network, the one that the world sees you at.

So i need to write 95.10.58.2xx to ip part ???

[BrewManNH]

If that's the external IP address that the client needs, then include it in the client script. I'd also use @IPaddress1 in the server script in case you ever use this script on any computer other than the one you wrote it on. Also, your external IP address is probably going to change if you're on dial-up and not an always on connection.

[lifesux]

Okay understood. My friend is another location

So now can you edit my code as i want please?

I am trying this and its not working on my own computer. I dont check my friends...

client:

#include <GUIConstants.au3>
$ServerIP = " 95.10.58.2xx"
$Port = 33891
TCPStartup()
$ConnectedSocket = TCPConnect($ServerIP, $Port)
If @error Then
        MsgBox(4112, "error", "error" & @error)
Else
        While 1
                $Data = InputBox("command", "write command")
                If @error or $Data = "" Then ExitLoop
                TCPSend($ConnectedSocket, $Data)
                If @error Then ExitLoop
        WEnd
EndIf

server:

same ( 1st message )

Edited March 28, 2012 by lifesux

[BrewManNH]

Obviously you can't use .2xx as the last digits of your IP address, you have to use the REAL ip address. IP addresses don't have letters in them.

[tsolrm]

If you have a router - set up port forwarding

[lifesux]

Obviously you can't use .2xx as the last digits of your IP address, you have to use the REAL ip address. IP addresses don't have letters in them.

no.

I wrote xx .

its : 95.10.40.216

[qsek]

$ServerIP = " 95.10.58.2xx"
             ^
You have a space here. Remove it.

That is the reason why there is an @error variable.

It is used to check what error has happened.

From the helpfile:

TCPConnect

Success: Returns main socket identifier.

Failure: Returns -1 or 0 and set @error.

@error:

• 1 IPAddr is incorrect.
• 2 port is incorrect.
• windows API WSAGetError return value (see MSDN <http://msdn.microsoft.com/en-us/library/ms740668.aspx>).

Edited March 29, 2012 by qsek