TCP over Internet

[slipsystem]

Ok so I know this question has probably been asked before. but I cant seem to find an answer to fix my problem. I have a simple server running where i was hoping to be able to remotely send commands. but unfortunately I cannot get it to work.

now after reading the forums I said first check that the script runs locally

Check my script works perfectly over my local network

step two set up port forwarding 

ok so I have set up vnc before so I know how to do that

from my work computer type in the public ip address of the computer 

but its still not connecting is there something im doing wrong my script looks like this.

 

thanks in advanced!

Server

expandcollapse popup

TCPStartup()
$never = "1"
$TCPListen = TCPListen(@IPAddress1, 5600)
Do
Do
$TCPAccept = TCPAccept($TCPListen)
Until $TCPAccept <> -1

Do
$TCPRecv = TCPRecv($TCPAccept, 1000000)
Until $TCPRecv <> ""

If $TCPRecv = "Eject CDTray" Then
  CDTray("D:", "open") 
  EndIf
  
  If $TCPRecv = "Close CDTray" Then
  CDTray("D:", "closed") 
  EndIf
  
  If $TCPRecv = "Launch XBMC" Then
 ProcessClose("XBMC.exe")
  Run("C:\Program Files\XBMC\XBMC.exe")
  EndIf
  
    If $TCPRecv = "Launch Chrome" Then
 ProcessClose("Chrome.exe")
ShellExecute("www.google.com")
  EndIf
  
  If StringLeft($TCPRecv, 4) = "msg " Then
     $Message = StringTrimLeft($TCPRecv, 4)
     MsgBox(0, "Client Says", $Message)
  EndIf
  
   If StringLeft($TCPRecv, 8) = "torrent " Then
         $Torrent = StringTrimLeft($TCPRecv, 8)
         ShellExecute($Torrent)
      EndIf
        If StringLeft($TCPRecv, 4) = "run " Then
     $Run = StringTrimLeft($TCPRecv, 4)
    Run($Run)
  EndIf
         If StringLeft($TCPRecv, 8) = "Execute " Then
         $Command = StringTrimLeft($TCPRecv, 8)
         ShellExecute($Command)
      EndIf
             If StringLeft($TCPRecv, 8) = "Process " Then
         $Command = StringTrimLeft($TCPRecv, 8)
        ProcessClose($Command)
      EndIf
until $never = "2"

Client

expandcollapse popup

#include <GUIConstantsEx.au3>

TCPStartup()

$SeverIP = InputBox("Andre's Client", "What is the IP address")


Example()

Func Example()
    Local $Button_1, $Button_2, $msg
    GUICreate("Andre's Client") ; will create a dialog box that when displayed is centered


    $Button_1 = GUICtrlCreateButton("Message", 10, 30, 100)
    $Button_2 = GUICtrlCreateButton("Open Chrome", 110, 30, 100)
$Button_3 = GUICtrlCreateButton("Open XBMC", 210, 30, 100)
$Button_4 = GUICtrlCreateButton("Open Tray", 10, 60, 100)
$Button_5 = GUICtrlCreateButton("Close Tray", 110, 60, 100)
$Button_6 = GUICtrlCreateButton("Add Torrent", 210, 60, 100)
$Button_7 = GUICtrlCreateButton("Execute", 10, 90, 100)
$Button_8 = GUICtrlCreateButton("Run", 110, 90, 100)
$Button_9 = GUICtrlCreateButton("Close Process", 210, 90, 100)
    GUISetState() ; will display an  dialog box with 2 button

    ; Run the GUI until the dialog is closed
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
             Case $msg = $Button_1
                $message = InputBox("Client", "what would you like to say?")
                $Messagecmd = "msg " &  $message            
                $TCPConnect = TCPConnect($SeverIP, 5600)
                if $TCPConnect = -1 then Exit
                TCPSend($TCPConnect, $Messagecmd)
            Case $msg = $Button_2
              $TCPConnect = TCPConnect($SeverIP, 5600)
                if $TCPConnect = -1 then Exit
                    TCPSend($TCPConnect, "Launch Chrome")
                     Case $msg = $Button_3
              $TCPConnect = TCPConnect($SeverIP, 5600)
                if $TCPConnect = -1 then Exit
                    TCPSend($TCPConnect, "Launch XBMC")
               Case $msg = $Button_6
                $Torrent = InputBox("Client", "Paste Magnetic Link Here")
                $torrentcmd = "torrent " &  $Torrent        
                $TCPConnect = TCPConnect($SeverIP, 5600)
                if $TCPConnect = -1 then Exit
                TCPSend($TCPConnect, $torrentcmd)
                                     Case $msg = $Button_4
              $TCPConnect = TCPConnect($SeverIP, 5600)
                if $TCPConnect = -1 then Exit
                    TCPSend($TCPConnect, "Eject CDTray")
               Case $msg = $Button_5
              $TCPConnect = TCPConnect($SeverIP, 5600)
                if $TCPConnect = -1 then Exit
                    TCPSend($TCPConnect, "Close CDTray")
                  Case $msg = $Button_7
                $Execute = InputBox("Client", "type execute cmd")
                $executecmd = "Execute " &  $Execute        
                $TCPConnect = TCPConnect($SeverIP, 5600)
                if $TCPConnect = -1 then Exit
                TCPSend($TCPConnect, $executecmd)
                                  Case $msg = $Button_8
                $run = InputBox("Client", "type run cmd")
                $runcmd = "Run " &  $run        
                $TCPConnect = TCPConnect($SeverIP, 5600)
                if $TCPConnect = -1 then Exit
                TCPSend($TCPConnect, $runcmd)
               Case $msg = $Button_9
                $Process = InputBox("Client", "what to close")
                $Processcmd = "Process " &  $Process        
                $TCPConnect = TCPConnect($SeverIP, 5600)
                if $TCPConnect = -1 then Exit
                TCPSend($TCPConnect, $Processcmd)
        EndSelect
    WEnd
EndFunc   ;==>Example

[FireFox]

Hi,

You can use this website to check if the port you are using is opened on both sides.

Check if your TCP functions returns an error. In clear make some debugging.

Br, FireFox.

Edited July 29, 2013 by FireFox