> > このシステムで何をエラーとしているか次第だな(;´Д`) > '特定のアカウント以外が最高機密データをダウンロードした場合 > Private Sub SystemDangerous() > 'エラーメッセージ3分間表示 > Label_Main.Text="最高機密データが違法にダウンロードされてます!!" > Sleep(3000) > 'システム全体をシャットダウン > SystemShutDown() > End Sub > この3分間の間に全データがダウンロードされる様が頭に浮かんだ(;´Д`) VBは分からないからちょっとperlで書いてくれ(;´Д`) 参考:2007/03/17(土)18時06分54秒