Vb.net kullanilarak whois üzerinden domain sorgulamasi gerçeklestirecegiz. Whois üzerinden bilgileri satir satir okuyup, tanimlamis oldugum diziye aktariyorum, ordanda dizi index numarasina göre çekmek istedigim verileri label kontrollerine aktarip ekrana yazdiriyorum.

Whois sorgulama kodlarimiz;

Imports System.IO
Imports System.Text
Imports System.Net.Sockets
Public Class Deneme
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = Nothing Then
            MessageBox.Show("Geçerli bir domain adresi giriniz", "Uyari", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
        Else
            Dim domain As String = TextBox1.Text
            Dim dsay As Byte = 0

            For index = 1 To Len(domain)
                If Mid(domain, index, 1) = "." Then
                    dsay += 1
                End If
            Next

            If dsay > 1 Then
                MessageBox.Show("Domain adinizi kontrol ediniz", "Uyari", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
            Else
                Dim WhoisResult As String = String.Empty
                Dim tcpc As TcpClient = New TcpClient()
                tcpc.Connect("whois.internic.com", 43)
                Dim strDomain As String = TextBox1.Text & System.Environment.NewLine
                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)
                WhoisResult = sr.ReadLine()

                Dim veri As New ArrayList
                Dim say As Integer

                While (WhoisResult <> Nothing)
                    RichTextBox1.Text = RichTextBox1.Text & vbLf + WhoisResult
                    veri.Add(WhoisResult)
                    WhoisResult = sr.ReadLine()
                    say += 1
                End While
                sr.Close()

                If say > 3 Then
                    Label1.Text = veri(0)
                    Label2.Text = veri(4)
                    Label3.Text = veri(5)
                    Label4.Text = veri(6)
                Else
                    MessageBox.Show("Domain adresi satin alinmamis", "Uyari", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
                End If
            End If
        End If
    End Sub
End Class