unDonutでAutoなんとかっぽいことを体験するjs

スクロールバーが下の方に行くと次のページが下に足されていくAutoなんとかをunDonutで体験してみたくて書いたjs。
実際、それ自体Sleipnirで数回使ってみただけで、どんなものなのか細かいところまではしらんけど、とにかくスクロールバーが下の方に行けば次のページが下に足される。
足されるといっても本家のように綺麗に足されるわけでなく、そのまんまのページが足されるだけｗ

対応しているのはgoogleのwab検索とイメージ検索だけで、次のページを読み込む目安のスクロールバーの位置は、きちんと計算されたものではなく（バカだから無理ｗ）、自分の環境1024x768のウィンドウ最大でこんなもんだろう的な数値だから環境によってはめちゃめちゃな予感。

検索結果が表示されているページをアクティブにしてこの↓jsを実行するとタイトルに★が出て、そのページがタブから無くなると終了。
unDonutのcomとやらがONでないと動作しないけれど、その代わりスクリプトがOFFでも動作する。
~~それぞれデフォルトでの表示件数に対応。~~
var api = WSH.createobject('donutp.api'); var tid = api.tabindex; if (api.getdocumentobject(tid)) { var xml = WSH.createobject('microsoft.xmlhttp'); var doc = api.getdocumentobject(tid); var win = api.getwindowobject(tid); var url = doc.URL; doc.title = '★' + doc.title; var sp, np; var lpage = gethttp(url); while(chkwin(url)) { WSH.sleep(500); sp = doc.body.scrollHeight; np = doc.body.scrollTop; if (np == 0) np = doc.documentElement.scrollTop; if (np > sp - 1200) lpage(); } doc = null; win = null; xml = null; } api = null; WSH.quit(); function gethttp(u) { try { var hos = win.location.host; if ((/google/i).test(hos)) { var num = Number(u.replace(/.*?start=(\d+)\D*/i, '$1')); var pls = Number(u.replace(/.*?[\?&]+num=(.*?)&.*/i, '$1')); var rurl = u.replace(/&start=\d+|&sa=N/i, '') + '&start='; var burl = '&sa=N'; if (isNaN(pls)) { if (/images/i.test(hos)) pls = 20; else pls = 10; } isNaN(num) ? num = pls : num += pls; } return function() { xml.open('get', rurl + num + burl, 0); xml.onreadystatechange = function() { if (xml.readyState == 4 && xml.status == 200) { if (chkwin(url)) { var el = doc.createElement('span'); 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; } }
動作確認のunDonutはバージョン13のTEST10のみ。
自分の環境だと、たまに無反応な場合があるみたいで（何でかわからん）、その時は一旦ページを閉じてやり直せば反応すると思う。※追記ページを更新すれば反応する場合もあった。

8月2日 14:00 修正

たまに反応がなくなる原因が判明。スクロールバーの位置を得るdocument.body.scrollTopが0のままの場合があった（よくわからん）。その場合はdocument.documentElement.scrollTopで取得するようにした。

web検索がgoogle.co.jpだけで、google.comを忘れとった。

google日本語版もデフォルトだと10件ずつ表示を忘れとったので、10件表示の対応に修正。

8月2日 15:30 修正

表示件数を自動で取得するように変更。

8月2日 17:00 修正

イメージ検索で同じページが2回表示されてたのを修正（エラー修正中だから削除してたのに、違う日のを削除しっとたorzあー、もうやだ）

8月2日 22:00 修正

記述内容をちょい変更。

8月15日修正

正規表現など一部をちょい修正。

エラーになる部分を修正。

※追記
Googleのweb検索、イメージ検索以外ほとんど使わないので気付かなかったが、マップやニュースなども↑のスクリプトが使える感じ。