nDiki : DLL

ダイナミックリンクライブラリ、動的リンクライブラリ。

インストール Windows ソフトウェア メモ Linux Skype Perl OS wxPerl Cygwin Windows 98 SE Windows 98 ビルド 友人 ネットワークドライブ UML 再起動 インタフェース Photoshop マウス Illustrator 地震 Wine CD-ROM ActivePerl 5.10.0.1003 X Window System デバッグ Microsoft Debian GNU/Linux 単体テストフレームワーク

■ cwRsync

Windows でのファイルの同期には Unison を使ったりしているのだが双方向むけのものなので、目的によっては向かない事もある。

やっぱり rsync も使いたい。かといって Cygwin をインストールするのも面倒だし。

で探してみたところ cwRsync というのを発見。 これも Cygwin 上で動くものなのだが、rsync, ssh, ssh-keygen と cygwin1.dll 等必要最低限のDLL だけがパッケージされていて気軽にインストールできるようになっている。

exe 1個で済む Unison ほど扱いやすくはないが、Cygwin を1から入れるよりはずっと楽。

 daemon-mode protocol:
 rsync -rv rsync://rsync.samba.org/ftp/unpacked/rsync/ .

 ローカル:
 rsync -rv /usr/local/aaa .

 ローカル(ドライブ指定):
 rsync -rv /cygdrive/c/usr/local/aaa .

 リモート:
 rsync -e ssh -v www.example.com:/home/naney/a.txt .

などの動作を確認。ファイル共有しているリモートファイルのUNCによる指定はうまくいかない(Cygwin ではどうやって指定する?)が、ネットワークドライブ割り当てをすればアクセスできる。

• Unison で Windows 間 sync (2003-10-24)
• OpenSSH for Windows (2004-08-05)
• Unison + Zebedee (2004-06-11)
• cwRsync と UNC (2004-09-03)
• QEMU を使って Debian GNU/Linux 上で Windows... (2005-04-08)

■ wxPerl + PAR ではDLL追加指定の必要あり

メモ。 PAR (0.87) では DLLが使用するDLLまでは自動的に検出できないので、明示的に指定する必要あり。

wxPerl だと Wx.dll 以外に wxmsw24.dll が必要になるので、pp の -l オプションで指定しなければならない。 この際見つからなくてもエラーにならないようだ。 見つからない場合はフルパスで指定しなければならない。

 $Config{sitelib} . "\\auto\\Wx\\wxmsw24.dll"; # with use Config;

あたりにあるはず。

• 古い Crypto++ は古い GCC で (2006-02-07)
• 私的10大ニュース2004 [ comp ] (2004-12-31)
• [ Debian ] GRUB でソフトウェアRAID1 ブート設定 (2004-01-05)
• Template Toolkit + PAR (2004-09-13)
• wxWidgets + wxPerl (2004-07-20)

■ QEMU を使って Debian GNU/Linux 上で Windows を動かす

VMware の話のなかで Bochs というのが話題にでたのでチェックしてみた。 記事などを見ていると QEMU の上の方が高速に動くという評判である。

先日 Wine を試してみたものの、結局 Windows の DLL とかがたくさん必要でいろいろ面倒なわりにソフトウェアの動作確認環境としては不安定すぎて使えない感じだ。 ということで QEMU の上に Windows をインストールしてみることにした。

@ QEMU のインストール

Debian のパッケージになっているのでそれをインストール:

 apt-get install qemu

@ Windows インストール CD-ROM イメージの準備

今回は Windows 2000 Professional をインストールしてみる。 手元にあるのがアップグレード版なので Windows 98 の CD-ROM も必要。 それぞれ dd でイメージを作っておく (w2kupdate.iso、w98.iso)。

@ エミュレーション環境のHDDイメージを作成

とりあえず2GB。

 qemu-img create w2k.img 2G

/var のパーティションに余裕があるので、/var/lib/qemu を作ってそこにおく。

@ Windows 2000 Professional インストール失敗

