无法从客户端向服务器发送值序列

Question

HI无法从客户端向服务器发送值序列，因为客户端窗口在输入两个输入值后退出一次。 请在下面找到客户端代码：

 Sub Main()
    Dim connection = New HubConnection("http://localhost:8080")

    Dim myHub = connection.CreateHubProxy("myHub")

    connection.Start().Wait()
    Console.ForegroundColor = ConsoleColor.Yellow
    myHub.Invoke(Of String)("Chatter", Console.ReadLine) _
    .ContinueWith(
        Sub(task)
            If task.IsFaulted Then
                Console.WriteLine("Could not Invoke the server method Chatter: {0}", _
                                  task.Exception.GetBaseException())
            Else
                Console.WriteLine("Success calling chatter method")
            End If
        End Sub)

    myHub.On(Of String)("addMessage", _
        Sub(param)
            Console.WriteLine("Client receiving value from server: {0}", param.ToString())
        End Sub)
    Console.ReadLine()
End Sub

我尝试使用while循环，但在某些错误中结束可能有人请求帮助。 再次发布，因为我无法找到正确的解决方案。