@@@@@@@@@@@一小段C#代码求翻译成VB.NET，100分相送，谢谢

Question

{
String strServer;
String strDomain = txtDomain.Text; 
String strServerCom = "Whois.internic.net"; 
String strServerCN = "whois.cnnic.net.cn";
String strResponse;
string[] arrDomain = strDomain.Split('.');
if (arrDomain[1].ToUpper()=="CN" )
{
        
        strServer=strServerCN;
}
else
{
        strServer=strServerCom;
}bool blSuccess = IsWhosisSuccess(strDomain, strServer, out strResponse);
if (blSuccess)
{
lblResult.Text = strResponse;
}
else
{
lblResult.Text = "查找失败....";
}
}
bool IsWhosisSuccess(String strDomain, String strServer, 
                   out String strResponse)
{
  strResponse = "none";
  bool blSuccess = false;
  TcpClient tcpc = new TcpClient();
  try
  {
    tcpc.Connect(strServer, 43);
  }
  catch(SocketException ex)
  {
    strResponse = "连接不到该 Whois server,请稍后再试。";
    return false;
  }  strDomain += "\r\n";
  Byte[] arrDomain = Encoding.UTF8.GetBytes(strDomain.ToCharArray());
  try
  {
        Stream s = tcpc.GetStream();
        s.Write(arrDomain, 0, strDomain.Length);
        
        StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.UTF8);
        StringBuilder strBuilder = new StringBuilder();
        string strLine = null;        while (null != (strLine = sr.ReadLine()))
        {
                strBuilder.Append(strLine+"<br>");
        }
        tcpc.Close();
                
        blSuccess = true;
        string my="Go to Huobazi's WebSite：<a href=\"http://www.aspxboy.com\" title=\".Net男孩社区\">www.AspxBoy.Com</a><br>";
        strResponse = strBuilder.ToString()+my;  }
  catch(Exception e)
  {
        strResponse = e.ToString();
  }
  
  return blSuccess;
}

Answer 1

Dim strServer As String 
Dim strDomain As String = txtDomain.Text 
Dim strServerCom As String = "Whois.internic.net" 
Dim strServerCN As String = "whois.cnnic.net.cn" 
Dim strResponse As String 
Dim arrDomain As String() = strDomain.Split("."C) 
If arrDomain(1).ToUpper = "CN" Then 
 strServer = strServerCN 
Else 
 strServer = strServerCom 
End If 
Dim blSuccess As Boolean = IsWhosisSuccess(strDomain, strServer, strResponse) 
If blSuccess Then 
 lblResult.Text = strResponse 
Else 
 lblResult.Text = "查找失败...." 
End If 
End Sub Function IsWhosisSuccess(ByVal strDomain As String, ByVal strServer As String, ByRef strResponse As String) As Boolean 
strResponse = "none" 
Dim blSuccess As Boolean = False 
Dim tcpc As TcpClient = New TcpClient 
Try 
 tcpc.Connect(strServer, 43) 
Catch ex As SocketException 
 strResponse = "连接不到该 Whois server,请稍后再试。" 
 Return False 
End Try 
strDomain += "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" 
Dim arrDomain As Byte() = Encoding.UTF8.GetBytes(strDomain.ToCharArray) 
Try 
 Dim s As Stream = tcpc.GetStream 
 s.Write(arrDomain, 0, strDomain.Length) 
 Dim sr As StreamReader = New StreamReader(tcpc.GetStream, Encoding.UTF8) 
 Dim strBuilder As StringBuilder = New StringBuilder 
 Dim strLine As String = Nothing 
 While Not (Nothing = (strLine = sr.ReadLine)) 
   strBuilder.Append(strLine + "<br>") 
 End While 
 tcpc.Close 
 blSuccess = True 
 Dim my As String = "Go to Huobazi's WebSite：<a href=""http://www.aspxboy.com"" title="".Net男孩社区"">www.AspxBoy.Com</a><br>" 
 strResponse = strBuilder.ToString + my 
Catch e As Exception 
 strResponse = e.ToString 
End Try 
Return blSuccess 
End Function

Answer 2

Dim strServer As String
Dim strDomain As String =  txtDomain.Text 
Dim strServerCom As String =  "Whois.internic.net" 
Dim strServerCN As String =  "whois.cnnic.net.cn" 
Dim strResponse As String
Dim arrDomain() As String =  strDomain.Split("."c) 
if (arrDomain(1).ToUpper()="CN")
{
 
        strServer=strServerCN
}
else
{
        strServer=strServerCom
}
 
Dim blSuccess As Boolean =  IsWhosisSuccess(strDomain,strServer,out strResponse) 
if (blSuccess)
{
lblResult.Text = strResponse
}
else
{
lblResult.Text = "查找失败...."
}
}
Boolean IsWhosisSuccess(String strDomain, String strServer, 
                    String strResponse)
{
  strResponse = "none"
  Dim blSuccess As Boolean =  False 
  Dim tcpc As TcpClient =  New TcpClient() 
  Try
    tcpc.Connect(strServer, 43)
  Catch ex As SocketException
    strResponse = "连接不到该 Whois server,请稍后再试。"
    Return False
  End Try
 
  strDomain += "\r\n"
  Dim arrDomain() As Byte =  Encoding.UTF8.GetBytes(strDomain.ToCharArray()) 
  Try
        Dim s As Stream =  tcpc.GetStream() 
        s.Write(arrDomain, 0, strDomain.Length)
 
        Dim sr As StreamReader =  New StreamReader(tcpc.GetStream(),Encoding.UTF8) 
        Dim strBuilder As StringBuilder =  New StringBuilder() 
        Dim strLine As String =  Nothing 
 
        While Nothing <>(strLine = sr.ReadLine())
                strBuilder.Append(strLine+"<br>")
        End While
        tcpc.Close()
 
        blSuccess = True
        String my="Go to Huobazi's WebSite：<a href=\"http:'www.aspxboy.com\" title=\".Net男孩社区\">www.AspxBoy.Com</a><br>";        strResponse = strBuilder.ToString()+my
  Catch e As Exception
        strResponse = e.ToString()
  End Try
 
  Return blSuccess
}看看有问题没有

