24/05/27 16:40:32.45 rA+LTNVB0.net
If LCase(Right(WScript.FullName, 11)) = "wscript.exe" Then
CreateObject("WScript.Shell").Run "%COMSPEC% /C TITLE " & Right(Now, 5) & " - donguri.5ch.net&cscript //NoLogo """ & WScript.ScriptFullName & """"
Else Do
S = CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 1).ReadAll
S = Split(Split(S, vbCrLf & "WrtCookie=")(1), vbCrLf)(0)
S = ";" & S & ";"
If InStr(S, ";acorn=") = 0 Then S = P Else S = Split(Split(S, ";acorn=")(1), ";")(0)
If S = "" Then S = InputBox("'acorn' cookie:", "donguri.5ch.net") : If S = "" Then WScript.Quit
P = S
CreateObject("WScript.Shell").Run "%COMSPEC% /C curl -b acorn=" & S & " URLﾘﾝｸ(donguri.5ch.net) 0
WScript.Echo Now & " " & Left(S, 16) & "..." & Right(S, 4)
WScript.Sleep 30 * 60 * 1000 - 64
Loop End If