unDonutでなんたらモンキーもどき

IE6
undonut+mod.1.34 マルチバイト版
windows98
の環境だと、なんたらモンキーのようなUserScriptが使えないので、unDonutのJScriptでそれっぽいのを書いてみたが、少々不安定。
スクリプトが処理をしている最中にタブを閉じたりするとエラーになる。

使い方は、下記のJScriptを適当な名前.jsで適当な場所に置く。
同じディレクトリに1行目にあるフォルダネーム（この場合userscript）を作成して、そこにURLによって実行するスクリプトファイルを置く(拡張子はjs、vbsなど。関連付けしてあればuwsもOK？）。
で、下記のスクリプトを起動。
終了させるには、unDonutを終了させるか、2行目にある文字（この場合quit:)をアドレスバーに記入すれば終了。
userscriptの中のファイルを登録し直すのは↓を終了させて再実行。
var foldername = 'userscript'; var quitkey = 'quit:'; var api = WSH.createobject('donutp.api'); var wss = WSH.createobject('wscript.shell'); var sfo = WSH.createobject('scripting.filesystemobject'); var cdr = WSH.scriptfullname.replace(WSH.scriptname, foldername); if (sfo.folderexists(cdr) == 0) sfo.createfolder(cdr); var chkurl = {}; var exurl = {}; chkfile(cdr); sfo = null; while (chk() >= 0 && getstr() != quitkey) { WSH.sleep(2000); try { if (api.gettabcount() > 0) { for (var w = 0; w < api.gettabcount(); w ++) { for (var i in chkurl) { var surl = chkurl[i]; for (var s in surl) { var doc = api.getdocumentobject(w); if (doc.URL.search(eval('/' + surl[s] + '/i')) >= 0 && doc.getElementById('e39gzx9p' + i) == null) { var el = doc.createElement('div'); el.id = 'e39gzx9p' + i; doc.body.appendChild(el); if (chkex(doc.URL, i)) { wss.run(i + ' "' + w + '"'); } } } } } } } catch(e) {}; } api = null; wss = null; WSH.quit(); function chk() { try { return api.gethwnd(0); } catch(e) { return -1; } } function getstr() { try { return api.getaddresstext(); } catch(e) { return quitkey; } } function chkfile(cd) { var scf = sfo.getfolder(cd).files; for (var er = new Enumerator(scf); !er.atEnd(); er.moveNext()) { fread(er.item().path); } } function fread(fpath) { var opf = sfo.opentextfile(fpath); var rea = opf.readall().split(/[\r\n]/); var chkkey = function(arr, txt, key) { if (txt.search(eval("/(\\/\\/|')\\s*@" + key + '\\s+/i')) >= 0) { txt = txt.replace(eval("/(\\/\\/|')\\s*@" + key + '\\s+/i'), ''); var spt = txt.split(/\s/); for (var x in spt) { spt[x] = spt[x].replace(/(\.|\/|\?)/g, '\\$1').replace(/\*/g, '.*?') + '$'; } arr[fpath] = spt; } } chkkey(chkurl, rea[0], 'include'); chkkey(exurl, rea[1], 'exclude'); opf.close(); } function chkex(ex, fp) { var cex = exurl[fp]; for (var e in cex) { if (ex.search(eval('/' + cex[e] + '/i')) >= 0) {return false} } return true; }
unDonutのCOMとやらをONにしないと動作しません。
※追記 実行するスクリプトにタブの位置(左から0.1.2....)を引数として渡してます。

unDonutと同時起動させるには、unDonut.iniに

[Event]
StartProcess=上記のスクリプトのパス

を書き加えればOK。

UserScriptフォルダに入れるスクリプトの1行目、2行目に

//@include http://www.aaa/* http://www.bbb/*   実行するURLをスペース区切りで
//@exclude http://www.aaa/ccc/*                除外するURLをスペース区切りで

VBScriptの場合は、最初の//の代わりに'を。

のように1行目に必ず実行するURLを記入。除外するURLは省略してもOK。
なんたらモンキーを丸パクり参考にしました。

下記の二つ↓は前に書いたAutoなんたらとコンテンツブロックもどきを↑のスクリプト用に書き換えたもの。
それぞれjsファイルでuserscriptフォルダに。

