Top > 自動保守


自動保守

Last-modified: 2016-12-29 (木) 18:14:25

保守をしろ Edit

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

自動保守 Edit

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

これを自動保守に使おう

自動保守ツール Edit

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