[過去ﾛｸﾞ] Jane Style (Windows版) Part276（大砲禁止） (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

485(1): 警備員[Lv.118][UR武][UR防] 2024/06/07(金)23:08 ID:4qWEOm/q0(2/3) AAS
S = CreateObject("HtmlFile").ParentWindow.ClipboardData.GetData("text") & "" : If MsgBox("acorn=" & S & ";", 36, "acorn paste") <> 6 Then WScript.Quit
Set RE = New RegExp : RE.Pattern = "^\w*$" : If Not RE.Test(S) Then MsgBox "Error: Invalid character.", 16, "acorn paste" : WScript.Quit
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"

クリップボードにあるCookieをJane2ch.iniにセットして、Jane2ch.exeを起動するVBS
省4

---

501: 警備員[Lv.38] 2024/06/08(土)15:55 ID:JXoFknxP0(1) AAS
>>485
ありがとう
いただきました

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.027s