C#转VB。。。。。

Question

<%
Dim tcpc As New TcpClient()
Try
  tcpc.Connect("whois.networksolutions.com", 43)
Catch ex As SocketException
  Response.Write(ex.ToString())
  Response.End()
End TryDim strDomain As String = "163.com" + vbCrLf
Dim arrDomain As Byte() = Encoding.ASCII.GetBytes(strDomain.ToCharArray())
  
Dim s As Stream = tcpc.GetStream()
s.Write(arrDomain, 0, strDomain.Length)Dim sr As StreamReader = new StreamReader(tcpc.GetStream(), Encoding.ASCII)
Dim strLine As String = NothingWhile (Nothing <> (strLine = sr.ReadLine()))
   Response.Write(strLine + "<br>")
End Whiletcpc.Close()
%>

Answer 1

那个 while 循环有问题：
Do
   strLine = sr.ReadLine()
   If strLine <> Nothing Then Response.Write(strLine + "<br>")
Loop While strLine <> Nothing