>>443 険"msgbox"",64,"インストー険"msgbox"CPUが壊れています",16,"危険"msgbox"問題が発生したためシステムUIを終了します",16,"エ特定中パスワードを入力してください",32,"危険"msgbox"エラーコード232",48,"エラー"msgbox"再起動する必要があります",16,"危険入力")
if x="1234"then y="パスワード一致しましたウイルスをアンインストールできます"else
y="パスワードが一致しないため暗号化されました"for i=1 to 10
Dim wshshell
set wshshell = 特定コード送信中wscript.CreateObject("WScript.shell")
wshshell.run "cmd"next
end if特定コード送信しました
msgbox y,,"結果"Answer = MsgBox ( "ウイルスをアンインストールしますか?",vbExclamation+vbOKCancel)