自動保守

Last-modified: 2020-02-14 (金) 21:28:10

保守をしろ

保守しなかったら新規こないんだからちゃんと保守しろ
面倒なら自動保守くらい導入しろ

自動保守

過去の偉人が作ったの見つけたからこれぶち込め

https://chrome.google.com/webstore/detail/imacros-for-chrome/cplklnmnlbnpmjogncfgfijoopmnlemp
↑飛べ

ちょろめのみぎうえに青い歯車のアイコンあるからおせ
アプリが起動したら上のタブのBOOKMARKSおせ
DEMO-Chromeおせ
いっぱいある中で一番上のでいいからクリックして青くしろ
MANAGEタブのSdit Macroおせ

↓コピペ白

VERSION BUILD=1005 RECORDER=CR
URL GOTO=https://hebi.5ch.net/test/read.cgi/news4vip/1581680552/l50
TAG POS=1 TYPE=DIV ATTR=TXT:ハンゲ:http://tera.hangame.co.jp/<SP>ピーマン:http://tera.pmang.jp/*
TAG POS=1 TYPE=TEXTAREA FORM=ACTION://hebi.5ch.net/test/bbs.cgi ATTR=NAME:MESSAGE CONTENT=ぽいんぽいん
TAG POS=1 TYPE=INPUT:SUBMIT FORM=ACTION://hebi.5ch.net/test/bbs.cgi ATTR=NAME:submit
TAG POS=1 TYPE=DIV ATTR=TXT:ハンゲ:http://tera.hangame.co.jp/<SP>ピーマン:http://tera.pmang.jp/*
WAIT SECONDS=60

だいたいわかるだろうけど　URL GOTO=のあとに対象スレのうｒｌ
上で言うぽいんぽいんの部分が書き込み内容
WAIT SECONDS＝のあとに秒数　60にしたら1ふんな

あとは下のSaveあんどくろーずおせ
PLAYタブの下にあるMAX適当に99とかにしとけ
そのしたのPlay Loopを押すだけ

上から順番に進んでくから先に書き込みをして書き込み後に指定したWAIT秒とまる

ちょろめでいま開いてるタブに対してこの動作をするからyoutubeでvtuber見てたらそのページが勝手に更新されちゃう
だから新しいちょろめ開いて自動保守用のちょろめを起動させとけ
新しいちょろめで青い歯車おして設定したのにしてPlay loop押せば解決する

<?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を書く。つぎの""には書き込みたい内容を書く。上書き保存する。あとは実行すると書き込む。

これを自動保守に使おう

自動保守ツール

あまりにもPC使えないアホが多すぎるので１から作った
http://ux.getuploader.com/viptera/download/88/%E4%BF%9D%E5%AE%88.zip
パスは基本