如何判断表单提交完成，然后转到提交下一表单

[2066]

如何判断表单提交完成，然后转到提交下一表单
teh
下面是提交表单的主要代码。用到webbrowser控件。如何用判断表单已提交完成？然后提交下一表单？
我先用time控件定时触发提交表单，但网速不稳定，多数提交失败。如何实现两个目的：
1.如何用程序判断当前表单提交已经完成
2.当前表单提交完成后，navigate到另一url,如何判断网页下载完成，然后才可以触发submit事件。
3.用下面方法提交表单，程序下载许多无关内容，如图片，flash等，如何只下载和提交表单有关内容，则效率将大大提高。

请教？

2003/12/04

[2066]

'************************以下是发言过程********************************************

Private Sub cmdfill_click()
On Error Resume Next

If intNum <> 0 Then
Dim vDoc As IHTMLDocument2
Dim vTag

Dim i As Integer
If Not brow.Busy Then '如果下载完成，就执行下面程序
Set vDoc = brow.Document
For i = 0 To vDoc.All.Length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Or UCase(vDoc.All(i).tagName) = "TEXTAREA" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then '看看是不是我们需要的
Select Case vTag.Name
Case "name"
vTag.Value = strUser
Case "passwd"
vTag.Value = strPass
Case "subject" '写标题，不同的网页表单，vTage.name的值不同，要查看网页源码并根据实际更改?下同?

vTag.Value = strSub
End Select

ElseIf vTag.Name = "body" Then
vTag.Value = strBody

'ElseIf vTag.Type = "submit" And vTag.Value = "发表" Then '找到发表按钮。
' vTag.Click　　　发表

End If
End If
Next i

vDoc.Forms(0).submit'也可以用这个来提交表单，但当表单网页未下载时会出错
End If

Else
Exit Sub

End If
End Sub

• 打赏
• 举报

回复 赞

[2066]

没有人知道吗

• 打赏
• 举报

回复 赞

[8620]

while brow.busy
application.doevents()
end while

• 打赏
• 举报

回复 赞