[過去ﾛｸﾞ]
Jane Style (Windows版) Part291 (1002ﾚｽ)
Jane Style (Windows版) Part291 http://egg.5ch.net/test/read.cgi/software/1755325108/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
837: 名無しさん＠お腹いっぱい。 警備員[Lv.15] [sage] 2025/08/23(土) 22:22:42.23 ID:PhJkvPgH0 ワイこれ 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 http://egg.5ch.net/test/read.cgi/software/1755325108/837
838: 名無しさん＠お腹いっぱい。 警備員[Lv.15] [sage] 2025/08/23(土) 22:23:30.12 ID:PhJkvPgH0 '── 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 http://egg.5ch.net/test/read.cgi/software/1755325108/838
839: 名無しさん＠お腹いっぱい。 警備員[Lv.15] [sage] 2025/08/23(土) 22:26:16.50 ID:PhJkvPgH0 2025acorn_delete.vbsに保存して毎週日曜にタスク実行でもすればおｋ http://egg.5ch.net/test/read.cgi/software/1755325108/839
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.035s