Introduction

WHOIS is a query/response protocol that is widely used for querying databases in order to determine the registrant or assignee of Internet resources, such as a domain name, an IP address block, or an autonomous system number. WHOIS services are typically communicated using the Transmission Control Protocol (TCP). Servers listen to requests on the well-known port number 43.

The WHOIS system originated as a method for system administrators to obtain contact information for IP address assignments or domain name administrators. The use of the data in the WHOIS system has evolved into a variety of uses, including:

In this WHOIS lookup article only two pages includes named

Default.aspx

 <%@ Page Language="vb" AutoEventWireup="false" Inherits="DataScrapping.WhoIs"CodeFile="Default.aspx.vb" %>
<html>
 <body style="text-align: left">
 <form id="Form1" name="Form1" runat="server">
 <div align="center" style="text-align: left">
 <span style="font-size: 10pt; font-family: Verdana"><strong><span style="font-size: 14pt;
 color: #3300ff; text-decoration: underline">Check the Domain Details on WHOIS</span></strong><br />
 <br />
 <br />
 </span>
 <table style="font-size: 10pt; font-family: Verdana;" bgcolor="#dcdcdc" width="100%">
 <tr>
 <td colspan="3">
**************************************</td>
 </tr>
 <tr>
 <td colspan="3">
 <asp:Label id="Label2" runat="server" Font-Size="X-Small" Font-Names="Verdana" ForeColor="Navy" Font-Bold="True">www.</asp:Label>
 <asp:TextBox id="txtDomain" runat="server" Font-Size="X-Small" Font-Names="Verdana" Font-Bold="True" Width="263px">Enter your Domain Name Here</asp:TextBox>
 <asp:Button id="btnQuery" runat="server"Text="Trace Domain
Details" Width="139px" Font-Size="X-Small" Font-Names="Arial" ForeColor="Black" Font-Bold="False"BorderColor="White" BackColor="DarkGray"></asp:Button>
<asp:Label id="Label1" runat="server" Width="232px" Font-Size="X-Small" Font
Names="Verdana" ForeColor="Navy" Font-Bold="True">Example: itorian.com</asp:Label></td>
 </tr>
 <tr>
 <td colspan="3">
*************************************</td>
 </tr>
 <tr>
 <td colspan="3">
 <asp:Label id="txtResult" runat="server"ForeColor="Blue" Font
Names="Verdana" Font-Bold="True" Font-Size="X-Small"></asp:Label></td>
 </tr>
 </table>
 </div>
 </form>
 </body>
</html>
Default.aspx.vb

 Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Imports System.Collections
Imports System.Net
Imports System.Text.RegularExpressions
Namespace DataScrapping
Partial Class WhoIs
Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "
 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Init
InitializeComponent()
End Sub
#End Region
 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
txtDomain.Attributes.Add("onclick", "this.value='';")
End Sub

Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnQuery.Click
Dim firstLevelbufData As String
 Try
 Dim strURL As String = "http://www.directnic.com/whois/index.php?query=" + txtDomain.Text
Dim web As New WebClient()
Dim bufData As Byte()
bufData = web.DownloadData(strURL)
firstLevelbufData = Encoding.Default.GetString(bufData)
Catch ex As System.Net.WebException
txtResult.Text = ex.Message()
Exit Sub
 End Try
 Try
 Dim first, last As String
 first = "<p class=" + Chr(34) + "text12" + Chr(34) + ">"
 last = "</p>"
 Dim RE As New Regex(first + "(?<MYDATA>.*?(?=" + last + "))", RegexOptions.IgnoreCase Or RegexOptions.Singleline)
Dim m As Match = RE.Match(firstLevelbufData)
txtResult.Text = m.Groups("MYDATA").Value + "<br>"
 If txtResult.Text.Length < 10 Then txtResult.Text = "Some Error Occured."
 Catch e3 As Exception
txtResult.Text = "Some Error Occured."
 End Try
 End Sub
 End Class
 End Namespace

HAVE A HAPPY CODING!