2015-09-15 186 views
0

我试图从一个应用程序发送消息到另一个,这是我的发件人的代码,因为我只使用本地主机的IP地址检查TCP客户端连接失败

Try 
    Client = New TcpClient("127.0.0.1", 8000) 
    Dim Writer As New StreamWriter(Client.GetStream()) 
    Writer.Write("</> " & TextBox1.Text & " <\>") 
    Writer.Flush() 
Catch ex As Exception 
    MessageBox.Show(ex.Message) 
End Try 

此代码工作正常,但是如果我输入一些明显不会回复的其他IP地址,程序将抛出一个连接失败的错误,或者有时会出现错误,指出目标主动拒绝连接。

我怎么能这样做的If clientconnection = success then...不是获取抛出

+0

vb.net中存在'on error goto

回答

0

TcpClient的异常已接通布尔属性。 在你调用GetStream之前检查这个。

MSDN page

编辑:但你还是应该继续异常处理作为连接可以在任何时候反正下降。

+0

实际上,我没有提到'Client = New TcpClient(“127.0.0.1”,8000)''这一行发生了异常。 – crimson

+0

嗯好吧...只需首先声明TcpClient并使用默认构造函数,然后调用client.Connect(ip,port)。然后,您可以将此Connect调用包装在自己的异常处理中。 – indeed005