スクリプトの組み方おせーて！！！！
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
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
149 ：ひよこ名無しさん：
>>142-148
だれもこのスクリプトが分からんのか？
だれもこのスクリプトが分からんのか？