EMail = "[email protected]"
Pass = "xxxxxxxx"
S = CreateObject("WScript.Shell").Exec("conhost --headless curl -D - -d ""email=" & EMail & """ -d ""pass=" & Pass & """ https://donguri.5ch.net/login";).StdOut.ReadAll
If InStr(S, "Set-Cookie: acorn=") = 0 Then MsgBox "Error: Login failed." & vbCrLf & S, 16, "acorn login" : WScript.Quit
S = Replace(Replace(Split(Split(S, "Set-Cookie: acorn=")(1), ";")(0), vbCr, ""), vbLf, "")
Ini = CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 1).ReadAll
Set RE = New RegExp : RE.Pattern = ";acorn=\w*(;?)" : Ini = RE.Replace(Ini, ";acorn=" & S & "$1")
Set RE = New RegExp : RE.Pattern = "=acorn=\w*(;?)" : Ini = RE.Replace(Ini, "=acorn=" & S & "$1")
Ini = Replace(Ini, vbCrLf & "WrtCookie=" & vbCrLf, vbCrLf & "WrtCookie=acorn=" & S & vbCrLf)
If InStr(Ini, "acorn=" & S) = 0 Then Ini = Replace(Ini, vbCrLf & "WrtCookie=", vbCrLf & "WrtCookie=acorn=" & S & ";")
CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 2, True).Write Ini
CreateObject("WScript.Shell").Run "Jane2ch.exe"

警備員アカウントでログインし、Jane2ch.iniのCookieを更新後、JaneStyleを起動するVBS
1～2行目のメールアドレスとパスワードを変更して実行する（特殊文字エスケープは「\」→「\\」「"」→「\""」な気がする）
作業フォルダーをJane2ch.exeとJane2ch.iniのある場所にして実行する
JaneStyleは起動していない状態で実行する
注）連続実行（1時間に10回以上？）すると、しばらくログインが拒否されるため、1日数回までの実行がおすすめ