[過去ﾛｸﾞ] Jane Style (Windows版) Part275（大砲禁止） (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
900(2): 名無しさん＠お腹いっぱい。 警備員[Lv.45] [sage] 05/27(月)16:28 ID:rA+LTNVB0(1/6)
ここ「ERROR: もう余所でやってください。」で書けない
901(2): 名無しさん＠お腹いっぱい。 警備員[Lv.45] [sage] 05/27(月)16:30 ID:rA+LTNVB0(2/6)
書けた
内容が原因か、あきらめるか
903(1): 名無しさん＠お腹いっぱい。 警備員[Lv.45] [sage] 05/27(月)16:34 ID:rA+LTNVB0(3/6)
>>900 >>901 は同じブラウザの同じマシンなんだよなあ
906(2): 名無しさん＠お腹いっぱい。 警備員[Lv.103] [sage] 05/27(月)16:40 ID:rA+LTNVB0(4/6)
If LCase(Right(WScript.FullName, 11)) = "wscript.exe" Then
CreateObject("WScript.Shell").Run "%COMSPEC% /C TITLE " & Right(Now, 5) & " - donguri.5ch.net&cscript //NoLogo """ & WScript.ScriptFullName & """"
Else Do
S = CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 1).ReadAll
S = Split(Split(S, vbCrLf & "WrtCookie=")(1), vbCrLf)(0)
S = ";" & S & ";"
If InStr(S, ";acorn=") = 0 Then S = P Else S = Split(Split(S, ";acorn=")(1), ";")(0)
If S = "" Then S = InputBox("'acorn' cookie:", "donguri.5ch.net") : If S = "" Then WScript.Quit
P = S
CreateObject("WScript.Shell").Run "%COMSPEC% /C curl -b acorn=" & S & " https://donguri.5ch.net/", 0
WScript.Echo Now & " " & Left(S, 16) & "..." & Right(S, 4)
WScript.Sleep 30 * 60 * 1000 - 64
Loop End If
909: 名無しさん＠お腹いっぱい。 警備員[Lv.103] [sage] 05/27(月)16:42 ID:rA+LTNVB0(5/6)
>>906
余所エラーで書けないので、説明は分割
※前スレに枯れ対策で毎回Cookie削除する案が出てたので改良
--------
起動しておくだけで、どんどんどんぐりレベルが上がるVBS
JaneStyleのCookieを読み、donguri.5ch.netへ自動アクセス（30分間隔）
Cookie削除中は前回読んだCookieでアクセス、Cookie削除中に起動したら手動入力 ← New
(*1) 作業フォルダーをJane2ch.iniがあるフォルダーにして実行する >>764
(*2) 最小化ウインドウで起動するには、2行目の末尾に「, 7」を追加する >>800
(おまけ) 4行目～7行目と9行目を削除すると、Jane2ch.iniなしで（他ブラウザのCookieを手動入力して）使用できる
--------
911(2): 名無しさん＠お腹いっぱい。 警備員[Lv.103] [sage] 05/27(月)16:45 ID:rA+LTNVB0(6/6)
ソースの前に日本語で説明つけたのが原因なのかなあ
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.140s*