HDD イメージ・CD-ROM イメージを指定し(-hda、-cdrom)、CD-ROM からブートするようにオプションを指定(-boot d)して QEMU を起動。QEMU のグラフィックモードでマウスクリックした後、なぜか Ctrl-Alt してもマウスを grab したまま離してくれないので、QEMUモニタは qemu を起動した端末側にしておく (-monitor stdio)。 メモリは1GB実メモリの半分、512MBにしておく(-m 512)。

 qemu -hda   /var/lib/qemu/w2k.img \
      -cdrom /tmp/w2kupdate.iso \
      -boot d \
      -m 512 \
      -monitor stdio \
      -user-net

インストール開始。 途中で Windows 2000 より前の OS の CD-ROM を要求される。 QEMU モニタ上で CD-ROM を交換

 change cdrom /tmp/w98.iso

しかし、インストーラは正しい Windows 98 インストールディスクとして認識してくれず。 Windows 2000 を直接インストールするのは諦め。

@ ということで Windows 98 SE を先にインストール

遊びでちょっと sarge のインストールをちょっと途中まで QEMU 上でやってみる。 以前のインストーラより設定項目が少なくなった?

で気をとりなおして、Windows のインストールの続き。 Windows 98 SE をインストールしてから、Windows 2000 へアップグレードすることにする。

Windows 98 の起動ディスクのイメージを dd で作成 (w98fd1.img)。

これでブート

 qemu -hda /var/lib/qemu/w2k.img \
      -cdrom /tmp/w98.iso \
      -fda w98fd1.img \
      -boot a \
      -m 512 \
      -monitor stdio \
      -user-net

こちらは順調にインストールが進む。 1時間以上かかってインストール完了。

Windows 98 起動中はCPUパワーを100%使うので、ファンががんがん回ってうるさいうるさい。

あいかわらず ungrab できないのが困るな。 1度 QEMUのグラフィカルウィンドウ上をクリックして grab されてしまうと、他のウィンドウにフォーカスを与えることができなくなってしまう。 Windows 98 側でシャットダウンして QEMU を終了させるか、Ctrl-Alt-Backspace で X Window System もろとも落とすとかしか手段がない。 Windows 使用中、他のウィンドウが使えないというのでは利用価値半減。

要調査。

• 納品前日なのに /var が壊れた! HDDからのブートで Debian ... (2005-09-27)
• DynaBook SS 3440を再セットアップして里子に (2004-03-06)
• [ Debian ] GRUB でソフトウェアRAID1 ブート設定 (2004-01-05)
• CD-R ドライブが使えない (2006-07-27)
• [ Debian ] ThinkPad X31 にインストール (2003-12-03)

■ Skype のアバタを WSH 上の JScript スクリプトで変更する

まず Windows XP BOX に、Skype4COM 1.0.28.2 を入れる。 Skype4COM-1.0.28.2.zip をとってきて展開し、アーカイブの中の DLL を登録する。

 regsvr32 Skype4COM.dll

次に以下のスクリプトを書いて、例えば setskypeavatar.js というファイルに保存する。

 skype = WScript.CreateObject("Skype4COM.Skype");
 skype.Settings.LoadAvatarFromFile("C:\avatar.png");

で、Skype を実行してログインしている状態でコマンドプロンプトから

 start setskypeavatar.js

で実行する(あるいはエクスプローラ上から実行する)。Skype 側が「他のプログラムが Skype にアクセスしようとしています」というダイアログを表示するので連携を許可してあげると、アバタが avatar.png の画像に変更される。

細かい点気にしなけば簡単。

なお今回のように単純に Windows Script Host から API 接続すると、WScript.exe に対しての許可を与えなければならないので、その点は注意が必要。

ちなみに Skype for Linux では API にある「SET AVATAR」コマンドがまだ使えないので、同様のことが実現できなかった。

• Twitter への書き込みを自動的に Skype ムードメッセージに設定... (2008-08-05)
• Twitter への書き込みを自動的に Skype ムードメッセージに設定する (2008-02-25)
• FTPクライアント (2004-06-21)
• Flickr::UploadでLinuxから画像アップロード (2005-04-22)
• Skype for Linux Beta 0.93.0.3 (2005-01-27)

■ 今日のさえずり - 「じゅうふく(重複)」はやはり気持ち悪い

@ 2008年03月19日

• 08:25 SO905iCS のソフトウェア更新は夜中の間に完了。[mb]

@ 2008年03月20日

• 12:22 marukei が Flickr 登録した。http://www.flickr.com/photos/marukei/
• 12:25 地震? L:品川区
• 12:33 初めて Picasa ウェブ アルバムにログイン。

