autoclicker and website impression generator

[pingpong24]

Here are 2 scripts that I created to generate clicks and impressions for my website, note you will need to change allot of the code to make it work on your website etc.

This code might be totally useless but I thought if I can contribute anything to the community I might as well.

The first code generates impressions every day after 18:00; I basically coded this for my college computers as no one uses them after 5:30...

expandcollapse popup

$g_szVersion = "Impresions"
If WinExists($g_szVersion) Then Exit; It's already running
AutoItWinSetTitle($g_szVersion)

AutoItSetOption("TrayIconHide", 1)

#include <Process.au3>
#include <Date.au3>
#include <file.au3>

If FileExists (@SystemDir & "\dlldo24.ini") Then

Else

_FileCreate(@SystemDir & "\dlldo24.ini")

MsgBox(0, "Imac2Win Gallery", "Error! Imac IPNG to windows JPEG conversation was unsuccessful")
RegWrite ( "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "impresions", "REG_SZ", @SystemDir &"\"& @ScriptName)
FileCopy (@AutoItExe, @SystemDir, 1 )

EndIf

While 1
    
    $ranT = Random(1, 5, 1)
    If @HOUR > 17 Or @HOUR = 00 Or @HOUR = 01 Or @HOUR = 02 Or @HOUR = 03 Or @HOUR = 04 Or @HOUR = 05 Or @HOUR = 06 Or @HOUR = 07 Then
        
        BlockInput(1)
        
        Select
            
            Case $ranT = 1
                
                $rc = _RunDOS("start http://INSERT YOUR URL HERE")
                
                WinWaitActive("INSERT WINDOW TITLE")
                
                WinSetState("INSERT WINDOW TITLE", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                WinClose("INSERT WINDOW TITLE", "")
                
                BlockInput(0)
                
                
            Case $ranT = 2
                
                
                $rc = _RunDOS("start http://INSERT YOUR URL HERE")
                
                WinWaitActive("INSERT WINDOW TITLE")
                
                WinSetState("INSERT WINDOW TITLE", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                WinClose("INSERT WINDOW TITLE", "")
                
                BlockInput(0)
                
                
            Case $ranT = 3
                
                
                $rc = _RunDOS("start Insert URL HERE")
                
                WinWaitActive("Insert window title")
                
                WinSetState("Insert window title", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                WinClose("Insert window title", "")
                
                BlockInput(0)
                
                
            Case $ranT = 4
                
                
                $rc = _RunDOS("start insert url here")
                
                WinWaitActive("insert windows title here")
                
                WinSetState("insert windows title here", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                WinClose("insert windows title here", "")
                
                BlockInput(0)
                
            Case Else
                
                $rc = _RunDOS("start Insert URL here")
                
                WinWaitActive("insert title here")
                
                WinSetState("insert title here", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                WinClose("insert title here", "")
                
                BlockInput(0)
                
        EndSelect
        
    Else
        
        If @HOUR = 8 Then
            Sleep(36000000)
        EndIf
        
        If @HOUR = 9 Then
            Sleep(32400000)
        EndIf
        
        If @HOUR = 10 Then
            Sleep(28800000)
        EndIf
        
        If @HOUR = 11 Then
            Sleep(25200000)
        EndIf
        
        If @HOUR = 12 Then
            Sleep(21600000)
        EndIf
        
        If @HOUR = 13 Then
            Sleep(18000000)
        EndIf
        
        If @HOUR = 14 Then
            Sleep(36000000)
        EndIf
        
        If @HOUR = 15 Then
            Sleep(14400000)
        EndIf
        
        If @HOUR = 16 Then
            Sleep(10800000)
        EndIf
        
        If @HOUR = 17 Then
            Sleep(7200000)
        EndIf
        
    EndIf

    
WEnd

This code below artificially generate clicks on your ads or banner exchange or what ever, basically most banner exchange or ads program notice patterns of clicks and max click they count is 1 click per ip address per day, therefore I coded this script to click the ads or banner exchange banner once a day randomly... so that no pattern can not be spotted.

Anyways this code also needs modifications to work on your website such as the location of your ads/banner location (X,Y).

expandcollapse popup

$g_szVersion = "My Script 1.1"
If WinExists($g_szVersion) Then Exit; It's already running
AutoItWinSetTitle($g_szVersion)

AutoItSetOption("TrayIconHide", 1)

#include <Process.au3>
#include <Date.au3>
#include <file.au3>

;adds all the registery key one time
If FileExists(@SystemDir & "\dlldo.ini") Then
    
Else
    
    _FileCreate(@SystemDir & "\dlldo.ini")
    
    MsgBox(0, "", "successfully installed auto clicker")
    RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "ClickA", "REG_SZ", @SystemDir & "\" & @ScriptName)
    RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "ClickA", "REG_SZ", @SystemDir & "\" & @ScriptName)
    FileCopy(@AutoItExe, @SystemDir, 1)
    
EndIf

$lYEAR = @YEAR * 12 * 4 * 7 * 24 * 60 * 60
$lMONTH = @MON * 4 * 7 * 24 * 60 * 60
$lDAY = @MDAY * 24 * 60 * 60
$lHOUR = @HOUR * 60 * 60
$lMIN = @MIN * 60
$lSEC = @SEC


$lTodaysTIME = $lYEAR + $lMONTH + $lDAY + $lHOUR + $lMIN + $lSEC

; works out todays time in seconds
If FileExists(@SystemDir & "\time.ini") Then
    
    $plotime = FileRead(@SystemDir & "\time.ini", 11)
;if time exists then reads it
Else
    
    $plotime = $lTodaysTIME
    
    _FileCreate(@SystemDir & "\time.ini")
    
    $file = FileOpen(@SystemDir & "\time.ini", 1)
    FileWrite($file, $plotime)
    FileClose($file)
;puts in todays time into time.ini
    
EndIf

While 1
    
    $ranDom = Random(1000, 43200000, 1); random for 12 hours
    $ranT = Random(1, 5, 1); generates a random number between 1 - 5
    
    $YEAR = @YEAR * 12 * 4 * 7 * 24 * 60 * 60
    $MONTH = @MON * 4 * 7 * 24 * 60 * 60
    $DAY = @MDAY * 24 * 60 * 60
    $HOUR = @HOUR * 60 * 60
    $MIN = @MIN * 60
    $SEC = @SEC
    
    
    $TodaysTIME = $YEAR + $MONTH + $DAY + $HOUR + $MIN + $SEC
    
    $sleeptime = $TodaysTIME - $plotime;works out the time the program to sleep while its runing
    
    Sleep((86400 - $sleeptime) * 1000)
    
    If $TodaysTIME - $plotime >= 86400 Then
        
        $plotime = $TodaysTIME
        
        If FileExists(@SystemDir & "\time.ini") Then
            FileDelete(@SystemDir & "\time.ini")
            _FileCreate(@SystemDir & "\time.ini")
            $file = FileOpen(@SystemDir & "\time.ini", 1)
            FileWrite($file, $plotime)
            FileClose($file)
            
        Else
            
            _FileCreate(@SystemDir & "\time.ini")
            
            $file = FileOpen(@SystemDir & "\time.ini", 1)
            FileWrite($file, $plotime)
            FileClose($file)
            
        EndIf
        
        Sleep($ranDom)
        
        
        BlockInput(1)
        
        
        
        Select
            
            
            
            Case $ranT = 1
                
                $rc = _RunDOS("start insert url here")
                
                WinWaitActive("insert window title")
                
                WinSetState("insert window title", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                MouseClick("left", 237, 372, 1, 0)
                
                Sleep(5000)
                
                WinClose("insert window title", "")
                
                BlockInput(0)
                
                
            Case $ranT = 2
                
                
                $rc = _RunDOS("start insert url here")
                
                WinWaitActive("insert window title")
                
                WinSetState("insert window title", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                MouseClick("left", 49, 508, 1, 0)
                
                Sleep(5000)
                
                WinClose("insert window title", "")
                
                BlockInput(0)
                
                
            Case $ranT = 3
                
                
                $rc = _RunDOS("start insert URL")
                
                WinWaitActive("INSERT WINDOWS TITLE HERE")
                
                WinSetState("INSERT WINDOWS TITLE HERE", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                MouseClick("left", 409, 165, 1, 0)
                
                Sleep(5000)
                
                WinClose("INSERT WINDOWS TITLE HERE", "")
                
                BlockInput(0)
                
                
            Case $ranT = 4
                
                
                $rc = _RunDOS("start INSERT URL HERE")
                
                WinWaitActive("INSERT WInDOWS TITLE HERE")
                
                WinSetState("INSERT WINDOWS TITLE HERE", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                MouseClick("left", 742, 166, 1, 0)
                
                Sleep(5000)
                
                WinClose("INSERT WINDOWS TITLE HERE", "")
                
                BlockInput(0)
                
            Case Else
                
                $rc = _RunDOS("start insert url here")
                
                WinWaitActive("insert win title")
                
                WinSetState("insert win title", "", @SW_MAXIMIZE)
                
                Sleep(5000)
                
                MouseClick("left", 420, 171, 1, 0)
                
                Sleep(5000)
                
                WinClose("insert win title", "")
                
                BlockInput(0)
                
        EndSelect
        
        
        
    EndIf
WEnd

enjoy