24/05/15 18:04:05.37 vB6HUlUq0.net
JaneStyleのどんぐりをブラウザに移植して育てたい人向け
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 MsgBox "Error: 'acorn' does not exist.", 16, "acorn copy" : WScript.Quit
S = Split(Split(S, ";acorn=")(1), ";")(0)
S = "document.cookie = 'acorn=" & S & "; max-age=' + 200000 * 01"
CreateObject("WScript.Shell").Run "%COMSPEC% /C SET /P =""" & S & """<NUL|CLIP", 0
Createobject("WScript.Shell").Popup "The code below has been copied." & vbCrLf & S, 1, "acorn copy", 64