Hack Forums
[.NET] CloudFlare Resolving [Snippet] - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] CloudFlare Resolving [Snippet] (/showthread.php?tid=3115755)

CloudFlare Resolving [Snippet] - RA1N - Dec 22, 2012

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.