[程式開發]Socket範例

http://msdn.microsoft.com/zh-tw/library/fx6588te(v=vs.110).aspx

其中

 Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())  

要改

 Dim ipHostInfo As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())