Ip Grabber And A Simple Wifi (Number) BruteForcer

[Anonymous_Envy]

These two simple tools were made using visual basic and are easy to use!
I've made them from request and the code for them both can be found below.


Virus Scans:
https://virusscan.jotti.org/en-GB/fi...job/j7qoxgjkiu
https://www.virustotal.com/en/file/f...is/1497278524/
https://virusscan.jotti.org/en-GB/fi...job/o0e3jp4tje
https://www.virustotal.com/en/file/7...is/1497278952/

Screenshots:
http : // imgur . com / a / gImod
http : // imgur . com / a / JQoH6



Code:

Forcer:

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

Grabber:

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 . Tex*****ntains("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

If you have any questions let me know i'd be happy to answer, please remember these are only simple tools.