自动填充网页表单

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《自动填充网页表单》，欢迎阅读！

　 目前网上有很多自动填充网页表单的的软件，包括现在新版本的Tencent Explorer，其实实现原理不复杂，就是控制webbrowser控件，这里介绍一种用VB来制作的方法。

首先，新建一个EXE工程，在菜单栏的“工程”菜单下选择“部件”，在弹出的对话框中选中“控件”标签，找到“Microsoft Internet Controls”，在它前面的小框中打钩，然后确定。此时你会发现工具箱中多了个地球图标，它代表的控件正是我们需要的WebBrowser。

先对WebBrowser控件做一下介绍，限于篇幅，我们只涉及程序中用到的。

属性：LocationURL 返回控件显示WEB页面的URL。

方法：Navigate 转移到指定的URL或打开指定HTML文件。

事件：1．Document 文档内容

除了WebBrowser控件外，还需要在Form1上添加三个Text控件：Text1、Text2、Text3，分别用来显示URL地址、存放用户的密码查询问题和地址，将这些控件的Text属性值全设置为空。

再添加一个Timer控件：Timer1（用于执行自动填充的主要操作），将它的Interval属性设置为500，即每隔0.5秒Timer1就执行依次Timer事件.

以下是程序清单：

Private Sub Form_Load()

Text2.Text = GetSetting("FormFiller", "set", "question", Text2.Text)

Text3.Text = GetSetting("FormFiller", "Set", "Address", Text3.Text)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then '判断是否为回车

WebBrowser1.Navigate Text1.Text

Timer1.Enabled = True

End If

End Sub

Private Sub Text2_Change()

SaveSetting "FormFiller", "Set", "Question", Text2.Text

End Sub

Private Sub Text3_Change()

SaveSetting "FormFiller", "Set", "Address", Text3.Text

End Sub

Private Sub Timer1_Timer()

If WebBrowser1.Busy = True Then Exit Sub

Dim mTag As Object

Dim counter As Long

With WebBrowser1

For counter = 0 To .Document.All.Length - 1

Set mTag = .Document.All.Item(counter)

Select Case mTag.tagname

Case "INPUT" '判断是否为INPUT文本框

Select Case mTag.Name

Case "question" '密码查询问题

mTag.Value = Text2.Text

Case "address" '地址

mTag.Value = Text3.Text

End Select

End Select

Next counter

End With

End Sub

本文来源：https://www.wddqxz.cn/2834c6c4142ded630b1c59eef8c75fbfc67d9472.html