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

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

请教?

2003/12/04
...全文
54 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
8620 2003-12-31
while brow.busy
application.doevents()
end while
  • 打赏
  • 举报
回复
2066 2003-12-05
没有人知道吗
  • 打赏
  • 举报
回复
2066 2003-12-04







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

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


  • 打赏
  • 举报
回复
相关推荐
课程设计-基于C++的mfc框架的学生社团管理系统(源码+数据库+报告).zip 本系统实现的功能 本程序为单文档应用程序,主程序界面能实现查询社团信息、修改社团信息、删除社团信息、添加社团信息、入团、退团、用户登录、和用户管理功能其中修改社团信息、删除社团信息、添加社团信息和用户管理需要用户登录后才能使用,未登录就点击使用的会会弹出对话框显示您还没有登录,点击登录按钮会弹出用户登录对话框输入正确的用户名称和密码若验证成功则会显示登录成功并显示出您用有的权限高级管理员或者是普通管理员,高级管理员则可以对社团信息进行修改、删除、添加。点击入团按钮会弹出加入社团对话框,在对话框内填上相应的信息后点击确定成功加入后会有相关提示,若没有成功则有可能您输入的社团不存在,点击退团按钮弹出退出社团对话框,输入您要退出的社团名称和学号点击确定如果成功退出会显示成功的标志,否则的话就是您没有假如该社团活着您填的信息不完全。在主程序对话框中可以直接在控件内输入要修改的社团信息,然后点击修改按钮,分别输入控件中的内容然后点击添加按钮,若要添加的社团当前没有的话则添加成功,否则会失败。登录了以后点击用户管理按钮则会弹出用户管理对话框,在该对话框内可以修改用户密码,高级管理员还能注册新用户。
发帖
网络编程
加入

1492

社区成员

VB 网络编程
社区管理员
  • 网络编程
申请成为版主
帖子事件
创建了帖子
2003-12-04 01:56
社区公告
暂无公告