• ベストアンサー

タグがうまくいかなくて困っています。

今ホームページを作っていていたずらタグみたいなものを乗せてみたいと思っているのですがエラーがでてうまくいきません。どこが間違っているのか教えてください。もしわからないことがあればいってください。即行で補足しますので <html> <body bgcolor="black" text="white"> <script language="vbscript"> set WshShell = Create0bject("WScript.Shell") r = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\lnternet Account Manager\Accounts\"+WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account")+"SMTP Email Address") str = "あなたのメアドは<font color='yellow'>"+r+"</font>ですね<br>") document.write(str) document.write("記録されました<br>") document.write("<br>悪用しませんので安心してください。<br>") </script> </body> </html>

質問者が選んだベストアンサー

  • ベストアンサー
noname#102878
noname#102878
回答No.2

#1さんの回答の他に。 str = "あなたのメアドは<font color='yellow'>"+r+"</font>ですね<br>") この行の最後の ")" が不要です。 とは言え、これを本当にインターネット上に公開するのでしょうか? 「悪用しませんので安心してください」はご本人の正直な気持ちなのかもしれませんが、このページを開いた人の気持ちを考えてみましょう。 自分のPCのレジストリを読まれたわけですよ。 もうちょっと知恵を絞ればその情報を送信することもできちゃうんですよ。 さらに、RegWriteを使えばレジストリに書き込むことだってできてしまうんですよ。 このVBScriptを顔も知らない不特定多数の人のPC上で実行してしまっても良いか、おのずと答えは出ると思いますが・・・

その他の回答 (1)

  • the845t
  • ベストアンサー率33% (246/743)
回答No.1

良く分かりませんが、 とりあえず Create0bject → CreateObject 「0」ゼロと「O」オーを誤認してます。

関連するQ&A