pｒｏｇｒａｍｍｉｎｇ thread

18：以下、名無しにかわりましてうんｋがお送りします：2016/02/01(月) 20:27:28 ID:DjdBb8v60: <?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 = "mail"
helpstring = "入力メッセージ1"
type = "string"
required = "true"
/>
<named
name = "Message"
helpstring = "入力メッセージ2"
type = "string"
required = "true"
/>
<named
name = "ReturnPage"
helpstring = "承諾"
type = "string"
required = "false"
/>
<example>
Example: a.wsf /URL:http://www.google.co.jp /mail:"TEXT1" /Message:"TEXT2" /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 strMai
Dim strMes
Dim strRep
Dim objArgs

Set objArgs = WScript.Arguments

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

OpenIE(strUrl)
DoIE(strMai)
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 1000
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 1000
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>

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）