will this work? proxy click program...

[lopolop]

what this program does(or well trying to get too do) is like on a top site page or google adds... well on a tp site page you need unique clicks from differnt people... and for google ads its pay per click from different people.... now i created this....(not sure if actually works tho...)

expandcollapse popup

; ----------------------------------------------------------------------------
;
; Author: Lopolop
; Script Function: Changes Proxies to Click a Link
;
;
; Make sure to create a 'ProxyList.txt' that list your proxies.
;
; ----------------------------------------------------------------------------

; =+=+=+=+=+=+=+ 'Start' +=+=+=+=+=+=+= 
Global $QuitIt = HotKeySet ( "9", "QuitIt" )

; ---------- 'ProxyList.txt Setup' ----------
Global $ProxyFile = FileOpen ( "ProxyList.txt", 0 )

If $ProxyFile = -1 Then
MsgBox ( 0, "Error", "Unable to open ProxyList.txt." )
Exit
EndIf 

; ---------- 'Browser Setup' ----------
$Url = InputBox ( "Url Address", "Input Exact Http:// Address", "" )
If @ERROR = 1 Then Exit

Run ("C:\Program Files\Internet Explorer\iexplore.exe")

Sleep(7000)
MouseMove ( 114, 100, 1 )
MouseClick("Left", 114, 100, 1)
Send($Url , 0)
Send("{ENTER}")

; ---------- 'ClickIt' ----------
MouseMove ( 740, 200, 1 )
MouseClick("Left", 740, 200, 1)
MouseWheel ("down", 4)

;---------- 'QuitIt' ----------
Func QuitIt ()

FileClose ( $ProxyFile )
Exit

Return
EndFunc

; ---------- 'ClickIt Part 2' ----------
ReadProxyList ()

Func ReadProxyList ()

While 1

$Proxy = FileReadLine ( $ProxyFile )
If @ERROR = -1 Then ExitLoop

HttpSetProxy( 2, $Proxy )
Sleep(600)

MouseMove( 292,169, 1 )
sleep(200)
MouseClick( "Left" )
Sleep(2000)
MouseMove( 495, 293, 1 )
sleep(200)
MouseClick( "left" )
MouseMove( 40, 70)
Sleep(3000)
MouseClick( "Left", 40, 70)

Wend


FileClose ( $ProxyFile )

EndFunc

Now i had set the click coordinates to a test page but if you could test it out in your own way that would be great!

[lopolop]

Bump