
Private Sub HackerButton1_Click(sender As Object, e As EventArgs) Handles HackerButton1.Click
ProgressBar1.Value = 0
ProgressBar1.Increment(20)
HackerTextBox2.Clear()
ProgressBar1.Increment(20)
WebRequest.Create("http://api.predator.wtf/resolver/?arguments=" + HackerTextBox1.Text)
ProgressBar1.Increment(20)
HackerTextBox2.Text = New System.Net.WebClient().DownloadString("http://api.predator.wtf/resolver/?arguments=" + HackerTextBox1.Text)
ProgressBar1.Increment(40)
End Sub
Private Sub HackerButton2_Click(sender As Object, e As EventArgs) Handles HackerButton2.Click
Me.Close()
End Sub

WebRequest.Create("http://api.predator.wtf/resolver/?arguments=" & Me.HackerTextBox1.Text)
Me.ProgressBar1.Increment(20)
Me.HackerTextBox2.Text = New System.Net.WebClient().DownloadString("http://api.predator.wtf/resolver/?arguments=" & Me.HackerTextBox1.Text)
Me.ProgressBar1.Increment(40)
Private Sub HackerButton1_Click(sender As Object, e As EventArgs) Handles HackerButton1.Click
ProgressBar1.Value = 0
ProgressBar1.Increment(20)
HackerTextBox2.Clear()
ProgressBar1.Increment(20)
WebRequest.Create("http://api.predator.wtf/resolver/?arguments=" + HackerTextBox1.Text)
ProgressBar1.Increment(20)
HackerTextBox2.Text = New System.Net.WebClient().DownloadString("http://api.predator.wtf/resolver/?arguments=" + HackerTextBox1.Text)
ProgressBar1.Increment(40)
End Sub
Private Sub HackerButton2_Click(sender As Object, e As EventArgs) Handles HackerButton2.Click
Me.Close()
End Sub
Dim client As New WebClient()
Private Sub HackerButton1_Click(sender As Object, e As EventArgs) Handles HackerButton1.Click
' Done.
HackerTextBox2.Text = client.DownloadString("http://api.predator.wtf/resolver/?arguments=" & HackerTextBox1.Text)
End Sub
Private Sub HackerButton2_Click(sender As Object, e As EventArgs) Handles HackerButton2.Click
Close()
End Sub
