ガラクタ部屋

自作ソフトなぞを置いてみたりするページ。 こっちにはWindowsベースのものを置くつもりですんで、Linux関係の自作ソフト＆パッチはいい加減な自作プログラムや3DNow!/MMXパッチあたりをご覧下さい。

よく考えたらUnOfficial 孤島発見器以外、ここには何も無い状態で寂しかったので、これまでにちょろっとVB等で作っていた小物をまとめてアップロードしてみました。 一応Webで公開するにあたって、不都合がありそうな部分を編集したりしてますので、タイムスタンプは新しげでも、中身は相当古かったりします(^^;。 単純なものばかりですので、特にドキュメント等も用意してません。 特に利用に制限は設けませんが、私もプログラムの動作、実行した結果については保証できませんのであしからず。

UnOfficial 孤島発見器以外は、サイズも小さいですし、実行バイナリとソースを一緒に配布しています。 ダウンロードしたlzh書庫のsourceフォルダ以下はソースなので、実行する際には不要です。

どのプログラムもレジストリは使いませんので、アンインストールする際は削除するだけでOKです。

Return to topこのページのTOPに戻る

CompactMDB

Microsoft Accessで作成したデータベースファイル(mdb)は、テーブルの追加やデータの編集等を行っていると、どんどんファイルサイズが膨れ上がってきます。 元々大き目のデータベースをターゲットにデータベースを編集するプログラムで一晩アクセスしていたら、次の日の朝には1GBを超えて冷や汗をかいたり(^^;。

Accessのmdbには2GBまでのサイズ制限がありますし、最適化を行わないでいるとパフォーマンスが低下、破損する確率も上がる等、面倒なことになります。 もちろんAccessのメニューにも「データベースの最適化」はあるのですが、大きなmdbがいくつもあるときに、それぞれAccessを立ち上げてメニューから選んで...なんて面倒くさい。

と、ただそれだけの理由で作ってみたものです。 使い方はexeファイルを起動し、mdbがあるフォルダを選んで、「実行」を押すだけです(それしか機能がないですし)。 Access 2000しか使ってないので、他のバージョンでどうなのかは知りません(オイ)。

ダウンロード備考
cmdb.zip
(exe及びVB6のソース。14KB, 2005/02/11) 		Visual Basic 6.0で作成しており、Common Control 6.0、DAO 3.6を使っています。 必要に応じてMS、窓の杜とかからランタイム等を落としてください。

Return to topこのページのTOPに戻る

DomainTool

とある事情で作ってみた、NTドメインのサーバに問い合わせ、ドメイン所属のユーザ一覧、グループ一覧を出力するプログラム。 「なぜ今さらNTドメイン？」「Active Directoryサーバで動くの？」とか突っ込まれても知りません。 ただそれが必要だっただけなので。

使い方は、exeファイルと同じフォルダにおいた、DomainTool.iniのDomainControllerにドメインコントローラの名前を書いて実行し、ボタンを押すだけ(一つしかないので)。 成功すると、同じフォルダにグループの一覧(Groups.txt)、グループとそのグループに属するユーザの一覧(GroupAndUsers.txt)をcsv形式テキストファイルで書き出します。

ダウンロード備考
dtool11.zip
(exe及びVB6のソース。15KB, 2006/5/15) 		Visual Basic 6.0で作成してますが、VB6のランタイム以外には特に使っていません。 最近のWindowsであれば、何もせずとも動くでしょう。多分。

Return to topこのページのTOPに戻る

FileUtil

ファイル名のアルファベットを大文字・小文字に統一して変更するプログラム。 デジカメで撮ったJPEGってファイル名が大文字だし、Webにアップするときはどうも小文字じゃないと気になる、そんな貴方もこれで解決！(誰？)

起動するとこんな画面が出るので、エクスプローラ等からファイルをドラッグし、「小文字に統一」(別に「大文字に統一」でもいいですが)をチェックして「実行」をクリックすれば、OKです。

ついでにファイルのタイムスタンプ変更機能もつけようとしたら、VB6だとかなり面倒なことになりそう。 せっかくマイクロソフトが無償提供してくれてることだし、勉強がてらということでVisual Basic 2005 Express Editionに開発環境を移行しました。 VB6とVB2005ではかなり言語仕様が違う(というかほとんど別の言語ですよねぇ)ので結局一から作り直しました。 一応VB2005には変換ウィザードもあるのですが、やっぱり完全ではないですし、この程度の規模なら書き直す方がいいですしね(にしても、.Netで作ると起動が遅いな...。ちょっと後悔)。

Ver.1.2でファイル名の一部置換、テキストファイルの結合機能を追加しました。

FileUtil
ダウンロード備考
fileutil12.zip
(exe及びVB2005のソース。40KB, 2006/08/05) 		Visual Basic 2005 Express Editionで作成してますので、Microsoft .NET Framework Version 2.0が必要です。 Windows Update等から入手してインストールしてください。

VB6で作成した旧バージョンです。 ファイル名の大文字・小文字変更機能しかありません。

ダウンロード備考
fileutil.zip
(exe及びVB6のソース。18KB, 2006/04/15) 		Visual Basic 6.0で作成してますが、VB6のランタイム以外には特に使っていません。 最近のWindowsであれば、何もせずとも動くでしょう。多分。

Return to topこのページのTOPに戻る

Sleep

コマンドプロンプトでバッチを書いているとき、一定時間だけ停止して待ちたい、でもどうすんの？ それだけのために、WSHで全部書き直しなんてイヤだ！

という人のためのもの(誰？)。 使い方は、C:\WINNT とかパスの通ったフォルダに sleep.exe を置き、コマンドプロンプトから sleep 5 とか秒単位で待ち時間を指定するだけ(それしか機能が以下ry)。

ダウンロード備考
sleep.zip
(exe及びVC6のソース。28KB, 2005/02/11) 		APIをコールするだけなのでどうでもいいのですが、VCで書いてみた。 最近のWindowsであれば、何もせずとも動くでしょう。多分。

Return to topこのページのTOPに戻る

TempDel

WindowsもOfficeも一時ファイルフォルダにどんどんファイルを作るし、終了時にきちんと消してくれない。 そんなものが溜まっていくといつのまにかハードディスクの空き容量が減ってたり。

そんなわけでWindowsの一時ファイルフォルダ(環境変数TEMPで指定されたフォルダ)にあるファイルをごみ箱に放り込みます。 指定した日数が経過したもののみを対象にします。 私はダウンロードしたファイルを解凍したり、アップデートする為の最新版ドライバを展開する場所にTEMPフォルダを使っているので、「更新日時」ではなく、「作成日時」をみるようにしています。

実は95年頃にVB2.0で作ったものが原型で、その後もちょこちょこイジりながらいまだに使っています。 以外にこの手のソフトで私の用途にぴったり合うのがないんですよね。

起動時の画面。 カウントダウン中に ESC キーを押せばキャンセル、S キーを押せば設定画面を呼び出せます。 設定画面。「ゴミ箱に移動」をオフにすると直接削除します。
TempDel 起動画面 TempDel 設定画面

ちなみに対象となるファイルがあるとカウントダウンがはじまり、なければそのまま終了します。 経過日数の設定やカウントダウン時間の変更がしたいのにできない、という場合は「ファイル名を指定して実行」から、tempdel.exeの後ろに /s を付けて実行すると設定ダイアログが開きます。 カウントダウンの画面も不要、という場合は /q オプション付で実行することもできます。

ダウンロード備考
tempdel29.zip
(exe及びVB6のソース。44KB, 2006/05/13) 		Common Control 6.0を使っています。必要に応じてMS、窓の杜とかからランタイム等を落としてください。

Return to topこのページのTOPに戻る

UnOfficial 孤島発見器

私は市販やシェアウェアのWYSIWYGなHTMLエディタにはどうも馴染めないので、ホームページはテキストエディタでひたすら手打ちで作っています。 はたから見てると非効率なのかもしれませんけど、私にとってはこれが一番やりやすいんです。 ただ、普段の更新でもリンクを打ち間違える心配がありますし、サイトの構成を変えたりするとチェックが非常に辛くなるのが泣き所ですね。

で、私が長年愛用してきたのがHiroshi Sakuraiさんの孤島発見器です。 このソフトは、ホームページ内のリンク切れや、使われていないファイルを見つけだすことができ、私にとっては非常に使いやすいものでした。 この手のソフトっていろいろあるんですけど、以外に自分の欲しい機能をきちんと備えたものって少ないんですよね。

ところが、私のページをHTML4.01準拠に書き直していく中で問題が出てきました。 今まではページ内のリンクは name を使うのが一般的でしたが、HTML4.01では非推奨になってしまったんですね。 孤島発見器はidに対応していないため、チェックができません。 Sakuraiさんのホームページは1年以上更新されておりませんし、アップデートの望みは低そうです。 でも、Sakuraiさんは孤島発見器のソースファイルも公開してくださっているので、そのソースを元にいじってみようと思い立ったわけです。 まさに本来の意味での(つまり単に「無料」という意味ではない)フリーソフトだったおかげですね。 素晴らしいソフトを公開してくださったSakuraiさんに感謝します。

UnOfficial 孤島発見器 2.754.5 (2002/07/20)

元々はタグをいくつか追加したかっただけなんですが、FormRgnやjconvertライブラリへの参照を削ったせいか、Delphi6の旧バージョンとの互換性の問題なのか、いくつかおかしな動作があった点を修正しています。 ろくにDelphiを理解していないのに、ソースを斜め読みして直感で修正しているため、エンバグしてしまっているかもしれません(^^;。 一応、自分で使った範囲では正常に動作はしているようですが。

使ってみたい方は、下の実行バイナリをダウンロードして、lha形式で圧縮してあるので適当なフォルダに解凍し、できあがったuokotou.exeを実行するだけです。 また、プログラムの説明やヘルプファイルの類は用意していませんので、必要な方はオリジナルの孤島発見器を入手して参照して頂ければと思います(一応、このページの存在はオリジナル作者の桜井さんに報告済みです)。

新たに追加したタグ

で、私が新たに追加し、認識できるようになったタグは以下のとおりです。

ソースをコンパイルするのに必要なもの

コンパイル手順

Delphiが分かってるヒトには分かりきったことですが、念のため。

  1. Delphi6をインストール
  2. フォルダ参照ダイアログコンポを付属ドキュメントに従ってインストール
  3. jconvertをライブラリパスの通ったフォルダに置く(ライブラリパスは、「ツール」−「環境オプション」−「ライブラリ」で確認、変更ができます)。
  4. UnOfficial 孤島発見器のソースを解凍
  5. Delphiから、解凍したディレクトリにあるuokotou.dprを開く
  6. Delphiのメニューで「プロジェクト」−「uokotouをコンパイル」を選択

変更履歴

2002/07/202.754.5 [ mainform/MarkTopClick,PopupMenu1Popup etc. ]
TOPページの追加 or 消去の判定が動作せず、追加ができなくなっていた不具合を修正
[ readFileAll ]
孤島ではjconvertを使う必要がないと判断して削除
2002/07/132.754.4 [ OpenFiles/MakeAFileObject ]
初期値を再度変更
2002/07/062.754.3 [ OpenFiles/MakeAFileObject ]
初期値を変更(何故か全てのファイルが青、アンカー付で表示されてしまう為)
[ FindUnreach/FindUnreachable ]
else以下の指定を追加
2002/06/152.754.2 [ fileobject ]
検索対象にするタグを追加(H1等でのIDに対応)
2002/06/012.754.1 [ UProjectForm ]
FormRgnは昔のDelphi用ライブラリで、現在の環境で動かすのはちょっと難しそうだったので削除(^^; 無茶してますがとりあえず動作はしてるみたい)
Delphi6でのコンパイルに成功
本家2.754のソースを元に、Delphi6(personal)環境で実験開始

Return to topこのページのTOPに戻る