.NET Adf.ly Clicker - Printable Version

Code
Imports System.Runtime.InteropServices

Imports Microsoft.Win32

Imports System.Threading

Imports System.Text.RegularExpressions

 

<ComVisible(False)>

Public Class AdFlyNET

    Inherits WebBrowser

 

    Public Enum CleckerType

        Image = 0

        Button = 1

    End Enum

 

    Private tStart As Thread

    Private tmr As System.Windows.Forms.Timer = New System.Windows.Forms.Timer()

 

    Private TypeC As CleckerType = CleckerType.Image

 

    Public Sub Start(ByVal URL As String, ByVal ClickType As CleckerType)

        TypeC = ClickType

        Me.Url = New Uri(URL)

        AddHandler Me.DocumentCompleted, AddressOf OnDocumentLoaded

    End Sub

 

    Public Sub New()

        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", True)

        Dim name As String = AppDomain.CurrentDomain.FriendlyName

 

        If CObj(key.GetValue(name)) Is Nothing Then

            key.SetValue(name, 11001, RegistryValueKind.DWord)

        End If

 

        Me.ScriptErrorsSuppressed = True

        AddHandler tmr.Tick, New System.EventHandler(AddressOf tmr_Tick)

        tmr.Interval = 100

 

    End Sub

 

    Public Sub WebBrowser_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Me.NewWindow

        e.Cancel = True

    End Sub

 

    Public Sub OnDocumentLoaded(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)

        Try

            tStart = New Thread(New ThreadStart(AddressOf OnCheckerLoad))

            tStart.Start()

        Catch __unusedException1__ As Exception

            tStart.Start()

        End Try

    End Sub

 

    Protected Overridable Sub OnCheckerLoad()

        On Error Resume Next

        Application.DoEvents()

        Thread.Sleep(100)

        Me.BeginInvoke(New MethodInvoker(Function()

                                             tmr.Enabled = True

                                         End Function))

    End Sub

 

    Private StartChecker As Boolean = False

 

    Private Sub tmr_Tick(ByVal sender As Object, ByVal e As EventArgs)

        On Error Resume Next

 

        Dim CountStatus As String = Me.Document.GetElementById("countdown").GetAttribute("innerText")

        Dim CountParse As Integer = Num(CountStatus)

 

        If CountParse = 5 Then

            StartChecker = True

        End If

 

        If StartChecker = True Then

            If CountParse = 0 Then

                If TypeC = CleckerType.Image Then

                    Dim col As HtmlElementCollection

                    Dim ele As HtmlElement

 

                    col = Me.Document.GetElementsByTagName("img")

 

                    For Each ele In col

                        If ele.GetAttribute("alt") = "Skip Ad" Then

                            ele.InvokeMember("click")

                            StartChecker = False

                        End If

                    Next

 

                ElseIf TypeC = CleckerType.Button Then

                    For Each hem As HtmlElement In Me.Document.All

                        If hem.GetAttribute("id").Contains("skip_bu2tton") Then

                            hem.InvokeMember("Click")

                            StartChecker = False

                        End If

                    Next

                End If

 

            End If

        End If

    End Sub

 

    Private Function Num(ByVal value As String) As Integer

        Dim returnVal As String = String.Empty

        Dim collection As MatchCollection = Regex.Matches(value, "\d+")

        For Each m As Match In collection

            returnVal += m.ToString()

        Next

        Return Convert.ToInt32(returnVal)

    End Function

 

End Class