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

---

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

---

101(2): 05/15(水)18:04 ID:vB6HUlUq0(1/5) AAS
JaneStyleのどんぐりをブラウザに移植して育てたい人向け

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 MsgBox "Error: 'acorn' does not exist.", 16, "acorn copy" : WScript.Quit
S = Split(Split(S, ";acorn=")(1), ";")(0)
S = "document.cookie = 'acorn=" & S & "; max-age=' + 200000 * 01"
CreateObject("WScript.Shell").Run "%COMSPEC% /C SET /P =""" & S & """<NUL|CLIP", 0
Createobject("WScript.Shell").Popup "The code below has been copied." & vbCrLf & S, 1, "acorn copy", 64

---

698: 警備員[Lv.25] 05/25(土)02:16 ID:FLtdbYUy0(1/2) AAS
>>101
ありがと～

---

709(2): 警備員[Lv.100] 05/25(土)09:00 ID:dquT6pjr0(1/2) AAS
>>699
VBS貼り付けマンだけど>>101を取り込んでくれたのかな？
では、こんなのも貼り付けとくよ

--------
起動しておくだけで、どんどんどんぐりレベルが上がるVBS
JaneStyleのCookieを読み、donguri.5ch.netへ自動アクセス（30分間隔）

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 : For I = 0 To 0
S = CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 1).ReadAll
省8

---

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

---

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

---

ぬこの手 ぬこTOP 0.207s*