これをメモに張り付けて、拡張子を.vbsにして、クリックすると起動します。
Option Explicit Dim num,x num = 2 Do While True num = MsgBox ("こんにちは。今からこのパソコンを乗っ取りますww",16,"いぇいww") If num = 1 Then Exit Do Loop MsgBox "ぐへへへへwww",16,"パソコン終了ですバイバイww" WScript.Sleep(1000) MsgBox "Let's Go!",16,"(^^)/" WScript.Sleep(5000) MsgBox "乗っ取り大成功wwww",16,"PC死亡www" WScript.Sleep(3000) MsgBox "PCが死んでしまう気持ちはどんな気持ちですか?www",16,"インタビューですww" WScript.Sleep(500) MsgBox "警察とかは呼ばないでくださいww",16,"ざまあww" WScript.Sleep(2000) MsgBox "いや~PC乗っ取るって楽しいねwww",16,"ざまあww" WScript.Sleep(1000) Dim y Set y = WScript.CreateObject("WScript.Network") MsgBox "あなたのユーザー名は" & y.UserName & "なんですね。了解ですww",16,"バレバレやんwww" WScript.Sleep(2000) MsgBox "今あなたのPCのドキュメントのフォルダからデータを抜いていますwww",16,"ざまあww" WScript.Sleep(500) MsgBox "デスクトップからも抜いていますwwwwww",16,"ざまあww" WScript.Sleep(1000) MsgBox "うわ、動画のファイル多すぎて引き抜けないwww",16,"どうしよう" WScript.Sleep(2000) MsgBox "多すぎてできなかったのでやめることにしますwww",64,"また今度" WScript.Sleep(1000) MsgBox "それではwww",64,"また今度" WScript.Sleep(5000) MsgBox "乗っ取り体験プログラムの体験ありがとうございました",16,"お付き合いいただきありがとうございました"