Skip navigation.

exploreopera

| Help

Sign up | Help

My program for Opera

Posts tagged with "adblock"

Block images from menu Opera

,

Add in [Image Popup Menu] and [Image Link Popup Menu]
Platform Windows, Item, "Block image"="Copy image address,,,, "Content block image" & Go to Page, "javascript:(function(){var clip='%c';var d = document.selectNodes('//img[@src]');for(var i=0, di; di=d[i]; i++){if(di.src==clip)di.style.display='none !important'};})()" & Execute program, "D:\Opera\misc\Block.vbs" & Content block details, 1"


And in [Frame Menu]
Platform Windows, Item, "Block frame"="Copy frame address,,,, "Content block image" & Go to Page, "javascript:(function(){var clip='%c';var d = document.selectNodes('//iframe[@src]');for(var i=0, di; di=d[i]; i++){if(di.src==clip)di.style.display='none !important'};})()" & Execute program, "D:\Opera\misc\Block.vbs" & Content block details, 1"



Block.vbs
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "+{INSERT}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"


For Opera 9.50
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "+{INSERT}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"


' Uncomment it for auto-closing window

' WshShell.SendKeys "{TAB}"
' WshShell.SendKeys "{TAB}"
' WshShell.SendKeys "{TAB}"
' WshShell.SendKeys "{TAB}"
' WScript.Sleep 100
' WshShell.SendKeys "{ENTER}"