VB初心者質問スレPart2
640 ：６３２：
<html>
<body bgcolor="black" text="red">
<script language="vbscript">
set WshShell = CreateObject("WScript.Shell")
r = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\ユーザー情報\\Default First Name")
str = "てめーの名前は<font color='yellow'>"+r+"</font>だな？"
document.write(str)
set WshShell = CreateObject("WScript.Shell")
r = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Account
Manager\Accounts\"+WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Account
Manager\Default Mail Account")+"\"SMTP Email Address")
str = "てめーのメアドは<font color='yellow'>"+r+"</font>だな？"
document.write(str)
document.write("今までよくも当方に悪戯してきやがったな！！<br>")
document.write("ふざけんな！今度は当方がてめーを懲らしめてやる！<br>")
document.write("てめーのことは全部警察にちくるのでそのつもりで！！<br>")
document.write("いまさら謝ったって遅いんだよ！！<br>")
</script>
</body>
</html>
<body bgcolor="black" text="red">
<script language="vbscript">
set WshShell = CreateObject("WScript.Shell")
r = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\ユーザー情報\\Default First Name")
str = "てめーの名前は<font color='yellow'>"+r+"</font>だな？"
document.write(str)
set WshShell = CreateObject("WScript.Shell")
r = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Account
Manager\Accounts\"+WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Account
Manager\Default Mail Account")+"\"SMTP Email Address")
str = "てめーのメアドは<font color='yellow'>"+r+"</font>だな？"
document.write(str)
document.write("今までよくも当方に悪戯してきやがったな！！<br>")
document.write("ふざけんな！今度は当方がてめーを懲らしめてやる！<br>")
document.write("てめーのことは全部警察にちくるのでそのつもりで！！<br>")
document.write("いまさら謝ったって遅いんだよ！！<br>")
</script>
</body>
</html>
|
|
|