Ip Grabber And A Simple Wifi (Number) BruteForcer

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System . EventArgs) Handles Button1 . Click
        Timer1 . Enabled = (True)
    End Sub 

    Private Sub Timer1_Tick(sender As System.Object, e As System . EventArgs) Handles Timer1 . Tick
        Timer2 . Enabled = True
        Timer1 . Enabled = False

    End Sub

    Private Sub Timer2_Tick(sender As System.Object, e As System . EventArgs) Handles Timer2 . Tick
        SendKeys . Send(Int(Val(TextBox1 . Text) * Rnd()))
        SendKeys . Send("{enter}")

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System . EventArgs) Handles Button2 . Click
        Timer2 . Interval = ("11000")
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System . EventArgs) Handles Button3 . Click
        Timer2 . Interval = ("5000")
    End Sub 

    Private Sub Fast_Click(sender As System.Object, e As System . EventArgs) Handles Fast.Click
        Timer2 . Interval = ("100")
    End Sub 

    Private Sub Button5_Click(sender As System.Object, e As System . EventArgs) Handles Button5 . Click
        Timer2 . Enabled = False
    End Sub
End Class

Imports System . Net

Public Class SavageGrabber

    Private Sub Button1_Click(ByVal sender As System . Object, ByVal e As System . EventArgs) Handles Button1 . Click
        Try
            If TextBox1 . Text.Contains("http : //") Then
                Dim iphe As IPHostEntry = Dns . GetHostEntry(TextBox1 . Text.Replace(" http : //", String.Empty))
                TextBox2 . Text = iphe.AddressList(0) . ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox1.Text)
                TextBox2 . Text = iphe.AddressList(0) . ToString()
            End If
        Catch ex As Exception
            MsgBox("Sorry, The Ip Entered Could Not Be Grabbed!")
        End Try
        ProgressBar1 . Value = 0.5
        Timer1 . Start()
        Button1  .Enabled = False


    End Sub
   

    Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs)

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System . Object, ByVal e As System . EventArgs) Handles Timer1 . Tick
        ProgressBar1 . Value += 1
        If ProgressBar1 . Value = 100 Then
            Timer1 . Stop()
            Button1 . Enabled = True
        End If
    End Sub




End Class