142 :
ひよこ名無しさん:
Option Explicit
Private mObjIE
Main
Public Sub Main()
On Error Resume Next
Dim strUrl, strMes, strRep
Dim objArgs
Dim i
Set objArgs = WScript.Arguments
strUrl = objArgs(0)
strMes = objArgs(1)
strRep = objArgs(2)
143 :
ひよこ名無しさん:04/10/23 23:12:27 ID:0eICIL19
'ファイル読み取り
strMes = ReadFile(strMes)
'IEのオブジェクト作成
Set mObjIE = CreateObject("InternetExplorer.Application")
OpenIE(strUrl)
DoIE(strMes)
EatCookie(strRep)
CloseIE
'IEのオブジェクトをNothing
Set mObjIE = Nothing
End Sub
144 :
ひよこ名無しさん:04/10/23 23:12:50 ID:0eICIL19
Private Function ReadFile(strPath)
On Error Resume Next
Dim strMes
Dim FSO
Dim f
Dim fStream
'オブジェクト作成
Set FSO = CreateObject("Scripting.FileSystemObject")
'ストリームオブジェクト作成
Set fStream = FSO.OpenTextFile(strPath)
'文字列取得
strMes = fStream.ReadAll()
ReadFile = strMes
End Function
145 :
ひよこ名無しさん:04/10/23 23:13:13 ID:0eICIL19
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
146 :
ひよこ名無しさん:04/10/23 23:14:55 ID:0eICIL19
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
Do Until mObjIE.Busy = False
WScript.Sleep 1000
Loop
objFrm.submit.Click
Do Until mObjIE.Busy = False
WScript.Sleep 1000
Loop
Set ObjFrm = Nothing
Set ObjDoc = Nothing
End Function
147 :
ひよこ名無しさん:04/10/23 23:19:09 ID:xeAD4oYA
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
148 :
ひよこ名無しさん:04/10/23 23:20:08 ID:xeAD4oYA
Private Function CloseIE
On Error Resume Next
mObjIE.Quit
End Function