[SOLVED] How to send text/string to computer server?

[pyzonet]

I use this but not working:

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $ConnectedSocket, $szData
    Local $szIPADDRESS = @IPAddress1
    Local $nPORT = 33891

    TCPStartup()

    $ConnectedSocket = -1

    $ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)

    If @error Then
        MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
    Else
        While 1
            $szData = InputBox("Data for Server", @LF & @LF & "Enter data to transmit to the SERVER:")

            If @error Or $szData = "" Then ExitLoop

            TCPSend($ConnectedSocket, $szData)

            If @error Then ExitLoop
        WEnd
    EndIf
EndFunc

Edited January 24, 2011 by pyzonet

[LurchMan]

Do you have the TCP/IP Server running on the Server that is suppose to receive the message?

[Mat]

You can test it by running a second script called Server.au3 that uses TCPListen and then TCPRecv. Look at the example in the helpfile for the latter for a pretty good example