How to query a whois server

To query a whois server, just use this few lines of code

Code

GeSHi (vbnet):
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
 
Private Function WhoIs(ByVal whoisServer As String, ByVal url As String) As String
    Dim sbResult As New StringBuilder()
    Dim WhoisClinet As New TcpClient(whoisServer, 43)
    Dim nsWhois As NetworkStream = WhoisClinet.GetStream()
    Dim bsWhois As New BufferedStream(nsWhois)
    Dim streamWriter As New StreamWriter(bsWhois)
 
    streamWriter.WriteLine(url)
    streamWriter.Flush()
 
    Dim streamReaderReceive As New StreamReader(bsWhois)
 
    While Not streamReaderReceive.EndOfStream
        sbResult.AppendLine(streamReaderReceive.ReadLine())
    End While
 
    Return sbResult.ToString()
End Function
 
Created by GeSHI 1.0.7.20