TCP Server doesn't work

;Create a Client

strmGame=OpenTCPStream(Ip of the server computer,8080)

If strmGame<>0 Then
Print "Client Connected successfully."
Else
Print "Server failed to connect."
WaitKey
End
End If

; write stream to server
WriteString strmGame,"A player joined the server..."
Print "COnnection succesfull"