Amberleaf Posted July 1, 2013 Share Posted July 1, 2013 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] Quote Link to comment Share on other sites More sharing options...
slacky Posted July 8, 2013 Share Posted July 8, 2013 I just really prefer to use AdBlock. You might want to try it. Quote Link to comment Share on other sites More sharing options...