CloudFlare Resolving [Snippet]

RA1N · 12-22-2012, 10:59 PM

Code:
Dim Hostname1 = Dns.GetHostEntry(Host2Resolve.Text)
        Dim ip1 As IPAddress() = Hostname1.AddressList
        CrystalClearTextBox1.Text = ip1(0).ToString
        Try
            CrystalClearProgressBar1.Value = 0
            For i = 0 To My.Settings.testDomains.Count
                Dim Hostname = Dns.GetHostEntry(My.Settings.testDomains.Item(i) & Host2Resolve.Text)
                Dim ip As IPAddress() = Hostname.AddressList
                Try
                    ResolvedHost.Text = ip(0).ToString
                Catch ex As Exception
                    CrystalClearProgressBar1.Value += 10
                End Try
            Next
        Catch ex As Exception
        End Try

Make an array with these values:

Code:
mail.
direct.
direct-connect.
cpanel.
ftp.
forum.
blog.
m.
dev.
webmail.

bluedog.tar.gz · 12-23-2012, 08:40 PM

Thank you for the share.

The Alchemist · 12-24-2012, 05:18 AM

Can you share a script that does the same using Visual C++?

Deque · 12-24-2012, 12:24 PM

Thanks for this snippet.

RA1N · 12-26-2012, 06:18 PM

I can convert the code to other languages soon
and not a problem

CloudFlare Resolving [Snippet]
Author Message