如何用vb实现网页表单的自动填充并提交

自动打开网页的BAT：

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：国际域名空间、虚拟主机、营销软件、网站建设、徐汇网站维护、网站推广。

start

自动填写表单需要用VB或者VBA来写。

用自动键入数字和按钮的方法。

参看下面的贴子：

这个不容易做，本来打算用OLE的，但是发觉很难实现。我给你个思路：

1、用VB程序自动打开网页（调用那个BAT就可以了）；

2、自动按下数字键1；

3、自动按下ENTER键

vb.net 网页提交表单

发送页面：

用get传值 如 点击button时 response.redirect（"接受页面的url"?canshu=textbox.text）

在接受页面：

用Request.QueryString["canshu"].toString（）； 这样就接受到textbox里的值了。

然后根据这个值到数据库里查询就行了。

vb.net WebBrowser提交表单的问题

弹出提示窗口，基本上随便哪个源码里面都有用到，比如用户后台登陆，你可以参考下

Vb提交网页表单

用webbrowser载入网页表单。

在documentComplete事件中加入代码

dim

f

as

object

set

f=web1.document

'页面对象

f.表单名.submit()

'提交表单

也可用document.getElementById("表单ID").submit()

如果表单没有ID和name，可以用form元素的集合来访问该对象。

如何VB中如何提交表单

Private Sub Command1_Click()

WebBrowser1.Document.Forms(Form_ID)(2).Click

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate App.Path "/1.htm"‘打开网页

End Sub

1.htm的代码是你给的代码

但是如果还有其他代码的话，ID可能会变，不是2，可能是别的

vb提交网页表单

根据你的补充，经修改，已经调试成功：

Private Sub Command1_Click()

Dim vDoc, vTag, i

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.length - 1 '检测所有标签

If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签

Set vTag = vDoc.All(i)

Select Case LCase(vTag.Type)

Case "file"

If vTag.Name = "userfile" Then

SendKeys "d:\program files\qq\qq.exe"

SendKeys "{ENter}"

vTag.Click

End If

Case "submit"

If vTag.Value = "上传文件" Then

vTag.Select '也可以没有这个

vTag.Click '点击提交了，一切都OK了

End If

End Select

End If

Next i

End Sub

分享题目：vb.net中提交表单的简单介绍
文章来源：http://azwzsj.com/article/docsiji.html