24/05/25 09:00:43.66 dquT6pjr0.net
>>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
S = Split(Split(S, vbCrLf & "WrtCookie=")(1), vbCrLf)(0)
S = ";" & S & ";"
If InStr(S, ";acorn=") = 0 Then WScript.Echo Now & " no acorn" : WScript.Sleep 60 * 1000 - 16 : Exit For
S = Split(Split(S, ";acorn=")(1), ";")(0)
CreateObject("WScript.Shell").Run "%COMSPEC% /C curl -b acorn=" & S & " URLﾘﾝｸ(donguri.5ch.net) 0
WScript.Echo Now & " " & Left(S, 16) & "..." & Right(S, 4)
WScript.Sleep 30 * 60 * 1000 - 64
Next : Loop End If