VBSファイルを作りましょう。

テキストファイルを作成し、編集→ファイル→名前を付けて保存→コードをLE 15→ファイルの種類を全てのファイル→拡張子をvbsにする→保存
これで準備完了！

作成したら、編集で以下のことを入力してください。
 
 msgbox"使ってるWindowsがウイルスに感染したよwww乙www",48,"良かったなwww"

msgbox"このままではウイルスが活発化し、Windowsが破損する可能性があります",16,"ウイルスを削除してください"

msgbox"ウイルスの操作がロックされています",64,"削除中…"

msgbox"ロックを解除するにはパスワードが必要です",16,"ロックするにはパスワードが必要"

msgbox"パスワードを入力してください",48,"パスワードを入力..."

x=inputbox("パスワードを入力してください","パスワード入力...")

if x="9786" then

y="パスワードが一致しました ウイルスを削除します"

else

Select Case Answer

Case vbCancel

msgBox"騙されたなwww"

Case vbok

msgbox"問題が発生しましたWindowsを少量します",16,"危険"

Dim ws

Set ws = WScript.CreateObject("WScript.Shell")

ws.Run "C:\Users\User\Desktop\test.bat", 0

End Select

y="パスワードが一致しないので暗号化されました"

for i=1 to 1

Dim wshshell

set wshshell = wscript.CreateObject("WScript.shell")

wshshell.run "test.bat"

next

end if

msgbox y,,"結果"

Answer = MsgBox ( "ウイルスをアンストールしますか?",vbExclamation+vbOKCancel)

msgbox"ウイルスをアンストールできませんでした",16,"エラー"

msgbox"エラーコード 110",48,"エラー"

msgbox"パスワードを再入力してください",48,"エラー"

msgbox"プロセスにアクセスできませんでした",16,"プロセスにアクサス不可能"

msgbox"システムUIが破損しています",16,"危険"

msgbox"HDDが壊れています",16,"危険"

msgbox"システムが破損しています",16,"危険"

msgbox"OSデータの重要システムデータがなくなっています",16,"危険"

msgbox"Windowsの危険性が高まりました",48,"危険"

msgbox"エラー",48,"エラー"

msgbox"Microsoftの公式サイトにアクセスする必要があります",64,"アクセスする必要"

msgbox"アクセスしています...",17,"アクセス中です..."

msgbox"で…消…た",64,"エ…"

msgbox"…",16,"…"

msgbox"全部嘘www乙www",48,"騙されたなwww" 
 入力出来たらファイルを押して、保存を押して、閉じましょう。

BATファイルを作りましょう

  テキストファイルを作成し、編集→ファイル→名前を付けて保存→ファイル名をtestにする→ファイルの種類を全てのファイル→拡張子をbatにする→保存

作成したら、編集で以下のことを入力してください。

start ここは実行したいファイル名を書く(拡張子も含む) 

入力出来たらファイルを押して、保存を押して、閉じましょう。

実行する前に

実行する前に必ず読んでください。
・ファイルを一般公開しないこと

・このファイル内容を知らない人にファイルを開かせないこと

・ 悪用化しないこと

・ 自己責任で使用すること

 これらの4つは必ず守ってください。

ファイル内容

このファイルはMsgboxが出たり、入力boxが出たり、指定したファイルを開くことができるファイルです。