求助一个socket的问题

Question

  '客户端Socket
  Dim cliSocket As Socket
  '连接状态
  Dim IsConnected As Boolean = False
  '接收信息线程
  Dim myThread As Thread
  Dim ipHostInfo As IPHostEntry = System.Net.Dns.GetHostEntry("www.baibaiba.net")
  Dim remoteEP As New IPEndPoint(Net.IPAddress.Parse(ipHostInfo.AddressList(0).ToString), 9888)

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ConnectServer()
  End Sub

  Sub ConnectServer()
    cliSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    Try
      cliSocket.Connect(remoteEP)
      MsgBox(cliSocket.Connected)
      IsConnected = True
      ListBox1.Items.Add("连接服务端成功!")
      Timer1.Stop()
      Timer1.Enabled = False
    Catch ex As Exception
      ListBox1.Items.Add(ex.Message)
      Timer1.Enabled = True
      Timer1.Start()
    End Try
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    ConnectServer()
    'Timer1.Enabled = False
  End Sub

 

问题描述：

代码用意在于客户端启动后，如果不能够与SERVER建立连接，就不停地尝试与SERVER进行连接

上述代码中，如果域名填写或者解析正确，即使服务器端的监听程序没有运行，客户端程序也能正常运行，但是，一旦域名错误或者不能正确解析IP地址，程序象假死一样，连窗体都不能够显示。我该怎么解决呢？

 

---

学无止境

Answer 1

你好

如果你想避免假死的情形..

或者可以嘗試使用Background worker 去執行這個動作..

先檢查.是不是正在檢查connection 如果不是的話便執行

或者可以參考以下URL

VB.Net Use BackgroundWorker To Improved User Experience — VB.Net 使用 BackgroundWorker 增加使用者經驗上

http://blog.sharechiwai.com/2010/09/vb-net-use-backgroundworker-to-improved-user-experience-vb-net-%E4%BD%BF%E7%94%A8-backgroundworker-%E5%A2%9E%E5%8A%A0%E4%BD%BF%E7%94%A8%E8%80%85%E7%B6%93%E9%A9%97%E4%B8%8A/

或

background worker

http://msdn.microsoft.com/zh-cn/library/system.componentmodel.backgroundworker.aspx

Please correct me if my concept is wrong

---

Chi

Answer 2

谢谢您的回复。正在消化您给的链接。

刚才经单步测试，是这样一个情况：

 cliSocket.Connect(remoteEP)'如果域名不能正确解析，这一句代码要执行近一分钟，貌似假死，然后执行了CATCH部分的代码
   MsgBox(cliSocket.Connected)'如果域名不能正确解析，代码就运行不到这里了。

---

学无止境