Jane Style (Windows版) Part276（大砲禁止）at SOFTWARE

---

689:t;"email=" & EMail & """ -d ""pass=" & Pass & """ https://donguri.5ch.net/login").StdOut.ReadAll If InStr(S, "Set-Cookie: acorn=") > 0 Then FSO.OpenTextFile("acorn_login.curl", 2, True).Write S S = Replace(Replace(Split(Split(S, "Set-Cookie: acorn=")(1), ";")(0), vbCr, ""), vbLf, "") Ini = FSO.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 & ";") FSO.OpenTextFile("Jane2ch.ini", 2, True).Write Ini Else MsgBox "Warning: Login failed." & vbCrLf & S, 48, "acorn login" End If End If CreateObject("WScript.Shell").Run "Jane2ch.exe"

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch