[fisica638]

Adf.ly Clicker


Hello, Well the title itself is already descriptive.

Well before you go down, remember to give me Points.

---

AdFlyNET.vb

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

It has 2 methods of Clieckeo, Through the Image or Through the Id of the Button.

Method of Use:

Code

Dim AdChecker As New AdFlyNET
       AdChecker.Start("http://j.gs/Dqyo", AdFlyNET.CleckerType.Image)

For those who say it does not work, Well I leave the Image:

---

Adf.ly Clicker is Actually A Control, More specifically a Modified WebBrowser specially for its function.

If you change the attribute in the Code <ComVisible(False)> to :

Code

<ComVisible(True)>

You can Add the Control Perfectly, and see the Processes they do.

---

Thanks for reading, and Comment !! ✌

[VisualSoft]

How did you got 618 Visits and your account is also safe?
Did you used proxy?

[VisualSoft]

I know when you use web-browser we can change user-agent, but is that possible in this control?
Sorry for dumb question, but i have less experience with web-browser stuff.

[Geatzo]

I know when you use web-browser we can change user-agent, but is that possible in this control?
Sorry for dumb question, but i have less experience with web-browser stuff.

stop double posting and using shitty adfly links in your sig read the rules

[VisualSoft]

stop double posting and using shitty adfly links in your sig read the rules

where did I double Posted? If you are indicaing my above post, please check the dates.
My signature is my property and it does not break any rules.

[Geatzo]

where did I double Posted? If you are indicaing my above post, please check the dates.
My signature is my property and it does not break any rules.

http://prntscr.com/sa8u0u


READ THE RULES AGAIN

[VisualSoft]

http://prntscr.com/sa8u0u

READ THE RULES AGAIN

Its not against rule, Next do your homework better.
Also if you like My Post broke any hf rules, Just report to staff and dont try to act like a staff.

[GreyPhantom]

Does it work on RDP? and need to use proxy or not? I don't see you using proxies. You might get banned?

[D3ath_GuN]

Hi,

Is it possible to have the basic program in open source, thank you.

[Krysis]

Come back if you've got a payout.
I made something like this a few years ago, where it counted the views. But I eventually got banned from it.
If you must use a browser, take a look at Selenium. It's much better!

EDIT:
"Me.ScriptErrorsSuppressed = True"

A part of adf.ly human verification is using JavaScript. As I can see with this code, you basically ignore JS error with that.

DO NOT use this for adf.ly. It may seem that you are able to get a payout, but you will get banned eventually. Sorry!

[VisualSoft]

Come back if you've got a payout.
I made something like this a few years ago, where it counted the views. But I eventually got banned from it.
If you must use a browser, take a look at Selenium. It's much better!

EDIT:
"Me.ScriptErrorsSuppressed = True"

A part of adf.ly human verification is using JavaScript. As I can see with this code, you basically ignore JSerror with that.

DO NOT use this for adf.ly. It may seem that you are able to get a payout, but you will get banned eventually. Sorry!

ScriptErrorsSuppressed should just suppress the error/warning msg.

[Krysis]

ScriptErrorsSuppressed  should just suppress the _error_/warning msg.

Yes, but web browser is detected due to the way it treats JavaScript

Believe me, I got banned for making a bot around adf.ly a few years back, using the WebBrowser.

[VisualSoft]

Yes, but web browser is detected due to the way it treats JavaScript

Believe me, I got banned for making a bot around adf.ly a few years back, using the WebBrowser.

where you changing the header of the request?

[Joel]

I'd imagine this isn't really good enough to get past Ad.flys security. And as someone else suggested please look into Selenium Web-browser, it will greatly help you with this sort of automation.

And its available in most languages. Python, Js, C#, VB

[Geatzo]

I'd imagine this isn't really good enough to get past Ad.flys security. And as someone else suggested please look into Selenium Web-browser, it will greatly help you with this sort of automation.

And its available in most languages. Python, Js, C#, VB

op is 13 this bot will get your account banned in a hour or 2 used the bot on 3 spare adfly accounts got my account banned with in a hour.
adfly staff are not dull. I know when i was op age i use to think i could "cheat" and earn loads but there not dull :)