HSPTV!掲示板

こんにちは。
唐突で恐縮ですが、IEコンポーネントやGeckoコンポーネントでウェブページを表示した時、
その表示したページを白黒で表示するには、どうしたらよいでしょうか？
自分は、あまり関数やマクロなどに詳しくは無いもので・・・
どなたか、御教示お願い致します。

適当にやってみたらできてしまった〜(^o^)丿
ちと重いですが。

#define DIID_DWebBrowserEvents2     "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
#define DISPID_NAVIGATECOMPLETE2    252

	axobj ie, "Shell.Explorer.2", 640, 480
	comevent ie_event, ie, DIID_DWebBrowserEvents2,*event
	ie->"Navigate" "http://hsp.tv/"
	stop
	
*event
	;	COMイベント処理
	dispid = comevdisp(ie_event)
	if dispid = DISPID_NAVIGATECOMPLETE2: gosub  *NAVIGATECOMPLETE2
	return
	
*NAVIGATECOMPLETE2
	pDoc = ie("document")
	pStyle=pDoc("createStyleSheet")
	pStyle->"addRule" "*","color:#000;"
	pStyle->"addRule" "*","background:#fff;"
	pStyle->"addRule" "*","filter:Gray();	
	return

追記：
以下の行はコメントアウトしたほうが見栄えがいいです。

pStyle->"addRule" "*","color:#000;"
pStyle->"addRule" "*","background:#fff;"

これを実行するとPCがフリーズしました。
ある意味危険かも。。ｗ

>これを実行するとPCがフリーズしました。
えっ？環境によって違うのかなぁ？(>_<)
と言うわけで色々な機種で実験(^o^)丿

* Windows Vista - Core2Duo 2.2GHz - 2048MB - IE7 - Norton IS 2008
-> かなり軽快 サクサクっと
* Windows XP - Pentium M クロック数不明- 512MB - IE7 - Norton IS 2008
-> かなり軽快 それなりに動きます
* Windows XP - Pentium3 850MHz - 256MB - IE6 - なし
-> ちょっと重い 操作できないほどではない
* Windows 2000 - Pentium3 850MHz - 256MB - IE6 - なし
-> ちょっと重い 操作できないほどではない
* Windows 2000 - AMD K6-2 450MHz - 192MB - IE5 - なし
-> 重くてページを進めるのに一苦労
* Windows 98SE - Celeron 333MHz - 128MB - IE5.5 - なし
-> システムリソースが食いつぶされてブルースクリーン。
* Windows 95 OSR2 - MMX Pentium 133MHz - 96MB - IE5.5 - なし
-> システムリソースが食いつぶされてブルースクリーン。

ページによっても多少異なるようですが、
コチラで確認できたのはフリーズするのは9x系とスペックが低いマシンとなりました。

inoviaさん、ありがとう御座いました！
それにしても、これだけのことを簡単にやってのけるなんて凄いですね〜
機種別の実験もありがとうございました！