Why Click it, If you can script it?
While 10,000 ecpm can earn you $0.40, one wonders how much it takes to actually earn...
A sequel to my previous post on my recent fascination on ecpm, page loads doesn't mean much if either the page loads are in millisecond and no links in the pages are clicked or the search option was utilized...
Adding an extra function allows the page loads to have a little extra sense as not only page loads will be peformed, but hey... even the search option is populated with a query string (maybe from an array, etc...)... and an added trick to perform the click to actually perform the query...
To fill up the input for the search utility:
.Document.All.tags("INPUT")("q").Value = searchKey
To Click the search button:
Set sButt = .Document.getElementsByTagName("INPUT")
For Each Butt in sButt
If LCase(Butt.getAttribute("value")) = "search" Then
Butt.Click
Exit For
End If
Next
If this makes sense and actually is acceptable, why not click on all the links in the result page to add up to your ecpm queries...
Set xLinx = .Document.getElementsByTagName("a")
For Each Linx In xLinx
Linx.Click
Next
Note: Make sure that your site setting is to load the results in the same page, rather than popping up new windows... or else you will flood your screen with tons of ie windows... hahaha... (this, even if .visible=0)
A terminate process will help in getting rid of all the unwanted window popups:
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'Iexplore.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Note: Do this after each page finishes loading after the click.
A draw back is that all your cookies and such are tracked, hence after numerous reloads and queries it might be detected as a viral activity, solution... clear your tracks...
First, get you cache path from your registry:
CachePath = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Paths\Directory")
Then parse through the folders to delete all cache:
Set rootFolder = fso.GetFolder(CachePath)
Set subFolders = rootFolder.SubFolders
For Each folder in subFolders
fso.DeleteFolder(folder)
Next
You may reuse the same to delete the remaining files in the rootfolder. Just replace .SubFolders to .Files.
There you go...
As easy as it looks like and as cool as it may seem, this will not guarantee that you will actually earn anything based on pageloads and queries... ecpm is not as easily attainable although your site is now generating billions of pageloads\month...
And knowing how M$oft Internet Explorer sucks bigtime, you know that it will crash alot if you execute this like 10,000 times????
Anyway, I use Opera and Firefox 50/50... I only use IE to test my scripts to see how long it will take to crash it...
Good luck!
If your first attempt fails, call it version 1.0
