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

发布网友发布时间：2022-04-26 23:40

共2个回答

热心网友时间：2022-06-20 07:22

自动打开网页的BAT：
start
http://www.hkexnews.hk/listedco/listconews/advancedsearch/search_active_main_c.asp

自动填写表单需要用VB或者VBA来写。
用自动键入数字和按钮的方法。
参看下面的贴子：
http://topic.csdn.net/u/20080312/12/4080a95c-87f9-41a6-85d3-72e69e3fd9b1.html

这个不容易做，本来打算用OLE的，但是发觉很难实现。我给你个思路：
1、用VB程序自动打开网页（调用那个BAT就可以了）；
2、自动按下数字键1；
3、自动按下ENTER键

热心网友时间：2022-06-20 07:23

这个因网页HTML代码而定

如登陆126邮箱

Private
Sub
Form_Load()
WebBrowser1.Navigate
"
www.126.com
"
End
Sub

Private
Sub
Command1_Click()

Dim
vDoc,
vTag

Dim
i
As
Integer

Set
vDoc
=
WebBrowser1.Document

For
i
=
0
To
vDoc.All.length
-
1
aa
=
UCase(vDoc.All(i).tagName)

If
UCase(vDoc.All(i).tagName)
=
"INPUT"
Then

Set
vTag
=
vDoc.All(i)

If
vTag.Type
=
"text"
Or
vTag.Type
=
"password"
Then

Select
Case
vTag.Name

Case
"user"

vTag.Value
=
"帐号"
Case
"password"

vTag.Value
=
"密码"
End
Select

ElseIf
vTag.Type
=
"submit"
Then

vTag.Click
End
If

End
If

Next
i

End
Sub