[過去ﾛｸﾞ] Jane Style (Windows版) Part276（大砲禁止） (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

199(2): 警備員[Lv.59] 2024/06/02(日) 00:53:34.30 ID:FaRZ4Hwz0(1/3)調 AAS
curl -D - -d email=xxxxxxxx@gmail.com -d pass=xxxxxxxx 2ch板:login
で、自動ログイン → acorn取得できた

---

223(8): 警備員[Lv.111] 2024/06/02(日) 17:58:47.06 ID:FaRZ4Hwz0(2/3)調 AAS
EMail = "xxxxxx@gmail.com"
Pass = "xxxxxxxx"
S = CreateObject("WScript.Shell").Exec("conhost --headless curl -D - -d ""email=" & EMail & """ -d ""pass=" & Pass & """ 外部ﾘﾝｸ:donguri.5ch.net
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日数回までの実行がおすすめ

---

227(1): 警備員[Lv.111] 2024/06/02(日) 18:20:00.39 ID:FaRZ4Hwz0(3/3)調 AAS
>>226
レジストすると枯れなくなるの？　まだ1日経ってないからわからないんだが
IPとUA変わらない間は今までどおりでいいけど、変わった時のためにVBS作ったよ
あと、埋め直しの「.」書込みが不要になる分、ログインでCookie取得した方が便利

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.174s*