保守ツール

自動保守について

自動保守ツール
↑パスは基本（vip)

大規模規制解除されたのでこんな感じの設定がおすすめ
特に深さは重要だから絶対設定しとけ
待ち→10～30
深さ→250～350
ちなみに俺は待ち33深さ333
つまり俺がツールいれてるときに俺の設定に近い設定、
もしくは深さ±50くらいの設定で誰かがツールいれればさるさん防ぎやすい

もしくは

<?xml version="1.0" standalone="yes"?>
<package>
<job id="ierun">
<?job debug="true"?>

<runtime>
<description>HTML Form 自動書込システム</description>
<named
name = "URL"
helpstring = "実行対象URL"
type = "string"
required = "true"
/>
<named
name = "Message"
helpstring = "入力メッセージ"
type = "string"
required = "true"
/>
<named
name = "ReturnPage"
helpstring = "承諾"
type = "string"
required = "false"
/>
<example>
Example: a.wsf /URL:http://www.google.co.jp /Message:"TEXT" /ReturnPage:"No Cookie"
</example>
</runtime>

<object id="mObjIE" progid="InternetExplorer.Application"/>

<script language="VBScript">
<![CDATA[
Option Explicit

Main

Public Sub Main()
On Error Resume Next

Dim strUrl
Dim strMes
Dim strRep
Dim objArgs

Set objArgs = WScript.Arguments

strUrl = objArgs(0)
strMes = objArgs(1)
strRep = objArgs(2)

OpenIE(strUrl)
DoIE(strMes)
EatCookie(strRep)
CloseIE

Set mObjIE = Nothing

End Sub

Private Function OpenIE(u)
On Error Resume Next

mObjIE.Visible = True
mObjIE.Navigate u

Do Until mObjIE.Busy = False
WScript.Sleep 10000
Loop

End Function

Private Function DoIE(m)
On Error Resume Next

Dim objDoc
Dim objFrm

Set objDoc = mObjIE.Document
Set objFrm = objDoc.Forms(0)

objFrm.Message.Value = m
objFrm.submit.Click

Set ObjFrm = Nothing
Set ObjDoc = Nothing

Do Until mObjIE.Busy = False
WScript.Sleep 10000
Loop

End Function

Private Function EatCookie(SearchChar)
On Error Resume Next

Dim objDoc
Dim objFrm
Dim strFrm
Dim c

Set objDoc = mObjIE.Document
Set objFrm = objDoc.Forms(0)
strFrm = objFrm.innerHTML

c = InStr(1, strFrm, SearchChar, 1)

If c > 0 Then
objFrm.submit.Click
End If

Set objFrm = Nothing
Set objDoc = Nothing

End Function

Private Function CloseIE
On Error Resume Next

mObjIE.Quit

End Function

]]>
</script>
</job>
</package>

まずここまでのソースをテキストファイルにコピペしてa.wsfみたいに適当な名前をつけてファイルにする、この時保存する文字コードはUTF-8

rem エンコード shift-jis
setlocal
for /l %%i in (1,1,20) do (
echo %%i回目
set /A x=%%i
call :label
timeout /T 60 /NOBREAK
)
endlocal
:label
a.wsf //job:ierun "URL" "保守(%x%)" "承諾"
exit /b

次に上のソースをテキストファイルにコピペしてa.batと適当に名前をつける。

a.batをメモ帳で開いて最初の""の中にカキコしたいURLを書く。つぎの""には書き込みたい内容を書く。上書き保存する。あとは実行すると書き込む。

これを自動保守に使おう

スレ保守のすすめ

スレ落とすくらいならツール入れとけ
でも甘えてスレ保守ばっかだと新規こないから
過疎ってるときとか攻略のときだけ使おう
ていうか大規模規制解除されたんだから普通に保守しろ

保守しないならVIPでやってる意味ねえしIPいけ

設定方法

1.IEから保守したいスレになんでもいいから書き込みをする

2.SSの通りに設定する
3.最小化してvipwizを楽しむ

その他

・フォルダ内のmassageというテキストファイルを書き換えると自動保守で書き込む内容が変わる
・テキストファイルいじってなければ落としてすぐはひらがなでほしゅと書いてあると思う
・保守するときに一瞬ウィンドウが移るのでラグっぽく感じるかもしれない
・スレッドの追加がある場所と区切られた下の余白は色々情報が載っちゃうためSSとるときに注意
・win7の場合は管理者で起動すれば正常に動作する

コメント欄