Wanna send msg with TCP

[bigfattoby]

Hey ive got those scripts here. What information would i have to change to make it possible to put this on a friends computer and be able to send msgbox's to him?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
TCPStartup()
$TCPC = TCPConnect(@IPAddress1, 403)

Global $Form1 = GUICreate("Form1", 292, 50, 192, 124)
Global $Input1 = GUICtrlCreateInput("Input1", 16, 16, 177, 21)
Global $Button1 = GUICtrlCreateButton("Button1", 200, 16, 73, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    If $TCPC = -1 Then Exit
    If $nMsg = -3 Then Exit
    If $nMsg = $Button1 Then button1()
WEnd

Func button1()
$Iread = GUICtrlRead($Input1)
TCPSend($TCPC, $Iread)
EndFunc

TCPStartup()

$TCPL = TCPListen(@IPAddress1, 403)

Do
    $TCPA = TCPAccept($TCPL)
Until $TCPA <> -1

While 1
    Do
        $TCPR = TCPRecv($TCPA, 1000000)
    Until $TCPR <> ""

    MsgBox(0, "En besked", $TCPR)
Wend

[bigfattoby]

Noone?

[rcmaehl]

Can you please rephrase the question. I'm don't quite understand what you're attempting.

[Jos]

Your friends computer is on the same LAN and has a fixed IP address or HostName?

[bigfattoby]

yes, we are on the same LAN.