http://sooda.jp/qa/124808
「赤ペンで添削された書類を、スキャナで取り込んで、赤書きの所だけ削除したいのですが、何かこう、すぱっと赤色だけ消す方法は無いのでしょうか？

消しゴムで細かく消そうにも、黒字で書かれた文字とかぶっている所が多いので、うまくいきません。

選択→色域を選択で、書類の黒い部分をクリックして選択します。
選択→選択範囲を反転で、残したい黒以外の部分が選択されます。
編集→消去
黒い部分だけが残ります」

/dev/audioでなく/dev/dspだった。

&ie=Shift_JIS&

Windows98にSymantec Norton Internet Security 2003をインストールする際に自動的にDCOM98がインストールされる。

インストールの途中で「例外06」のブルースクリーンが発生してしまう。
その後はALT+CTRL+DELのリセットもできない。

参考ページ
マイクロソフト

ハードディスクをリストアしてもだめだったらSymantecに聞いてみよう。

@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
# hexadecimal dump using Tk.
#!perl -w
#line 16
use strict;
use Data::HexDump ();
use Tk;
use Tk::ROText;

my $f = new Data::HexDump;
die 'give a file name to dump' unless $ARGV[0];
die "Is $ARGV[0] really exist?" unless -e $ARGV[0];
$f->file( $ARGV[0] );
$f->block_size(1024);

my $main = new MainWindow;
$main->Label(-font => 'systemfixed', -text =>
'          00 01 02 03 04 05 06 07 - 08 09 0A 0B 0C 0D 0E 0F  0123456789ABCDEF'
)->pack(-anchor => 'w');
my $ro = $main->Scrolled('ROText', -scrollbars => 'e', -font => 'systemfixed');
$ro->pack(-anchor => 'w');
$main->Button(-text => 'OK',  -command => [$main => 'destroy'])->pack;
$ro->insert('end', $_) while $_ = $f->dump;

MainLoop;
__END__
:endofperl

本日は晴天なり。
あーあーあー。