Operaised -- The blog

There's ways to execute visual basic scripts without the need of saving a vbscript to a file.

However use this with extreme caution, as pages redirecting to .vbs scripts can be directly run too...

button

Heres the code in the data uri.

DIM Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.SendKeys "^s{TAB}{DOWN}{DOWN}{DOWN}{ENTER}+{TAB}"
Set Wsh = nothing
WScript.Quit

This is a custom button which defaults to "save as web archive".

However it won't work at first go.

So first, drag the button to a toolbar, and click on it, then a download dialog will appear.

Then click "Change.." , enter "vbs"(without quotes) in the "File Extensions" field, then click radio button "Open with default application" then click "OK". Next time you click the button it will open the "Save as" dialog with default dropdown to "Web archive (single file)".

Either use this at extreme caution, or save this file below(right click > Save target as, if you have already set the above, and save it somewhere)
saveasarchive.vbs

Then use this code.

Execute program,"path/to/where/you/saved/saveasarchive.vbs",,"Save","Save document"

Replace the "path/to/where/you/saved/" with the direct path to your vbs file.
And input it into a button maker.

http://nontroppo.org/tools/buttonmaker/ , enter the code into the "OR just write the action as plain text:" field and click "Create button".

And you're done.