> > このシステムで何をエラーとしているか次第だな(;´Д`)
> '特定のアカウント以外が最高機密データをダウンロードした場合
> Private Sub SystemDangerous()
>     'エラーメッセージ3分間表示
>     Label_Main.Text="最高機密データが違法にダウンロードされてます！！"
>     Sleep(3000)
> 　　'システム全体をシャットダウン
>     SystemShutDown()
> End Sub
> この3分間の間に全データがダウンロードされる様が頭に浮かんだ(;´Д`)

VBは分からないからちょっとperlで書いてくれ(;´Д`)

参考：2007/03/17(土)18時06分54秒