16,554
社区成员
发帖
与我相关
我的任务
分享
Try
Dim ip() As System.Net.IPAddress = System.Net.Dns.GetHostAddresses("http://community.csdn.net/")
For Each ipa As System.Net.IPAddress In ip
RichTextBox1.Text &= ip.ToString & vbCrLf
Next
Catch ex As Exception
MsgBox(ex.ToString)
End Try