Jump to content
Amberleaf

YouTube Ad Remover

Recommended Posts

A simple script that closes, skips & disables adverts/annotations on YouTube allowing you to just click and watch the content without interruption.

 

Drag the Target/Crosshair from the Scar-Divi toolbar on to your browsers window & start the script.

 

Tested on Chrome.

 

Not 100% finished I'm looking for feedback, suggestions, ideas & your contribution if you can implement any other features or functionality.

 

[sCAR]

//YouTube Ad Remove v0.1

//Amberleaf

//Instructions & more scripts can be found at SCAR Divi

//1/7/2013

 

{.include OSI\OSI.scar}

 

const

w = 1680;

h = 1050;

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

procedure ClickX;

var x, y: Integer;

Bmp, Bmp1, Bmp2, Bmp3: TSCARBitmap;

begin

Bmp := TSCARBitmap.Create('deNqNj7ENxSAQQ7NAZs4ATECNECP84heMElFQM' +

'QAlsWLFOp309eMCGd8TnPdt3z6vdf6Txb63NLJXYUiOWxy5K7HWWs75eJRSkke' +

'OKbHe+5zTkmKQY6pPScYYxcCTcRVqre41JL8qQCEEeVsBRmuXUtZaOFXHfYqEO' +

'48x2IiMw1iEO8tY7I0uBQtwfw==');

Bmp1 := TSCARBitmap.Create('deNrt281u2kAQAOBdVFWtuHFor+01b4TUH+gxb' +

'5K0pFKPHJv+irxBqyrwApFi98Qhjel7tCsPHg+767WNvdjGs/IhwPoHPs/O7EI' +

'uxYmQssubsG/czMbQDN1ddG4MzdAMzdAMzdA+4cruIXI3hu5QRV1l6zU0frQMf' +

'fzQ8efA0AzdxFb+jTBoMWjRrnBmaI/Qh8zUdQ+zDF3882Ho3kD73GjbnfZ++BV' +

'tSLtZTBHrqXi7iqK71cy88qF4tbiN/vz+9kIO9nvvJ2fX6nQ/3j/O7TkUL9W57' +

'lbvrK/O5/PRaOQ+wr+49QHaelJw3BgN+fxBw+7qXNaDl4IGRDd3z6FPPwUYwlq' +

'Aqyfd0BXbs/GXMIqCIIg24cc3D6tDu7lbAF1iCbF2aGV6/3d5NnggjTAHXA0aw' +

'hB2oREN3dS9AaOxarl86h5Tx7kYfw3jHbMGdtVUt/P4XEWgs7h7Dm2NaNqfQlN' +

'leHi1C317vQxJIlDWlxnWeFjtmPQ2oKnkPlyuykCb3C2CljsfclM5GtGtIhCnM' +

'EFIoL8jNCRcegvBQ3cZZpZkT8S5OhqOCTBux0crB025m4f2v/CYO+XRqm5rMab' +

'6JMrbKzWh4W/sQPOCWYZhFJtlAKTvm8VEe2Y/6PV6PR6PWwftDb14gQTWNEen8' +

'X41dUDH8ZtevgpqGL1l9lnoOI85PYnxR3sUYyZxW4bugt//4gzYf6MRh9A/Lyb' +

'4JFxTmqMHBJpc9OnnwJqmzQEkyRqTrPn1cFuMzQpCU2KGTsbDmXUwp9Ag+Dzpn' +

'wUNf9NXzSor7Ulm35CUsXMydE9FgXUbDdok7hh05eK8+JIFBBQtpxEXglHFmhV' +

'6O7bLtGw2abJWw6A/DNd4NOiWu7TiJmborHSJGVOdTIOmkWtCR0FIj2aGc9Zky' +

'iy3cBK9O72yQ7uJ2zePbgDamjQhlqlsDL1tKvNC5FqLMQSyLo2aY7J2GbQkw5s' +

'wXjB57cjR3fmasmFo2zgj9eLA2pKr0u4H/q4qH9rbL3xKLr/nl4UU1N+SOEPXD' +

'm3GKUO3AdpDWcjQDJ0Dza2F0JqUo8RqfI2OoeuCdtfSDmiGay10bb8rZOU9ocl' +

'PQA8GTcZfhj44tPajzULTqwagM3ZhyqODlgxdJ3SeeGM5mqEPG9rlCmkpGfoII' +

'pqhOaIrQPP/PtfZ/gMMbYYJ');

Bmp2 := TSCARBitmap.Create('deNo9jsENgCAMRTkyB+BRnQFwXsQDToDBBA84i' +

'Yks4NcayAv5vKa0nHHm3Az6YRRSAQQyMW6lnFQiiSeksROVvF9Ak0J2uFPar+8' +

'gkARoD2G9awUINKv9mfMB2iw3/4O0saCtgUDy3VMorS2ZB3l8afs=');

Bmp3 := TSCARBitmap.Create('deNrVkrENwCAMBCmpSEOLRABDmICtmIp52CC7x' +

'MLCRdK4zVWWOYGt51BGhRBijCklAMg5l1KuDdbYwT6eokPmLYPuFMr0ulCGhVz' +

'GFX4nyxekaNSG+7139SFueJ45Z2vNWltr5cQ5bkqcohxjGGOcc2Xx+hjngn2tN' +

'dawIY1N7/0DgENfUQ==');

//Grey X

if FindBitmapSpiralTolerance(Bmp, x, y, 300, 200, w, h, 55) then

begin

ClickMouse(x, y, false);

MMouse(x, y + 200, 0, 10);

end;

Wait(50);

//Skip Ad

if FindBitmapSpiralTolerance(Bmp1, x, y, 300, 200, w, h, 200) then

begin

ClickMouse(x, y, false);

MMouse(x, y + 200, 0, 10);

end;

Wait(50);

//Annotations off

if FindBitmapSpiralTolerance(Bmp2, x, y, 300, 200, w, h, 150) then

begin

ClickMouse(x, y, false);

MMouse(x, y + 200, 0, 10);

end;

Wait(50);

//Black X

if FindBitmapSpiralTolerance(Bmp3, x, y, 300, 200, w, h, 155) then

begin

ClickMouse(x, y, false);

MMouse(x, y + 200, 0, 10);

end;

Wait(50);

end;

 

begin

SetUpOSI;

mousespeed := 500

repeat

ClickX;

Wait(250);

until GetKeyState(VK_F12);

end.

[/sCAR]

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...