Question

用vb 向网页的文本框中自动填充内容

有两个文本框 其中一个每次填充的内容固定
另一个我想让他从1到999依次递增 每增加一个数就提交一次
直到打开一个网页为止
有完整代码和注释的可追加

Answer 1

首先建一个新工程，并添加部件microsoft Internet Control(即webBrowser控件),然后添加两个时钟控件，一个命令按钮。
在网页上按右键，查看源文件，找到两个文本框的名称（如：T1,T2)
在模块顶部定义一个全局变量 number，用来计数
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) ’延时函数，毫秒

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com" '要打开的网址
Timer1.Enabled = True '激活时钟控件
number=0

End Sub

Private Sub Timer1_Timer() '时钟事件
If WebBrowser1.Busy Then ‘如果网页未完全打开
Exit Sub
Else '''''已经完全打开了
Timer1.Enabled = False
number=number+1
WebBrowser1.Document.form1.T1.Value = number ‘其中form1和T1需要看网页的源码中的具体名称。
WebBrowser1.Document.form1.T2.Value = "你需要输入的内容"
WebBrowser1.Document.All.tags("input")(1).Click ’其中1是第几个输入按钮，你可以逐渐增大来试试到第几个是提交按钮，然后提交。
Timer2.Enabled = True '激活第二个时钟
Sleep 1000 ‘延时一秒
end if
End sub

Private Sub Timer2_Timer()
If WebBrowser1.Busy Then
Exit Sub
Else
Timer2.Enabled = False
'这里是上一页提交后打开的第二页，可以处理你的事务
WebBrowser1.Navigate "http://www.baidu.com" '再打开上一页继续
sleep 500

timer1.enabled=true
end if
End Sub

如此循环，直到满足你的条件，剩下的你自己根据需要添加代码和出错处理。