これはAutoなんたら、ページが下に足されていくやつ。
対応はGoogleのWeb、イメージ、マップ、ニュースだけ（よくわからんので間違っているかもしれん）
これはそのままuserscriptフォルダに。
//@include *google.*/search?* *maps.google.*/maps?*output=html *news.google.*/news?* *images.google.*/images?* *groups.google.*/groups?* *esearch.rakuten.co.jp/* *search.msn.com/*results.aspx?* //@exclude *images.google.*/imgres?imgurl* var api = WSH.createobject('donutp.api'); var tid = WSH.arguments.item(0) || ''; if (tid) { var xml = WSH.createobject('microsoft.xmlhttp'); var doc = api.getdocumentobject(tid); var win = api.getwindowobject(tid); var url = doc.URL; doc.title = String.fromCharCode(9733) + doc.title; var sp, np; var lpage = gethttp(url); while(chkwin(url)) { WSH.sleep(1000); try { sp = doc.body.scrollHeight; np = doc.body.scrollTop; if (np == 0) np = doc.documentElement.scrollTop; if (np > sp - 1200) lpage(); } catch(e) {}; } doc = null; win = null; xml = null; } api = null; WSH.quit(); function gethttp(u) { try { var hos = win.location.host; var nar, purl = ''; if ((/google/i).test(hos)) { if ((/images/i).test(hos)) { nar = nchk(u, 'start', 'num', 20); } else { nar = nchk(u, 'start', 'num', 10); } } else if ((/rakuten/i).test(hos)) { nar = nchk(u, 'p', '', 1); if (nar[0] === 1) nar[0] = 2; } else if ((/\.msn\.com/i).test(hos)) { nar = nchk(u, 'first', '', 10); if (nar[0] === 10) nar[0] = 11; } var num = nar[0]; var pls = nar[1]; var reu = nar[2]; return function() { xml.open('get', reu + num + purl, 0); xml.onreadystatechange = function() { if (xml.readyState == 4 && xml.status == 200) { if (chkwin(u)) { var el = doc.createElement('div'); el.innerHTML = xml.responsetext; doc.body.appendChild(el); } } }; xml.send(''); num += pls; } } catch(e) {}; }; function chkwin(u) { try { if (api.gettabcount()) { var cnt = api.gettabcount(); for (var i = 0; i < cnt; i ++) { try { var cu = api.getdocumentobject(i).URL; if (u == cu) return true; } catch(e) {}; } }; return false; } catch(e) { return false; } }; function nchk(u, skey, nkey, pn) { var hos = win.location.host; var reg = new RegExp(); var arr = []; var num, pls, rurl; reg.compile('.*?' + skey + '=(\\d+).*', 'i'); num = Number(u.replace(reg, '$1')); reg.compile('.*?[\\?&]+' + nkey + '=(\\d+).*', 'i'); pls = Number(u.replace(reg, '$1')); reg.compile('&' + skey + '=\\d+', 'i'); rurl = u.replace(reg, '') + '&' + skey + '='; if (isNaN(pls)) pls = pn; isNaN(num) ? num = pls : num += pls; arr.push(num); arr.push(pls); arr.push(rurl); return arr; };

8月16日 22:00 修正

• 除外するURL間違えたーーーーっ！

8月19日 12:00 修正

• 正規表現部分をちと修正。

8月21日 修正

• 冒頭のtextareaのタグ削除。前の修正の際、2重に書いてしまったみたい。

8月22日 更新

• 細部までカバーしきれてないかもしれんけど楽天の商品検索を追加。。

9月5日 更新

• unDonutのアドレスバーに単語+スペースでLiveSearchで検索できるみたいなので、無理矢理LiveSearchを追加してみた。アドレスにある'From='なんたらの部分はそのままでも表示されているようだけど、それでいいのかは不明だしデフォルトでの10件表示だけだと思われる。

9月6日 修正

• 監視するURLの*search.msn.com/results.aspx?*を*search.msn.com/*results.aspx?*に。これでLiveSearchでweb検索以外にも対応したが、エラーになる場合もあるかも。

こっちはコンテンツブロックもどき。
実行するURLと除外するURLの書き方は上と一緒。
で、これで削除する画像などのURLは
var durl =
の間に配列として記述。
//@include http://*.aaaa.com/* var durl = [ '*/aaa.gif', '*www.bbb/bbb.jpg' ]; var rurl = </span>; urep(durl, rurl); var api = WSH.createobject('donutp.api'); var reg = new RegExp(); try { var doc = api.getdocumentobject(WSH.arguments.item(0)); if (!doc.getElementById('uzaiuzai')) { var fs = doc.getElementsByTagName('frameset'); if (fs.length == 0) { chk(doc); } else { var f = doc.frames; if (f.length > 0) { for (var fc = 0; fc < f.length; fc ++) { try {chk(f(fc).document)} catch(e) {} } } } var el = doc.createElement('div'); el.id = 'uzaiuzai'; doc.body.appendChild(el); doc.title = String.fromCharCode(9733) + doc.title; } } catch(e) {}; doc = null; api = null; function chk(obj) { try { var src = obj.body.innerHTML.replace(/</g, '\n<'); for (var u in rurl) { reg.compile('<[^>]*?=("|\')' + rurl[u] + '("|\')[^<]*>([^>]*<\/a>)*', 'ig'); src = src.replace(reg, ''); } obj.body.innerHTML = src; } catch(e) {} } function urep(arr1, arr2) { for (var i in arr1) {arr2.push(arr1[i].replace(/(\.|\?|\/)/g, '\\$1').replace(/\*/g, '.*?'))} }
ページによってはレイアウトが大きく崩れます。

8月19日 14:00 修正

• 最後の行の.*を.*?に。

8月21日 10:00 修正

• エラー処理修正。