Jane Style (Windows版) Part291 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは1000を超えました｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

837: 警備員[Lv.15] 08/23(土)22:22 ID:PhJkvPgH0(1/3) AAS
ワイこれ
Option Explicit

Dim shell, fso, tsIn, tsOut, iniText, re
Const ForReading = 1, ForWriting = 2

'── 0. WshShell オブジェクト生成 ──
Set shell = CreateObject("WScript.Shell")

'── 1. Jane2ch.exe を強制終了（エラーは無視） ──
On Error Resume Next
shell.Run "taskkill /F /IM Jane2ch.exe /T", 0, True
On Error GoTo 0

'── 2. INI ファイル読み込み ──
Set fso = CreateObject("Scripting.FileSystemObject")
Set tsIn = fso.OpenTextFile( _
"C:\Program Files (x86)\Jane Style\Jane2ch.ini", _
ForReading)
iniText = tsIn.ReadAll
tsIn.Close

---

838: 警備員[Lv.15] 08/23(土)22:23 ID:PhJkvPgH0(2/3) AAS
'── 3. 正規表現で値をクリア ──
Set re = New RegExp
With re
.Global = True
.IgnoreCase = True
.Multiline = True

' WrtCookie, WrtAgreementKey, WrtMonaKey を「キー=」だけに
.Pattern = "^(Wrt(?:Cookie|AgreementKey|MonaKey))=.*$"
iniText = .Replace(iniText, "$1=")

' WrtMonaStatus を 2 にリセット
.Pattern = "^WrtMonaStatus=.*$"
iniText = .Replace(iniText, "WrtMonaStatus=2")
End With

'── 4. INI ファイル上書き保存 ──
Set tsOut = fso.OpenTextFile( _
"C:\Program Files (x86)\Jane Style\Jane2ch.ini", _
ForWriting, True)
tsOut.Write iniText
tsOut.Close

'── 5. Jane2ch.exe を再起動 ──
shell.Run """C:\Program Files (x86)\Jane Style\Jane2ch.exe""", 0, False

---

839: 警備員[Lv.15] 08/23(土)22:26 ID:PhJkvPgH0(3/3) AAS
2025acorn_delete.vbsに保存して毎週日曜にタスク実行でもすればおｋ

---

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

---

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

---

ぬこの手 ぬこTOP 0.031s