Answer 3

sorry ,,  这个
Dim strServer As [String]
Dim strDomain As [String] = txtDomain.Text
Dim strServerCom As [String] = "Whois.internic.net"
Dim strServerCN As [String] = "whois.cnnic.net.cn"
Dim strResponse As [String]
Dim arrDomain As String() = strDomain.Split("."c)
If arrDomain(1).ToUpper() = "CN" Then
   
   strServer = strServerCN
Else
   strServer = strServerCom
End IfDim blSuccess As Boolean = IsWhosisSuccess(strDomain, strServer, strResponse)
If blSuccess Then
   lblResult.Text = strResponse
Else
   lblResult.Text = "查找失败...."
End If'
'ToDo: Error processing original source shown below
'
'
'-^--- expression expected
Function IsWhosisSuccess(strDomain As [String], strServer As [String], ByRef strResponse As [String]) As Boolean
   strResponse = "none"
   Dim blSuccess As Boolean = False
   Dim tcpc As New TcpClient()
   Try
      tcpc.Connect(strServer, 43)
   Catch ex As SocketException
      strResponse = "连接不到该 Whois server,请稍后再试。"
      Return False
   End Try
   
   strDomain += ControlChars.Cr + ControlChars.Lf
   Dim arrDomain As [Byte]() = Encoding.UTF8.GetBytes(strDomain.ToCharArray())
   Try
      Dim s As Stream = tcpc.GetStream()
      s.Write(arrDomain, 0, strDomain.Length)
      
      Dim sr As New StreamReader(tcpc.GetStream(), Encoding.UTF8)
      Dim strBuilder As New StringBuilder()
      Dim strLine As String = Nothing
      
      While Nothing <>(strLine <<= sr.ReadLine()) 'ToDo: Unsupported feature: assignment within expression. "=" changed to "<="
         strBuilder.Append((strLine + "<br>"))
      End While
      tcpc.Close()
      
      blSuccess = True
      Dim my As String = "Go to Huobazi's WebSite：<a href=""http://www.aspxboy.com"" title="".Net男孩社区"">www.AspxBoy.Com</a><br>"
      strResponse = strBuilder.ToString() + my
   Catch e As Exception
      strResponse = e.ToString()
   End Try
   
   Return blSuccess
End Function

Answer 4

http://authors.aspalliance.com/aldotnet/examples/translate.aspx

Answer 5

http://blog.csdn.net/lihonggen0/archive/2004/09/24/114966.aspx
http://www.developerfusion.com/utilities/convertvbtocsharp.aspx
http://blog.joycode.com/ghj/archive/2004/03/07/15093.aspx

Answer 6

Dim strServer As String 
Dim strDomain As String = txtDomain.Text 
Dim strServerCom As String = "Whois.internic.net" 
Dim strServerCN As String = "whois.cnnic.net.cn" 
Dim strResponse As String 
Dim arrDomain As String() = strDomain.Split("."C) 
If arrDomain(1).ToUpper = "CN" Then 
 strServer = strServerCN 
Else 
 strServer = strServerCom 
End If 
Dim blSuccess As Boolean = IsWhosisSuccess(strDomain, strServer, strResponse) 
If blSuccess Then 
 lblResult.Text = strResponse 
Else 
 lblResult.Text = "查找失败...." 
End If 
End Sub Function IsWhosisSuccess(ByVal strDomain As String, ByVal strServer As String, ByRef strResponse As String) As Boolean 
strResponse = "none" 
Dim blSuccess As Boolean = False 
Dim tcpc As TcpClient = New TcpClient 
Try 
 tcpc.Connect(strServer, 43) 
Catch ex As SocketException 
 strResponse = "连接不到该 Whois server,请稍后再试。" 
 Return False 
End Try 
strDomain += "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" 
Dim arrDomain As Byte() = Encoding.UTF8.GetBytes(strDomain.ToCharArray) 
Try 
 Dim s As Stream = tcpc.GetStream 
 s.Write(arrDomain, 0, strDomain.Length) 
 Dim sr As StreamReader = New StreamReader(tcpc.GetStream, Encoding.UTF8) 
 Dim strBuilder As StringBuilder = New StringBuilder 
 Dim strLine As String = Nothing 
 While Not (Nothing = (strLine = sr.ReadLine)) 
   strBuilder.Append(strLine + "<br>") 
 End While 
 tcpc.Close 
 blSuccess = True 
 Dim my As String = "Go to Huobazi's WebSite：<a href=""http://www.aspxboy.com"" title="".Net男孩社区"">www.AspxBoy.Com</a><br>" 
 strResponse = strBuilder.ToString + my 
Catch e As Exception 
 strResponse = e.ToString 
End Try 
Return blSuccess 
End Function