WScript.ConnectObjectがそれか。Skype+iTunesのやつだと、
var skype = newComObject("Skype4Com.Skype");
var it = newComObject("iTunes.Application");
WScript.ConnectObject(it, "ITEvent_");
var me = skype.CurrentUserProfile;
while(true) WScript.Sleep(1000);
function ITEvent_OnPlayerPlayEvent(track){
with(track)
var text = [Name,Artist].join(" / ");
me.MoodText = text;
print(me.MoodText);
}
function newComObject(lib){
var obj;
try { obj = WScript.CreateObject(lib) }
catch(e){ obj = new ActiveXObject(lib) }
return obj;
}
function print(s){ WScript.Echo(s); }
cmdで^Cしたとき、一回iTunesを終了させないと次またスクリプト実行させてもちゃんと接続できない。
あと、iTunesのイベントはOnPlayerPlayingTrackChangedEventとか長すぎる。PHPか。
競馬 |
http://www.hokkaido-np.co.jp/Php/kiji.php3?&d=20061202&j=0044&k=200612029951
「ばん馬を愛する十勝の会」。一昨日発足したとかなんとか。まだ始まったばかりというべきか、しかしすでに3市で廃止は決定的。
子供の死体とか乗せてるウェブサイトの管理者が出てるな。クラブきっずじゃん。30代小学校教師かあ。誰が見たって気違いな人が教師やってるとなると恐ろしいな。ってか裁判沙汰になってるし。
著作権法違反なのね。
分からないけど、WindowsでGIS関連調べてるとVBのコードばかり出てくるな。あの辺が示すのは、OLEなんて言ってないで素直にVB使いましょうということなのです。みんなが言ってるんだから間違いないね。
つーかVBでクラスとかもう終わってんね。VBがいいのは6.0まで。VBはType Libraryを呼び出して、そこからモジュールをロードしたりクラスを使うというものなんです。使われては捨てられていくType Libraryの悲劇さといったらありません。っていうか、何のために存在するのか分からない人もいます。人とか言ってるし、俺。Type Library擬人化してください。MSXML2たんは最近HTTPRequestの仕事ばかり増えてSAXのことばかり考えてます。
サボってるときは競馬関連のことを書いてて、サボってないときかサボってないふりをしてるときはプログラミング関連のことを書いてて、ゲームしてるときは更新が止まるっていう分かりやすいblogをしてますね、俺。
あれじゃなくて。
JavaScriptのライブラリっていまいち使う気にならないけど、Rubyとかで書いたライブラリをJScriptで使うのは悪くないな。Firefoxで使えなかったり、ActiveXがなんたらとかあるけど。しかし、そっち方面でブラウザの中の人が使う分にはDojoとか使ってればいいんじゃねーの。JScriptなんて進展ないしライブラリ書く人いないんだから、ScriptControlは許容しとこう。ScriptControlはライブラリ以外での使用禁止。それ以外では純粋にRubyで書きましょう。
そのうちこんなことをして喜ぶ。
var sc = WScript.CreateObject("ScriptControl");
sc.Language = "RubyScript";
sc.AddCode(["def fuck(n)", "\"fuck\"*n", "end"].join("\n"));
WScript.Echo(sc.CodeObject.fuck(100));
なんか、ActiveScriptを間違えて、全ての言語はJavaScriptのためのインタフェースだとか思い出してきもい。だから、Rubyの書き方がこうなる。
def foo "foo" end def bar "bar" end def dr_who "Dr. Who" end def yahoo "yahho-" end
明らかに使い方間違っててきもい。もちろん、私のことですが。
http://en.wikipedia.org/wiki/Utah_teapot
とてもじゃないけど、glutWireTeapotのためにこんなに長い文章読んでられません。多分Utah teapotが本当に真価を発揮するのはcanvasで3Dが実装されたときですね。そして、そんな時などくるわけがないので、Utah teapotは意味不明のまま残り続けます。
競馬 |
http://iko-tihoukeiba.com/index.php?e=1041
あー中川昭一もターゲットにちゃんと入ってんのね。本人も多少動いた模様で。
http://d.hatena.ne.jp/momdo/20061202/p1
http://www.mainichi-msn.co.jp/chihou/hokkaido/archive/news/2006/12/01/20061201hog00m040021000c.html
怪しい資金面の情報。
http://www.gracom.net/sikinouen.html
個人的にまだ分からないこと。
ちゃんと調べれば出てきそうだけど、自治体のサイトは見てて死にそうになる。
まず、第一に地元の声ってのがblog界隈読んでても見えてこない。署名云々ってのも全国レベルでの話で、地元民が赤字覚悟で続けてゆこうとしているのかが分からない。
第二に、帯広開催のみの収支はどうなってんだ。3億の赤字見込みだそうだが。資金面の寄付金で3億がまかなえるかもしれないが、それを毎年続けられるのか? しかも、半分は自分の懐から出してるみたいな感じだし。
http://www.tokachi.co.jp/kachi/jour/06banba/20061129/01.htm
ここでちょっと書いてあるけど、帯広開催は4ヶ月で60億か。廃止を決定した他の市に比べて一番まともなよう。単純計算で、実質の収支は15 - 18 = 3億って感じで、売上を5%以上伸ばせれば赤字は出ない風かな。ってこれは今までどおりの4ヶ月の開催での話で、もっと期間延びることを想定してならもっとマシな状況。どっかのblogで書いてあったとおり、帯広だけならまともにやっていける気がしないでもない。
寄付金に関しては某インターネット企業が最低2億円の資金供与の意向らしい。まあ、幅広く受け付ければいい。あんまり身内から募るなよと。ファンの人たちも寄付じゃなくてネットで馬券買えと。これで赤字はある程度解消だね。やった、簡単。あとは、地元の人に少しの赤字は勘弁してもらうことだ。
個人的には、地元の支えだけでやっていくのが一番いいとは思うがちょっと無理かもしれない。全国レベルで展開させても、やはりばんえい競馬はそこの人たちのものであってほしい。地域のアイデンティティであってほしい。つーか、そうじゃないと未来無いでしょ。資金提供は外からあってもいいけど、それによって地域性が失われたんじゃ、何のために存続してるのか分からなくなる。
そもそもな、ばんえいなんて開拓の歴史であり畜産の文化であって、俺のところみたいな米作ってるような土地のもんじゃないんだ。だから、ばんえいに対して個人的な思い入れもアイデンティティもない。こんな人間が署名することなんか偽善でしかない。
だからこそ、地元民の意向こそが大事。momdoさんが言ってるように、潰してもいいという意思表示があるのなら、それっていらないってことだ。もちろん、その意思があるか分からないんだけど。
何度も言うように、他の地域の人間が重要な文化だと思うのなら、地元民の意思の確認、それにともなうコミュニケーションが必要なんじゃないか。そういったとき、地元でばんえい競馬存続のためのコミュニティが出来上がって、そこから積極的な働きかけがあったりするもんだけど。規模が市レベルだから伝わってこないのかな。市が市民の声をしっかりと吸い上げているのか、という問題でもある。たとえば、五ヵ年計画を見てもプロジェクトチームは市長を中心とする市の公務員だけだ。そもそも地元民とのコミュニケーションはどうやって取ってるの?
もしかしたらその辺は前提にあって今の全国展開があるのかもしれないけど、全く関わりのない俺としたら相当置いてけぼりだし、地元民の望む声が聞こえない状況で俺みたいな人に気持ちが伝わるんだろうか。それはそれで地元民の意思を全然重要視してなくない?
続けていくことしか考えずに、イナゴ企業に食い尽くされて、残りカスになったばんえい競馬なんて見たくないよ。
表示の崩れるサイトを作っている人じゃなく、ブラウザに文句たれよう。というか、ここまで表示に差が出るのは誰のせいか分からないのでIEとFirefox両方死ね。そしてOperaしか存在しなくなる。
Skype4COMを使う。簡単にやればこれだけ。
var skype = newComObject("Skype4Com.Skype");
var it = newComObject("iTunes.Application");
var me = skype.CurrentUserProfile;
while(true){
with(it.CurrentTrack)
me.MoodText = [Name," / ",Artist].join("");
print(me.MoodText);
WScript.Sleep(60000);
}
function newComObject(lib){
var obj;
try { obj = WScript.CreateObject(lib) }
catch(e){ obj = new ActiveXObject(lib) }
return obj;
}
function print(s){ WScript.Echo(s); }
http://ikejisoft.com/?cmd=read&page=Skype%A4%E4%A4%ED%A4%A6%A4%BC%2FMusicTitle
こちらの『SkypeにiTunesで再生してる曲名表示』を拝見させていただきました。
私もこの件で何とかならないものかと思っていたので、目から鱗でした。
ありがとうございました。
ところで、これを参考に、独自に改造を施したコードを書きました。
具体的に言えば、C#のアプリケーションと連動して、少し敷居を低くしてみた、というものなのですが、これを私のブログで公開してもよろしいでしょうか?