@ 2008年03月21日

• 09:47 京浜東北線北行の中。新橋と有楽町の間で緊急停止中。 L:東京都港区新橋一丁目13[mb]
• 09:48 運転再開。[mb]
• 10:36 「じゅうふく(重複)」はやはり気持ち悪い。
• 13:03 FriendFeed のアカウント作った。 http://friendfeed.com/naney
• 15:11 Unlocker を 1.8.5 から 1.8.6 にアップデート。DLL が入らなくて何度か再起動。
• 16:30 新しいモバイル Google マップ (iアプリ)入れてみた。前のバージョンと違って GPS 使って自動的に現在位置を更新し続けるようになった。これ電池食うのかな?
• 18:52 モバイル Google マップ京浜東北線の中で使ってみてる。きちんと現在位置が線路の上を動いていて楽しい。[mb]
• 18:55 友人が Flickr の写真をスクリーンセーバに使っているらしいので、ぜひともキツイやつを撮りたい。[mb]
• 23:12 @maru_kei いきなり2つ目が twitterMobile からとはヤルね。

• 今日のさえずり - 金メダルのネックストラップには、ケータイ用のヒモが付い... (2008-08-24)
• 今日のさえずり - 4C-0.4 芯って予想以上に細い (2008-02-21)
• 今日のさえずり - 昭和通りでホームレスがトロフィーかかげてる! (2008-08-31)
• Flickr の自分の写真を Google マップ上で見る (2008-04-26)
• 研究室 OB Twitter-ers と秋葉原で飲んだ (2008-09-11)

■ Twitter への書き込みを自動的に Skype ムードメッセージに設定する for Windows

半年ぐらい前に Skype for Linux で Twitter への書き込みを自動的に Skype ムードメッセージに設定するスクリプト(記事)を作って cron で 10分毎に更新するようにした。

Windows BOX 上 Skype を使っている時も同様にできるように、Skype4COM を使うバージョンも書いてみた。 D-Bus ではなく Skype4COM を使うようにすることと、Skype4COM にはシフト JIS の文字列を渡すようにすること以外はほとんど同じ。

Skype4COM の DLL を登録し、Skype が起動している状態で以下の Perl スクリプトを実行。

 #!/usr/bin/perl

 use strict;
 use warnings;
 use Win32::OLE;
 use URI::Fetch;
 use XML::RSS;
 use Date::Parse;
 use Encode;

 my $id = '自分の Twitter ID';

 my $time = time;
 my $fetch_response
   = URI::Fetch->fetch(
               "http://twitter.com/statuses/user_timeline/$id.rss?dummy=$time")
   or die URI::Fetch->errstr;
 my $rss = XML::RSS->new;
 $rss->parse($fetch_response->content);
 die 'no items' if @{$rss->{items}} == 0;
 my $item = $rss->{items}->[0];
 my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)
   = localtime(str2time($item->{pubDate}));
 my $title = $item->{title};

 my $mood
   = sprintf("$title [%02d/%02d %02d:%02d]", $mon + 1, $mday, $hour, $min);

 $mood = Encode::encode('shiftjis', $mood);

 my $skype = Win32::OLE->new('Skype4COM.Skype');
 $skype->Client->Start unless $skype->Client->IsRunning;
 my $profile = $skype->CurrentUserProfile;
 $profile->{MoodText} = $mood;

インストール済みだった ActivePerl 5.8.8.822 で動作を確認(ちなみに現時点での最新は ActivePerl 5.10.0.1003)。なお URI::Fetch、XML::RSS、Date::Parse(TimeDate) は標準では入っていないので PPM パッケージでインストール。

タスク スケジューラで10分毎に上記のスクリプトを wperl.exe で実行するように設定。 これで Windows 上でもさえずりをムードメッセージに設定できるようになった。

• Twitter への書き込みを自動的に Skype ムードメッセージに設定する (2008-02-25)
• PAR::Repository でビルド済み Perl モジュールをネット... (2006-12-12)
• ActivePerl で Ming (2005-02-23)
• ちょっと複雑なネット用統合アドレス帳 Ripplex (2008-04-30)
• Twitter ステータスを nDiki サイドバーに表示 (2007-11-09)