I once made an add-clicker.. Not sure whether I posted it on the forums. I can givez you code though (It probably won't work):
program Hoi;
{ Ref links :
<url>
[url]http://adbux.org/register.php?r=mastaraymond[/url]
[url]http://bux.to/?r=mastaraymond[/url]
[url]http://www.topbux.org/?r=mastaraymond[/url]
[url]http://www.linkgrand.com/?r=68343[/url]
[url]http://www.DailyClicks.biz/?r=mastaraymond[/url]
[url]http://clix4coins.com/index1.php?ref=mastaraymond[/url]
[url]http://www.clixsense.com/?2346656[/url]
[url]http://www.cash-linkz.com/?r=mastaraymond[/url]
[url]http://2bux.com/?r=mastaraymond[/url]
[url]http://bux3.com/?r=mastaraymond[/url]
[url]http://www.easy.tc/?r=mastaraymond[/url]
[url]http://www.paytoclick.biz/register.php?r=mastaraymond[/url]
[url]http://www.getref.com/index.asp?id=MASTARAYMOND[/url]
[url]http://www.myrealcash.net/register.php?XID=17866[/url]
//For the dutch ones
[url]http://www.goudmails.nl/?refid=mastaraymond[/url]
[url]http://www.moneymiljonair.nl/registreren.php?ref=rayvanve[/url]
[url]http://www.zinngeld.nl/index.php?page=signup&reflink=mastaraymond[/url]
[url]http://www.euroclix.nl:80/app?Ref=164044[/url]
[url]http://www.geldrace.nl/leden/geldrace/aanmelden?referral=163568&1[/url]
</url>
}
Const
DoAdBux = True;
DoBux = True;
DoTopBux = False; //Not tested yet.. Never got ads, lol.
Dolinkgrand = True;
DoDailyClicks = False;
DoClix = True; //Clix4Coins
DoClixSense = True;
DoCashLinkz = True; //Cash-linkz
DoBux3 = True;
DoEasyTC = True;
DoWordLinx = True;
DoPayToClick = True;
DoGetRef = True;
DoMyRealCash = False;
Const
WordLinxUserName = '';
WordLinxPassword = '';
LinkUserName = '';
LinkPassWord = '';
ClixUserName = '';
ClixPassWord = '';
CashUserName = '';
CashPassWord = '';
GetRefusername = '';
GetRefPassword = '';
Const
WM_Browser = 8355;
WM_SYSCOMMAND = $0112;
WM_CLOSE = $0010;
SC_MINIMIZE = 61472;
SC_MAXIMIZE = 61488;
SC_RESTORE = 61728;
READYSTATE_UNINITIALIZED = 0;
READYSTATE_LOADING = 1;
READYSTATE_LOADED = 2;
READYSTATE_INTERACTIVE = 3;
READYSTATE_COMPLETE = 4;
navOpenInNewWindow = $00000001;
navNoHistory = $00000002;
navNoReadFromCache = $00000004;
navNoWriteToCache = $00000008;
navAllowAutosearch = $00000010;
navBrowserBar = $00000020;
Type
ItemArray = Array of record
Tag, OuterHtml : String;
end;
BrowserInfo = Record
Handle : Array of HWND;
Total : Integer;
end;
BrowserForm = Record
Name : String;
Fields : Array of Record
Tag, Name,Value : String;
end;
end;
var
Dump : TVariantArray;
Handle : HWND;
AdBuxWaitTime ,BuxWaitTime,Bux3WaitTime,EasyTCWaitTime, TopBuxWaitTime,LinkGrandWaitTime,DailyWaitTime,ClixWaitTime,
WordLinxWaitTime,GetRefWaitTime, MyRealCashWaitTime,
PayToClickWaitTime, ClixSenseWaitTime,CashLinkzWaitTime : Integer;
Browsers : BrowserInfo;
var
I,J,K,P : integer;
TempSTR,TmpSTR : String;
LinkGrandUrl,BuxUrl,Bux3Url, EasyTCUrl,CashLinkzUrl, WordLinxVisited, CashVisited, GlobalVisited,
Glob2Visited, GetRefVisited,Global4Visited : String;
Str : ItemArray;
Strss,Linkz : TStringArray;
Bool : Boolean;
Function ConverToPoint(x,y : integer) : Integer;
begin
Result := x or (y shl 16);
end;
const
Raymond = 1337;
function BrowserState(Handle : HWND) : Integer;
begin;
SetLength(Dump,1);
SendMessage(Handle, wm_Browser,1,0);
Result := Dump[0];
SetLength(Dump,0);
end;
Procedure BrowserWait(Handle : HWND; TimeOut : Integer);
var
Timer : Integer;
begin;
SetLength(Dump,1);
Timer := GetSystemTime;
Repeat
Wait(337);
SendMessage(Handle, wm_Browser,1,0);
until (Dump[0] = READYSTATE_COMPLETE) or ((GetSystemTime - Timer) > TimeOut)
SetLength(Dump,0);
end;
Procedure BrowserNavigate(Handle: HWND; url : String; WaitUntilLoaded : boolean; TimeOut : Integer);
var
Timer : Integer;
begin;
Dump := [Url];
SendMessage(Handle, wm_browser,0,0);
if not WaitUntilLoaded then
exit;
Timer := GetSystemTime;
Repeat
Wait(250);
SendMessage(Handle, wm_Browser,1,0);
until (Dump[0] = READYSTATE_COMPLETE) or ((GetSystemTime - Timer) > TimeOut)
SetLength(Dump,0);
end;
Procedure BrowserNavigateFlags(Handle: HWND; url : String; Flags : Integer; WaitUntilLoaded : boolean; TimeOut : Integer);
var
Timer : Integer;
begin;
Dump := [Url, Flags];
SendMessage(Handle, wm_browser,29,0);
if not WaitUntilLoaded then
exit;
Timer := GetSystemTime;
Repeat
Wait(250);
SendMessage(Handle, wm_Browser,1,0);
until (Dump[0] = READYSTATE_COMPLETE) or ((GetSystemTime - Timer) > TimeOut)
SetLength(Dump,0);
end;
Function BrowserGetSource(Handle: HWND): String;
begin;
SetLength(Dump,1);
SendMessage(Handle,wm_browser,2,0);
Result := Dump[0];
SetLength(Dump,0);
end;
Type
BrowserActions = (Hide,Show,Minimize,Maximize,Close,Restore);
Procedure BrowserAction(Handle: HWND; Action : BrowserActions);
begin;
Case Action of
Minimize : SendMessage(Handle,WM_SYSCOMMAND, SC_MINIMIZE,0);
Maximize : SendMessage(Handle,WM_SYSCOMMAND, SC_MAXIMIZE,0);
Restore : SendMessage(Handle,WM_SYSCOMMAND,SC_RESTORE,0);
Close : SendMessage(Handle,WM_Close,0,0);
Hide : SendMessage(Handle, WM_Browser, 10, 1);
Show : SendMessage(Handle, WM_Browser, 10, 0);
end;
end;
Procedure BrowserScreenShot(Handle: HWND; xs,ys,xe,ye : integer);
var
Bmp : integer;
begin;
Bmp := BitmapFromString(xe - xs + 1,ye - ys + 1,'');
SetLength(Dump,2);
Dump[1] := GetBitmapDc(BMP);
Dump[0] := xe or (ye shl 16);
SendMessage(Handle, WM_Browser, 4, xs or (ys shl 16));
DisplayDebugImgWindow(xe - xs + 1,ye - ys + 1);
SafeCopyCanvas(GetBitmapCanvas(BMP),GetDebugCanvas,0,0,xe - xs + 1,ye - ys + 1,0,0,xe - xs + 1,ye - ys + 1);
SetLength(Dump,0);
end;
Procedure BrowserScreenshotItem(Handle: HWND; Num : integer);
var
I : integer;
begin;
SetLength(Dump,3);
SendMessage(Handle, WM_Browser, 7,Num);
BrowserScreenShot(Handle, Dump[0],Dump[1],Dump[0] + Dump[2],Dump[1] + Dump[3]);
SetLength(Dump,0);
end;
Procedure BrowserScreenItemFrame(Handle: HWND;Num : Integer; Frame : Integer);
var
I : integer;
begin;
SetLength(Dump,3);
Dump[0] := Frame;
SendMessage(Handle, WM_Browser, 12,Num);
For I := 0 to 3 do
Writeln(Dump[I]);
BrowserScreenShot(Handle, Dump[0],Dump[1],Dump[0] + Dump[2],Dump[1] + Dump[3]);
SetLength(Dump,0);
end;
Function BrowserGetLinks(Handle: HWND): TStringArray;
var
I , Len : integer;
begin;
SendMessage(Handle, WM_Browser, 5,0);
Len := High(Dump);
SetLength(Result,Len + 1);
For I := 0 to Len do
Result[I] := Dump[I];
SetLength(Dump,0);
end;
Function BrowserGetItems(Handle: HWND): ItemArray;
var
I , Len : integer;
begin;
SendMessage(handle, wm_browser,6,0);
Len := Length(Dump) div 2;
SetLength(Result, Len);
For I := 0 to Len - 1 do
begin;
Result[I].Tag := Dump[I * 2];
Result[I].OuterHTML := Dump[I * 2 + 1];
end;
SetLength(Dump,0);
end;
Function BrowserGetItemsFrame(Handle: HWND; Frame : integer): ItemArray;
var
I , Len : integer;
begin;
SendMessage(handle, wm_browser,13,Frame);
Len := Length(Dump) div 2;
SetLength(Result, Len);
For I := 0 to Len - 1 do
begin;
Result[I].Tag := Dump[I * 2];
Result[I].OuterHTML := Dump[I * 2 + 1];
end;
SetLength(Dump,0);
end;
Function BrowserUrl(Handle: HWND) : String;
begin;
SetLength(Dump,1);
SendMessage(Handle,wm_browser,8,0);
Result := Dump[0];
SetLength(Dump,0);
end;
Function BrowserFormLength(Handle : HWND) : Integer;
begin;
SetLength(Dump,1);
Sendmessage(Handle,wm_browser,14,0);
Result := Dump[0];
SetLength(Dump,0);
end;
Procedure BrowserSetFormField(Handle : HWND; Form : Integer; Field : integer; Value : String);
begin;
SetLength(Dump,2);
Dump[0] := Value;
Dump[1] := Field;
SendMessage(Handle, wm_browser,16, Form);
SetLength(Dump,0);
end;
Procedure BrowserSubmitForm(Handle : HWND; Form : integer);
begin;
SendMessage(Handle, wm_browser,17,form);
end;
Function BrowserGetFormInformation(Handle : HWND; Form : Integer) : BrowserForm;
var
I,Len : integer;
begin;
SendMessage(Handle, wm_browser,15,Form);
Len := High(Dump);
Result.Name := Dump[0];
Len := Len div 3 - 1;
SetLength(Result.Fields,Len + 1);
For I := 0 to Len do
begin;
Result.Fields[I].Tag := Dump[I*3 + 1];
Result.Fields[I].Name:= Dump[I*3 + 2];
Result.Fields[I].Value:= Dump[I*3 + 3];
end;
end;
Function BrowserGetFrameLinks(Handle : HWND; FrameNum : integer):TStringArray;
var
I , Len : integer;
begin;
SendMessage(Handle, WM_Browser, 19,FrameNum);
Len := High(Dump);
SetLength(Result,Len + 1);
For I := 0 to Len do
Result[I] := Dump[I];
SetLength(Dump,0);
end;
Function BrowserGetFrames(Handle : HWND) : TStringArray;
var
I : integer;
begin;
SetLength(Dump,0);
SendMessage(Handle,wm_browser,11,0);
SetLength(Result,Length(Dump));
For I := 0 to High(Dump) do
Result[I] := Dump[I];
end;
Function BrowserGetFramesLength(Handle : HWND) : Integer;
begin;
SetLength(Dump,1);
SendMessage(Handle, wm_browser,23,0);
Result := Dump[0];
SetLength(Dump,0);
end;
Function BrowserGetFrameState(Handle : HWND; FrameNum : integer) : integer;
begin;
SetLength(Dump,1);
SendMessage(Handle, WM_Browser,25,FrameNum);
Result := Dump[0];
SetLength(Dump,0);
end;
Procedure BrowserFrameSubmitForm(Handle : HWND; FrameNumber, FormNumber : integer);
begin;
Dump := [ FrameNumber, FormNumber];
SendMessage(Handle, wm_browser,26,0);
SetLength(Dump,0);
end;
Procedure BrowserPostPage(Handle : HWND; Url : String; Values : TStringArray; TimeOutWait : integer);
var
I,Len,Timer : Integer;
begin;
SetLength(dump,0);
Len := Length(Values) + 1;
SetLength(Dump,Len);
For I := 1 to Len - 1 do
Dump[I] := Values[I - 1];
Dump[0] := Url;
SendMessage(Handle, WM_Browser,18,0);
SetLength(Dump,1);
Timer := GetSystemTime;
Repeat
Wait(50);
SendMessage(Handle, wm_Browser,1,0);
until (Dump[0] = READYSTATE_COMPLETE) or ((GetSystemTime - Timer) > TimeOutWait)
SetLength(Dump,0);
end;
Procedure BrowserInformation(Handle : HWND; Information : String);
begin;
Dump := [Information];
SendMessage(Handle, WM_Browser,9,0);
SetLength(DUmp,0);
end;
Procedure BrowserClickItem(Handle : HWND; Item : Integer);
begin;
SendMessage(Handle, wm_browser, 28, Item);
end;
Procedure BrowserStopLoading(Handle : HWND);
begin;
SendMessage(Handle,wm_browser,21,0);
end;
Procedure BrowserStopFrameLoading(Handle : HWND; FrameNum : integer);
begin;
SendMessage(Handle, WM_Browser,22,FrameNum);
end;
Procedure BrowserLoadHTML(Handle : HWND; HTML : String);
begin;
Setlength(Dump,1);
Dump[0] := HTML;
SendMessage(Handle, wm_browser,24,0);
SetLength(Dump,0);
end;
function BrowserCookies(Handle : HWND) : string;
begin;
SetLength(Dump,1);
SendMessage(Handle, wm_browser,32,0);
Result := Dump[0];
SetLength(Dump,0);
end;
Function BrowserLoad : HWND;
begin;
Result := ShowDllForm(Dump, Browsers.Total);
SetLength(Browsers.Handle, Browsers.Total + 1);
Browsers.Handle[Browsers.Total] := Result;
Inc(Browsers.Total);
end;
Function MinArray(Arr : TIntegerArray): Integer;
var
I,L : Integer;
begin;
L := high(Arr);
Result := High(1);
For I:= 0 to L do
if (Arr[I] < Result) and (Arr[I] > 0) then
Result := Arr[I];
end;
Procedure ActivateBrowser(Handle : HWND);
begin;
BrowserAction(Handle, Restore);
SetClientWindowHandle(Handle);
Wait(1337);
ActivateClient;
SetOnTop(Handle,True);
Wait(50);
SetOnTop(Handle,false);
end;
Procedure BrowserNavigateFrame(Handle : HWND;Url : String; FrameNumber : integer);
begin;
SetLength(Dump,1);
Dump[0] := Url;
SendMessage(Handle, wm_browser,31,FrameNumber);
SetLength(Dump,0);
end;
Procedure StopFrames(Handle : HWND; FrameNums : TIntegerArray);
var
Inversed : TIntegerArray;
Len,I,II,Len2 : integer;
begin;
Repeat
Wait(10);
until (BrowserState(Handle) > 2);
II := 0;
Len2 := High(FrameNums);
Repeat
For I := 0 to Len2 do
if FrameNums[I] > - 1 then
if (BrowserGetFrameState(Handle, FrameNums[I])> 0) then
begin;
BrowserNavigateFrame(Handle,'about:blank', FrameNums[I]);
FrameNums[I] := -1;
end;
Wait(10);
For I := 0 to Len2 do
if FrameNums[I] > -1 then
Break;
if II > 200 then
Exit;
Inc(II);
until I > Len2;
{
II := 0;
Len2 := High(FrameNums);
Repeat
For I := 0 to Len2 do
if FrameNums[I] > - 1 then
if (BrowserGetFrameState(Handle, FrameNums[I])= READYSTATE_LOADING) then
begin;
BrowserNavigateFrame(Handle,'about:blank', FrameNums[I]);
FrameNums[I] := -FrameNums[I] - 1;
end;
Wait(50);
For I := 0 to Len2 do
if FrameNums[I] > -1 then
Break;
if II > 200 then
Exit;
Inc(II);
until I > Len2;
For I := 0 to Len2 do
FrameNums[I] := iabs(FrameNums[I]) - 1;
Len := BrowserGetFramesLength(Handle);
SetLength(Inversed,0);
For I := 0 to Len-1 do
begin;
For II := 0 to Len2 do
if FrameNums[II] = I then
break;
if II > Len2 then
begin;
SetLength(Inversed,Length(Inversed) + 1);
Inversed[High(Inversed)] := I;
end;
end;
Len2 := High(InverSed);
Repeat
Wait(50);
For I := 0 to Len2 do
if (BrowserGetFrameState(Handle,Inversed[I]) < 4) then
Break;
until I > Len2; }
end;
Procedure NavigateStopFrames(Handle : HWND; Url : String;TimeOut : Integer; FrameNums : TINtegerArray);
begin;
BrowserNavigate(Handle,URL,False,0);
StopFrames(Handle,FrameNums);
BrowserWait(Handle,TimeOut);
end;
Procedure NavigateStopFrame(Handle : HWND; Url : String;TimeOut : Integer; FrameNum : integer);
begin;
BrowserNavigate(Handle,URL,False,0);
StopFrames(Handle,[FrameNum]);
BrowserWait(Handle,TimeOut);
end;
Procedure NavigateFlagsStopFrame(Handle : HWND; Url : String; Flag : Integer;TimeOut : Integer; FrameNum : integer);
begin;
BrowserNavigateFlags(Handle,URL,Flag,False,0);
StopFrames(Handle,[FrameNum]);
BrowserWait(Handle,TimeOut);
end;
Procedure Login(Url,Text : string);
var
TempSTR : String;
I : integer;
begin;
BrowserInformation(Handle, 'Please log in..');
BrowserNavigate(Handle,Url,false,120000);
ActivateBrowser(Handle);
I := 0;
Repeat
TempSTR := '';
Wait(5000 + Random(1337));
TempSTR := BrowserGetSource(Handle);
I := I + 1;
until ((pos(Text,TempSTR) > 0) or (I > 20));
BrowserInformation(Handle, 'Logged in succesfully.');
end;
Procedure BuxAdClick(Url : String; Var Timer : Integer);
begin;
Bool := False;
BrowserNavigateFlags(Handle, Url,navNoReadFromCache or navNoWriteToCache,true, 50000);
BrowserWait(Handle,90000);
Strss := BrowserGetLinks(Handle);
For I := 0 to High(Strss) do
if Pos('view.php?',Strss[I]) > 0 then
if Pos(Strss[I], Global4Visited) < 1 then
begin;
Bool := True;
Global4Visited := Global4Visited + Strss[I];
NavigateStopFrame(Handle, Strss[I],120000,1);
TempSTR := LowerCase(BrowserGetSource(Handle));
if pos('var x = ',TempSTR) > 0 then
begin;
J := pos('var x = ',TempSTR);
Timer := GetSystemTime + (StrToIntDef(GetNumbers(Copy(TempSTR, J + 8, PosEx(';', TempSTr,J) - j - 8)),100) * 1000);
end else
Timer := GetSystemTime + 100000 + Random(20000);
Wait(Timer - GetSystemTime);
Timer := GetSystemTime + 30000 + random(50000);
break;
end;
if not bool then
Timer := GetSystemTime + ((random(10) + 5) * 60 * 1000);
end;
Procedure RepeatWaitLoop(PosStr : String; UntilFound : Boolean);
begin;
Repeat
TempSTR := '';
Wait(1337 + Random(1337));
TempSTR := LowerCase(BrowserGetSource(Handle));
until ((Pos(posstr, TempSTR) > 0) = UntilFound)
end;
Procedure Bux2AdClick(Url,AdPos : String; Var Timer : Integer);
begin;
Bool := False;
BrowserNavigateFlags(Handle, Url,navNoReadFromCache or navNoWriteToCache,true, 50000);
BrowserWait(Handle,90000);
Strss := BrowserGetLinks(Handle);
For I := 0 to High(Strss) do
if Pos(AdPos,Strss[I]) > 0 then
if Pos(Strss[I], GlobalVisited) < 1 then
begin;
Bool := True;
GlobalVisited := GlobalVisited + Strss[I];
NavigateStopFrame(Handle, Strss[I],120000,1);
TempSTR := LowerCase(BrowserGetSource(Handle));
if Pos('error', TempSTR) < 1 then
RepeatWaitLoop('var x = ', True);
TempSTR := LowerCase(BrowserGetSource(Handle));
if pos('var x = ',TempSTR) > 0 then
begin;
J := pos('var x = ',TempSTR);
Timer := GetSystemTime + (StrToIntDef(GetNumbers(Copy(TempSTR, J + 8, PosEx('var y', TempSTr,J) - j - 8)),100) * 1000)
end else
Timer := GetSystemTime + 100000 + Random(20000);
Wait(Timer - GetSystemTime);
Timer := GetSystemTime + 30000 + random(50000);
break;
end;
if not bool then
Timer := GetSystemTime + ((random(10) + 5) * 60 * 1000);
end;
procedure ScriptTerminate;
begin;
BrowserAction(Handle, Close);
end;
begin
Handle := BrowserLoad;
BrowserInformation(Handle, 'Checking wether logged in');
if DoMyRealCash then
begin;
BrowserNavigate(Handle,'http://www.myrealcash.net/',true, 30000);
TempSTR := LowerCase(BrowserGetSource(Handle));
if Pos('logout',TempStr) < 1 then
Login('http://www.myrealcash.net/login.php','logout');
end;
if DoGetRef then
begin;
BrowserNavigate(Handle, 'http://www.getref.com/' , True , 60000);
BrowserSetFormField(Handle,0,0, GetRefusername);
BrowserSetFormField(Handle,0,1, GetRefPassword);
BrowserSubmitForm(Handle,0);
BrowserNavigate(Handle,'http://www.getref.com/earn.asp',True, 120000);
end;
if DoCashLinkz then
begin;
BrowserNavigate(Handle,'http://www.cash-linkz.com/',true,60000);
TempSTR := Lowercase(BrowserGetSource(Handle));
if Pos('logout',TempStr) < 1 then
begin;
BrowserNavigate(Handle,'http://www.cash-linkz.com/login.php',true,60000);
BrowserPostPage(Handle, 'http://www.cash-linkz.com/login.php',['username',
CashUsername,'password',CashPassword],10000);
RepeatWaitLoop('logout', True);
end;
TempSTR := BrowserGetSource(Handle);
I := LastPosEx('href="',TempSTR,Pos('Surf Ads',TempSTR)) + 6;
CashLinkzUrl := 'http://www.cash-linkz.com/' + (copy(TempSTR, I , PosEx('"',TempSTR,I) - I));
if Length(BuxUrl) > 200 then
CashLinkzUrl := 'about:blank';
end;
if DoDailyClicks then
begin;
BrowserNavigate(Handle,'http://www.dailyclicks.biz/',true,15000);
TempSTR := LowerCase(BrowserGetSource(Handle));
if Pos('logout',TempStr) < 1 then
Login('http://www.dailyclicks.biz/login.php','logout');
end;
if DoPayToClick then
begin;
BrowserNavigate(Handle, 'http://paytoclick.biz/' , True , 60000);
if Pos('logout', LowerCase(BrowserGetSource(Handle))) < 1 then
Login('http://paytoclick.biz/login.php?r=','logout');
end;
if DoAdBux then
begin;
BrowserNavigate(Handle,'http://adbux.org/',true, 30000);
TempSTR := BrowserGetSource(Handle);
if Pos('logout',TempStr) < 1 then
Login('http://adbux.org/login.php?r=','logout');
end;
if DoTopBux then
begin;
BrowserNavigate(Handle,'http://www.topbux.org/',true, 30000);
TempSTR := BrowserGetSource(Handle);
if Pos('logout',TempStr) < 1 then
Login('http://www.topbux.org/login.php','logout');
end;
if DoBux Then
begin;
BrowserNavigate(Handle,'http://bux.to/index.php',true, 30000);
TempSTR := BrowserGetSource(Handle);
if Pos('logout',TempStr) < 1 then
Login('http://bux.to/login.php','logout');
TempSTR := BrowserGetSource(Handle);
I := LastPosEx('href="',TempSTR,Pos('Surf Ads',TempSTR)) + 6;
BuxUrl := 'http://bux.to/' + (copy(TempSTR, I , PosEx('"',TempSTR,I) - I));
if Length(BuxUrl) > 200 then
BuxUrl := 'about:blank';
end;
if DoEasyTC then
begin;
BrowserNavigate(Handle,'http://www.easy.tc/',true, 30000);
TempSTR := BrowserGetSource(Handle);
if Pos('logout',TempStr) < 1 then
Login('http://www.easy.tc/login.php','logout');
TempSTR := BrowserGetSource(Handle);
I := LastPosEx('href="',TempSTR,Pos('View Adverts',TempSTR)) + 6;
EasyTCUrl := (copy(TempSTR, I , PosEx('"',TempSTR,I) - I));
if Pos('http',EasyTCUrl) < 1 then
EasyTCUrl := 'http://www.easy.tc/' + (copy(TempSTR, I , PosEx('"',TempSTR,I) - I));
if Pos('<HEAD>', EasyTCUrl) > 0 then
EasyTCUrl := 'http://www.easy.tc/surf.php';
end;
if DoBux3 Then
begin;
BrowserNavigate(Handle,'http://bux3.com/index.php',true, 150000);
TempSTR := BrowserGetSource(Handle);
if Pos('logout',TempStr) < 1 then
Login('http://bux3.com/login.php','logout');
TempSTR := BrowserGetSource(Handle);
I := LastPosEx('href="',TempSTR,Pos('Surf Ads',TempSTR)) + 6;
Bux3Url := 'http://bux3.com/' + (copy(TempSTR, I , PosEx('"',TempSTR,I) - I));
if Pos('TITLE', Bux3URL) > 0 then
Bux3Url := 'http://bux3.com/surf.php';
end;
if DoClix then
begin
BrowserNavigate(Handle,'http://clix4coins.com/',true,60000);
TempSTR := Lowercase(BrowserGetSource(Handle));
if Pos('logout',TempStr) < 1 then
begin;
BrowserNavigate(Handle,'http://clix4coins.com/loginpage.php',True,10000);
RepeatWaitLoop('security code seen above:', True);
I := Pos('security code seen above:', TempSTR);
Writeln('Security I = ' + inttostr(I));
J := LastPosEx('password',TempSTR,I);
Writeln('Password J = ' + inttostr(J));
Writeln('Tempstr = ' + Tempstr);
TempSTR := Copy(TempSTR,J, I - J) + ' ';
Writeln('TempSTR = ' + TempSTR);
I := LastPos('</font',tempstr);
Writeln('Font I = ' + inttostr(I));
if I < 1 then
I := LastPos('<br>',tempstr);
Writeln('font / br I = ' + inttostr(I));
I := LastPosEx('>', TempSTR,I);
Writeln('> I = ' + inttostr(I));
TempSTR :=Copy(Tempstr, I + 1, PosEx('<',TempSTR,I) - I - 1);
Writeln('TempSTR = ' + Tempstr);
TmpSTR := GetNumbers(Tempstr);
if TmpSTR <> '' then
begin;
Writeln(TmpSTR);
BrowserSetFormField(Handle,0,0, ClixUsername);
BrowserSetFormField(Handle,0,1, ClixPassWord);
BrowserSetFormField(Handle,0,2, TmpSTR);
Str := BrowserGetItems(Handle);
For I := 0 to High(Str) do
if Str[I].Tag = 'INPUT' then
if Pos('Log In', Str[i].OuterHTML) > 0 then
begin;
BrowserClickItem(Handle,I);
BrowserWait(Handle, 120000);
Break;
end;
end else
begin;
BrowserWait(Handle, 120000);
TempSTR := Lowercase(BrowserGetSource(Handle));
if Pos('logout',TempStr) < 1 then
begin;
BrowserInformation(Handle, 'Please log in..');
ActivateBrowser(Handle);
RepeatWaitLoop('logout', True);
BrowserInformation(Handle, 'Logged in succesfully.');
end;
end;
end;
end;
if DoClixSense then
begin;
BrowserNavigate(Handle,'https://www.clixsense.com/',true,60000);
BrowserNavigate(Handle,'http://www.clixsense.com/login.php',true,60000);
TempSTR := Lowercase(BrowserGetSource(Handle));
if Pos('logout',TempStr) < 1 then
begin;
BrowserInformation(Handle, 'Please log in..');
ActivateBrowser(Handle);
RepeatWaitLoop('logout', True);
BrowserInformation(Handle, 'Logged in succesfully.');
end;
end;
if Dolinkgrand then
begin;
BrowserNavigate(Handle,'http://www.linkgrand.com/',true,50000);
BrowserPostPage(Handle,'http://www.linkgrand.com/login.php',
['username',LinkUserName,'password',LinkPassWord,'button.x',inttostr(random(35) + 3),'button.y',inttostr(random(10) + 3)],
60000);
TempStr := LowerCase(BrowserGetSource(Handle));
if Pos('log out', TempSTR) < 1 then
begin;
BrowserInformation(Handle,'Login failed, please login.');
ActivateBrowser(Handle);
RepeatWaitLoop('logout', True);
end;
if (Pos('captcha',TempStr) > 0) then
begin;
ActivateBrowser(Handle);
BrowserInformation(Handle, 'Please fill in the captcha and submit.');
RepeatWaitLoop('captcha', False);
end;
BrowserWait(Handle,60000);
TempStr := LowerCase(BrowserGetSource(Handle));
LinkGrandUrl := ('http://www.linkgrand.com/links.php?' + Replace(Between('links.php?','"',TempStr),'&', '&'));
end;
AdBuxWaitTime := 0;BuxWaitTime := 0;TopBuxWaitTime := 0;linkgrandwaittime := 0;DailyWaitTime := 0;ClixSenseWaitTime := 0;
CashLinkzWaitTime := 0;Bux3WaitTime := 0;EasyTCWaitTime := 0;WordLinxWaitTime := 0;
Writeln(Bux3Url);
Writeln(BuxUrl);
Writeln(EasyTCUrl);
Writeln( CashLinkzUrl);
Writeln('Cookies: ' + BrowserCookies(Handle));
Repeat
BrowserInformation(Handle, 'Checking the ads.');
if DoMyRealCash then
if (GetSystemTime > MyRealCashWaitTime) then
begin;
Bux2AdClick('http://www.myrealcash.net/viewads.php?ads=clickads','viewsite', MyRealCashWaitTime);
// StopFrame(Handle,1);
if Bool then
begin;
Strss := BrowserGetFrames(Handle);
Writeln(Strss[0]);
end;
end;
if DoGetRef then
if (GetSystemTime > GetRefWaitTime) then
begin;
Bool := False;
BrowserNavigateFlags(Handle,'http://www.getref.com/earnlink.asp',navNoReadFromCache or navNoWriteToCache,True, 120000);
Strss := BrowserGetLinks(Handle);
For I := 0 to High(Strss) do
if Pos('earnlinkbrowse',Strss[I]) > 0 then
if Pos(Strss[I],GetRefVisited) < 1 then
begin;
GetRefVisited := GetRefVisited + Strss[I];
Bool := True;
NavigateStopFrame(Handle, Strss[I],120000,1);
Repeat
Linkz := BrowserGetFrames(Handle);
J := Pos('var seconds=',Linkz[0]) + 12;
until (J > 15) or (Pos('have recieved credi',Linkz[0]) > 0) or (pos('enough credits', Linkz[0]) > 0)
if (Pos('have recieved credi',Linkz[0]) < 1) and (pos('enough credits', Linkz[0]) < 1) then
begin;
Tempstr := GetNumbers(Copy(Linkz[0], J, PosEx(';',Linkz[0],J) - J));
GetRefWaitTime := GetSystemTime + StrToIntDef(TemPSTR,20) * 1000 + random(4444);
Writeln('Waittime : ' + inttostr(GetRefWaitTime - GetSystemTime));
Wait(GetRefWaitTime - GetSystemTime);
BrowserFrameSubmitForm(Handle, 0,0);
J := 0;
Repeat
Linkz := BrowserGetFrames(Handle);
J := J + 1;
Wait(250);
if J = 25 then
BrowserFrameSubmitForm(Handle, 0,0);
if J = 50 then
Break;
until (Pos('have recieved credi',Linkz[0]) > 0);
end;
GetRefWaitTime := GetSystemTime + 10000;
SetLength( Strss,0);
break;
end;
if not bool then
GetRefWaitTime := GetSystemTime + ((random(10) + 5) * 60 * 1000);
end;
if DoCashLinkz then
if (GetSystemTime > CashLinkzWaitTime) then
begin;
Bool := False;
SetLength(Strss,0);
BrowserNavigateFlags(Handle,CashLinkzUrl,navNoReadFromCache,True,60000);
BrowserWait(Handle,10000);
Strss := BrowserGetLinks(Handle);
For I := 0 to High(Strss) do
if Pos('view.php',Strss[I]) > 0 then
if GetNumbers(Copy(Strss[I], Pos('ad=',Strss[I]),20)) <> '' then
if Pos(Strss[I], CashVisited) < 1 then
begin;
Bool := True;
CashVisited := CashVisited + '-' + Strss[I] ;
NavigateStopFrame(Handle, Strss[I],120000,1);
Wait(31259 + Random(31259));
CashLinkzWaitTime := GetSystemTime + 1000;
Break;
end;
if not bool then
CashLinkzWaitTime := GetSystemTime + ((random(10) + 5) * 60 * 1000);
end;
if DoClixSense then
if (GetSystemTime > ClixSenseWaitTime) then
begin;
Bool := False;
BrowserNavigateFlags(Handle,'https://www.clixsense.com/browse.php',navNoReadFromCache or navNoWriteToCache,True,60000);
Strss := BrowserGetLinks(Handle);
For I := 0 to High(Strss) do
if Pos('launch=',Strss[I]) > 0 then
begin;
Bool := True;
NavigateStopFrame(Handle, Strss[I],120000,1);
Wait(31259 + Random(31259));
ClixSenseWaitTime := GetSystemTime + 1000;
Break;
end;
if not bool then
ClixSenseWaitTime := GetSystemTime + ((random(5) + 3) * 60 * 1000);
end;
if DODailyClicks then
if (GetSystemTime > DailyWaitTime) then
begin;
Bool := False;
BrowserNavigateFlags(Handle,'http://www.dailyclicks.biz/surf.php',navNoReadFromCache or navNoWriteToCache,True,60000);
Strss := BrowserGetLinks(Handle);
For I := 0 to High(Strss) do
if Pos('view.php?',Strss[I]) > 0 then
if Pos(Strss[I],Glob2Visited) < 1 then
begin;
Bool := True;
Glob2Visited := Glob2Visited + Strss[I];
NavigateStopFrame(Handle, Strss[I],20000,1);
TempSTR := LowerCase(BrowserGetSource(Handle));
if pos('correct code below',TempSTR) > 0 then
begin;
ActivateBrowser(Handle);
BrowserInformation(Handle,'Please verify');
RepeatWaitLoop('correct code below',false);
end;
RepeatWaitLoop('var x = ',true);
if pos('var x = ',TempSTR) > 0 then
begin;
J := pos('var x = ',TempSTR);
DailyWaitTime := GetSystemTime + (StrToIntDef(GetNumbers(Copy(TempSTR, J + 8, PosEx('var y', TempSTr,J) - j - 8)),100) * 1000) + random(50000);
end else
DailyWaitTime := GetSystemTime + 100000 + Random(20000);
Wait(DailyWaitTime - GetSystemTime);
DailyWaitTime := GetSystemTime + 1000;
break;
end;
if not bool then
DailyWaitTime := GetSystemTime + ((random(10) + 5) * 60 * 1000);
end;
if Dolinkgrand then
if (GetSystemTime > LinkGrandWaitTime) and (LinkGrandUrl <> '') then
begin;
Writeln('Begin linkgrand');
BrowserNavigate(Handle,LinkGrandUrl,True,50000);
TempSTR := BrowserGetSource(Handle);
if (Pos('green.gif',TempSTR) < 1) and (Pos('green_h.gif',TempSTR) < 1) then
begin;
Writeln('No green image found.');
TempSTR := BrowserGetSource(Handle);
LinkGrandUrl := ('http://www.linkgrand.com/links.php?' + Replace(Between('links.php?','"',TempSTR),'&', '&'));
end;
BrowserNavigate(Handle,LinkGrandUrl,True,50000);
LinkGrandUrl := '';
Strss := BrowserGetLinks(Handle);
TempSTR := LowerCase(BrowserGetSource(Handle));
Bool := False;
if Pos('captcha',TempSTR) > 0 then
begin;
Bool := True;
Writeln('Captcha found');
end;
if (Pos('yellow_h.gif',TempSTR) > 0) or (Pos('yellow.gif',TempSTR) > 0) then
Bool := True;
if ((Pos('green.gif', TempSTR) > 0) or (Pos('green_h.gif',TempSTR) > 0)) and not bool then
begin;
J := Pos('green.gif',TempSTR);
if J < 1 then
J := Pos('green_h.gif',tempstr);
J := LastPosEx('<tr>',TempSTR,J);
TmpSTR := LowerCase(Copy(TempSTR,J, PosEx('</tr>',TempSTR,J) - J));
if (Pos('green.gif',TmpStr) > 0) or (Pos('green_h.gif',TmpStr) > 0) and not bool then
begin;
TmpSTR := ('http://www.linkgrand.com/click.php?' + Replace(Between('click.php?','"',TmpSTR),'&', '&'));
NavigateStopFrame(Handle,TmpSTR,180000,1);
Strss := BrowserGetFrames(Handle);
For J := 0 to High(Strss) do
if (Pos('creditframe.php',Strss[J]) > 0) and not bool then
begin;
Linkz := BrowserGetFrameLinks(Handle, J);
For P := 0 to High(Linkz) do
if (Pos('creditframe',linkz[P]) > 0) and not bool then
begin;
Wait(60000 + Random(30000));
BrowserNavigate(Handle,Linkz[P],True,120000);
TempSTR := LowerCase(BrowserGetSource(Handle));
if (pos('login to complete',TempSTR) > 0) then
Bool := True;
if Bool then
Break;
Linkz := BrowserGetLinks(Handle);
For P := 0 to High(Linkz) do
if Pos('login',Linkz[P]) > 0 then
begin;
LinkGrandUrl := Linkz[P];
LinkGrandWaitTime := GetSystemTime + 1000;
Break;
end;
Break;
end;
Break;
end;
end else if not bool then
begin;
TempSTR := LowerCase(BrowserGetSource(Handle));
if Pos('captcha', TempSTR) > 0 then
Bool := True
else
begin;
LinkGrandUrl := ('http://www.linkgrand.com/links.php?' + Replace(Between('links.php?','"',TempSTR),'&', '&'));
LinkGrandWaitTime := GetSystemTime + ((random(10) + 5) * 60 * 1000);
end;
end;
end;
if Bool then
begin;
TempStr := LowerCase(BrowserGetSource(Handle));
if Pos('captcha',TempSTR) < 1 then
begin;
BrowserNavigate(Handle,'http://www.linkgrand.com/',true,50000);
BrowserPostPage(Handle,'http://www.linkgrand.com/login.php',
['username',LinkUserName,'password',LinkPassWord,'button.x',inttostr(random(35) + 3),'button.y',inttostr(random(10) + 3)],
60000);
end;
TempStr := LowerCase(BrowserGetSource(Handle));
if Pos('log out', TempSTR) < 1 then
begin;
BrowserInformation(Handle,'Login failed, please login.');
ActivateBrowser(Handle);
RepeatWaitLoop('log out',True);
end;
if (Pos('captcha',TempStr) > 0) then
begin;
ActivateBrowser(Handle);
BrowserInformation(Handle, 'Please fill in the captcha and submit.');
RepeatWaitLoop('captcha', false);
end;
BrowserWait(Handle,60000);
TempStr := LowerCase(BrowserGetSource(Handle));
LinkGrandUrl := ('http://www.linkgrand.com/links.php?' + Replace(Between('links.php?','"',TempStr),'&', '&'));
LinkGrandWaitTime := GetSystemTime + 1000;
Bool := False;
end;
end;
if DoAdBux then
if (GetSystemTime > AdBuxWaitTime) then
begin;
Bool := False;
BrowserInformation(Handle, 'Checking the ads.');
BrowserNavigate(Handle, 'http://adbux.org/browse.php',true, 50000);
Strss := BrowserGetLinks(Handle);
For I := 0 to High(Strss) do
if Pos('viewad',Strss[I]) > 0 then
begin;
TempSTR := LowerCase(BrowserGetSource(Handle));
J := Pos(Lowercase(Strss[I]),TempSTR);
K := LastPosEx('<tr>', TempSTR, J);
If Pos('check.gif', Copy(TempSTR, K, J -K + 1)) < 1 then
begin;
Bool := True;
BrowserNavigate(Handle, Strss[I],True,15000);
TempSTR := BrowserGetSource(Handle);
if pos('timer1.php?',TempSTR) > 0 then
begin;
J := pos('timer1.php?',TempSTR);
Writeln(Copy(TempSTR, J + 16, PosEx('&', TempSTr,J) - j - 16));
AdBuxWaitTime := GetSystemTime + (StrToIntDef(GetNumbers(Copy(TempSTR, J + 16, PosEx('&', TempSTr,J) - j - 16)),100) * 1000) + random(5000);
end else
AdBuxWaitTime := GetSystemTime + 100000 + Random(20000);
Wait(AdBuxWaitTime - GetSystemTime);
ActivateBrowser(Handle);
BrowserInformation(handle, 'Please enter the code.');
Writeln('Hanlde the code!');
Repeat
Wait(300);
Linkz := BrowserGetFrames(Handle);
if (BrowserGetFramesLength(Handle) > 1) then
begin;
if (Pos('viewver.php', Linkz[1]) < 1) then
Break;
end
else
Break;
until false;
Writeln('Code has been handled!');
break;
end;
end;
if not bool then
AdBuxWaitTime := GetSystemTime + ((random(10) + 5) * 60 * 1000);
end;
if DoWordLinx then
if (GetSystemTime > WordLinxWaitTime) then
begin;
Bool := False;
BrowserNavigate(Handle, 'http://wordlinx.com/browse.php' , True , 60000);
if Pos('logout', LowerCase(BrowserGetSource(Handle))) < 1 then
begin;
if Pos('login', BrowserUrl(Handle)) < 1 then
begin
BrowserNavigate(Handle,'http://wordlinx.com/',True,60000);
BrowserNavigate(Handle,'http://wordlinx.com/login.php',True,60000);
end;
Wait(1000);
TempSTR := LowerCase(BrowserGetSource(Handle));
TempSTR := Trim(Between('what''s','?',TempSTR));
TempSTR := IntToStr( StrToIntDef(GetNumbers ( Copy(
TempSTR,1,Pos('+',TempSTR))),0)
+ StrToIntDef( GetNumbers ( Copy(
TempSTR,Pos('+',TempSTR),5)),0));
BrowserSetFormField(Handle,0,0, WordLinxUserName );
BrowserSetFormField(Handle,0,1, WordLinxPassword);
BrowserSetFormField(Handle,0,2,TempSTR);
BrowserSubmitForm(Handle,0);
For I := 1 to 15 do
begin;
Wait(1000);
if Pos('loading.php', BrowserUrl(Handle)) > 0 then
Break;
end;
BrowserWait(Handle,120000);
BrowserNavigate(Handle, 'http://wordlinx.com/browse.php' , True , 60000);
end;
Strss := BrowserGetLinks(Handle);
For I := 0 to High(Strss) do
if Pos('advert-browse',Strss[I]) > 0 then
if Pos(Strss[I], WordLinxVisited) < 1 then
begin;
WordLinxVisited := WordLinxVisited + Strss[I];
NavigateStopFrame(Handle,Strss[I],120000,1);
if Pos('invalid or has', BrowserGetSource(Handle)) > 0 then
Continue;
Linkz := BrowserGetFrames(Handle);
if Pos('already viewed this', Linkz[0]) > 0 then
Continue;
J := Pos('new Number();',Linkz[0]);
TempSTR := Copy(Linkz[0],J,120);
TempSTR := (Between(' counter = ',';',TempSTR));
Wait(StrToInt(GetNumbers(TempSTR)) * 1010 + Random(5000));
Linkz := BrowserGetFrameLinks(Handle,0);
For J := 0 to High(Linkz) do
if Pos('credit-account',Linkz[J]) > 0 then
begin;
Bool := True;
BrowserNavigate(Handle, Linkz[J], True, 120000);
Break;
end;
Break;
end;
if not Bool then
WordLinxWaitTime := GetSystemTime + ((random(10) + 5) * 60 * 1000)
else
WordLinxWaitTime := GetSystemTime + 31337 + Random(13337);
end;
if DoBux then
if (GetSystemTime > BuxWaitTime) then
BuxAdClick(BuxUrl,BuxWaitTime);
if DoBux3 then
if (GetSystemTime > Bux3WaitTime) then
BuxAdClick(Bux3Url,Bux3WaitTime);
if DoEasyTC then
if (GetSystemTime > EasyTCWaitTime) then
BuxAdClick(EasyTCUrl,EasyTCWaitTime);
if DoClix then
if (GetSystemTime > ClixWaitTime) then
Bux2AdClick('http://clix4coins.com/Viewpaidads.php','aidadlink.php',ClixWaitTime);
if DoPayToClick then
if (GetSystemTime > PayToClickWaitTime) then
Bux2AdClick('http://paytoclick.biz/surf.php','view.php', PayToClickWaitTime );
if DoTopBux then
if (GetSystemTime > TopBuxWaitTime) then
BuxAdClick('http://www.topbux.org/surf.php', TopBuxWaitTime);
I := MinArray([DailyWaitTime,BuxWaitTime, TopBuxWaitTime, AdBuxWaitTime,linkgrandwaittime,
ClixWaitTime,CashLinkzWaitTime, Bux3WaitTime, EasyTCWaitTime, WordLinxWaitTime,
PayToClickWaitTime,GetRefWaitTime,ClixSenseWaitTime]);
if GetSystemTime < I then
begin;
Writeln('Going to wait: ' + inttostr(Min(5* 60 * 1000,iAbs(GetSystemTime - I))) + ' msec');
Wait( Min(5* 60 * 1000,iAbs(GetSystemTime -I) + 100 + random(50) ));
end;
SetLength( Strss,0);
SetLength(Linkz,0);
TempSTR := '';
until 1337 <> Raymond;
end.