XPLOIT ADF.LY

Public Class Form1

    Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt.Click
        txt.SelectAll()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        navegador.Navigate(txt.Text)
        Button1.Hide()
        Button2.Show()
        total.Text = 1
        Dim i As Integer = 0
        For i = 1 To 1000000
            If total.Text = 1 Then navegador.Navigate(txt.Text)
            contador.Text += 1
            Application.DoEvents()
            Call Pausa(1000)
        Next
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Shell("CMD /C start www.infiniter.vacau.com")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Hide()
        total.Text = 0
        Button1.Show()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button2.Hide()
    End Sub

    Private Sub txt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt.TextChanged

    End Sub
    Private Sub Pausa(ByVal pSegundos As Integer)
        Dim vInicio As Integer = Environment.TickCount()
        While ((Environment.TickCount() - vInicio) <= pSegundos)
            Application.DoEvents()
        End While
    End Sub
End Class