2015-09-15 242 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