[PhunKTecH]

Hey guys today I'm going to give out a simple cloudflare resolver I made. You will need:
1 Button(Resolve)
1 Textbox(Type Site)
1 Label(CF Link:)
1 ListBox(Shows IP's)
When you have finished you should get somthing similar to this:

Heres Code:
Imports System.Net
Public Class Form1
Dim Domains(9)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Domains(0) = "blog."
Domains(1) = "cpanel."
Domains(2) = "dev."
Domains(3) = "direct."
Domains(4) = "direct-connect."
Domains(5) = "ftp."
Domains(6) = "forum."
Domains(7) = "mail."
Domains(8) = "m."
Domains(9) = "webmail."
TextBox1.Text = TextBox1.Text.Replace("http://", "")
TextBox1.Text = TextBox1.Text.Replace("Http://", "")
TextBox1.Text = TextBox1.Text.Replace("www.", "")
TextBox1.Text = TextBox1.Text.Replace("/", "")
If TextBox1.Text = "" Then
MessageBox.Show("Please enter a domain! Remember: Leave out 'http://' and 'www.'")
Else
For Each Str As String In Domains
Try
Dim hostname As IPHostEntry = Dns.GetHostByName(Str + TextBox1.Text)
Dim ip As IPAddress() = hostname.AddressList
ListBox1.Items.Add(Str + TextBox1.Text + ": " + ip(0).ToString())
Catch ex As Exception
ListBox1.Items.Add(Str + TextBox1.Text + ": Not Found")
End Try
Next
End If
'Made by PhunKTecH'
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
ListBox1.ClearSelected()
End Sub
End Class

Download the source Project Here: http://www.mediafire.com/?i6sbjy2b6q5oee4
Virus Scan Here: https://www.virustotal.com/en/file/2b810...361740358/
Enjoy! 👍

[H3x0S]

If you want to release your code, it's better to release it as a class/function so people can use it in their projects easily.

[C3ol]

i download it for the theme and delete it u know why

[PhunKTecH]

i download it for the theme and delete it u know why

The theme wasnt built in it xD It shows that theme because of the theme on my pc.

[C3ol]

i know but i hope maybe alittle chance but

[Yui Asuna]

Can you use the CODE balise, please ? Thanks.
let me point out some things:

Code

Dim Domains(9)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

First, please specify the type of your Array. In this case, it's a String.
And why is this empty sub here ? It's a little mistake, but you should be aware of these little things ;)

[netrosly]

thanks mate, I might add this too my project, and if i do i'll add credit to you

[fathurion]

Thans Bro :D , I Ask Your Permission To Download Sources Code :D