MapFactor Forum

I have tried to create a little vb.net script that send tcp/ip command but that don't run !
This is my code:
Imports System.Net.Sockets
Imports System.Net
Imports System.Text

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sendtonavigator()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WriteData("$destination=45.72813,8.98105;navigate\n", "127.0.0.1")
    End Sub

    ''' <summary>
    ''' Send data over TCP/IP network
    ''' </summary>
    ''' <param name="data">Data string to write</param>
    ''' <param name="IP">The connected destination TcpClient</param>
    Public Sub WriteData(ByVal data As String, ByRef IP As String)
        'Console.WriteLine("Sending message """ & data & """ to " & IP)
        Dim client As TcpClient = New TcpClient()
        client.Connect(New IPEndPoint(IPAddress.Parse(IP), "4242"))
        Dim stream As NetworkStream = client.GetStream()
        Dim sendBytes As Byte() = Encoding.ASCII.GetBytes(data)
        stream.Write(sendBytes, 0, sendBytes.Length)
    End Sub

    Public Sub sendtonavigator()
        Dim host As IPAddress = Nothing
        Dim mySock As Socket = Nothing
        Try
            If Not IPAddress.TryParse("127.0.0.1", host) Then
                MessageBox.Show("Adresse non valide")
                Exit Sub
            End If
            Dim ep As IPEndPoint = New IPEndPoint(host, Integer.Parse(4242))
            mySock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            mySock.Connect(ep)
            If mySock.Connected Then
                mySock.Send(Encoding.ASCII.GetBytes("$destination=45.72813,8.98105;navigate\n"))
                'mySock.Send(Encoding.ASCII.GetBytes("$message=""message"";ask;instant\n"))
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

End Class
As you can see, i have tried two differents commands that don't run !
Thanks for your help !

Yes , my settings are :
127.0.0.1
4242

Hoops,
I don't know !

Ok, i worked a little beat on my issues and found to solutions, an autoit script (thanks to the french forum) and a VB.Net module.
If you want to play with :
Autoit script:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=PcNavigator_cmd.exe
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>

Dim $command
$port = "4242"
$ip = "127.0.0.1"
Opt("TCPTimeout", 4000) ;100 milliseconds

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Send Commands to Pc Navigator", 400, 200, -1, -1)
$Label2 = GUICtrlCreateLabel("Ip: "&$ip&"    "&"Port: "&$port, 10, 5, 390, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Pc Navigator return : ***", 10, 34, 390, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Combo1 = GUICtrlCreateCombo("", 64, 64, 300, 25)
GUICtrlSetData(-1, "$destination=44.869740,-0.566483;navigate" & _
                    "|$window=100,500,1000,800,border" & _
                    "|$window=0,73,800,472,noborder" & _
                    "|$navigation_statistics" & _
                    "|$message="&chr(34)&"This is my message"&chr(34)&";instant" & _
                    "|$message="&chr(34)&"You check a YES/NO message"&chr(34)&";ask;instant" & _
                    "|$stop_navigation" & _
                    "|$last_position" & _
                    "|$sound_volume=0" & _
                    "|$sound_volume=100" & _
                    "|$minimize" & _
                    "|$restore" & _
                    "|exit" & _
                    "|$set_mode=day" & _
                    "|$set_mode=night" & _
                    "|$chat=message" & _
                    "|$software_version" & _
                    "|$protocol_version", "$destination=44.869740,-0.566483;navigate")
$Button1 = GUICtrlCreateButton("Exit",300,150,80,30)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE,$Button1
            Exit

        Case $Combo1
            $command = GUICtrlRead($Combo1)
            TCPStartup()
            $socket = TCPConnect($ip,$port)
            If $socket = -1 Then
                MsgBox(16,"Erreur","Erreur de connexion : " & @error)
                Exit
            EndIf
            $msgAEnvoyer = $command & @lf
            If Not $msgAEnvoyer = "" Then TCPSend($socket,$msgAEnvoyer)
            $recv = TCPRecv($socket,255)
            ;If Not $recv = "" Then MsgBox(64,"Message reçu","Le programme vous a renvoyé : " & $recv)
            If Not $recv = "" Then GuiCtrlSetData($Label1, "Pc Navigator return : "&$recv)
            TCPCloseSocket ( $socket )
    EndSwitch
WEnd