My program for 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}"