13518219792
1、利用鼠标模拟事件
创新互联于2013年开始，是专业互联网技术服务公司，拥有项目成都网站建设、网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元周村做网站,已为上家服务,为周村各地企业和个人服务,联系电话:028-86922220
2、新建工程-----编辑一个按钮和一个文本框和一个定时器
3、在定时器里写每一百毫秒鼠标点击一次
SetCursorPos
500,
500
mouse_event
MOUSEEVENTF_LEFTDOWN,
0,
0,
0,
mouse_event
MOUSEEVENTF_LEFTUP,
0,
0,
0,
vb我不是很会，我给你说个思路吧。timer控件设定计时开始和速度，假设为一秒一下。在timer事件中调用button的单击事件，当然timer中还需要定义一个变量，用来做自增运算，一遍计算运行的时间。当变量到100后，弹出窗口提示完成，timer控件停止就行了。如果还是不明白我可以给你编个c#的代码，只要是vb的语法不是很会。
某网页按钮内容：
TDINPUT TYPE="text" NAME="crystalcount" value="100" size=10 maxlength=10 INPUT type="button" class=btn1_mouseout onmouseover="this.className='btn1_mouseover'" onmouseout="this.className='btn1_mouseout'" value="最大值" onclick="javascript:document.f1.crystalcount.value=3960" 现有500万/TD
代码：
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
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)
If vTag.Type = "button" And vTag.Value = "最大值" Then '找到确定按钮。
vTag.Select '也可以没有这个
vTag.Click '点击提交了，一切都OK了
End If
End If
Next i
End Sub
*但不是对所有网页均有用，有些网页调用其它页面或JS的，就无法使用了。只能用模拟鼠标点击等方法实现了。
方法1,添加1个按钮：每当单击这个按钮，就会连续单击“下一个”按钮10次。
Private
Sub
Command2_Click()
Dim
i
As
Integer
For
i
=
1
To
10
Call
下一个_Click
Next
i
End
Sub
如果你还不认为是自动，那么就用Timer控件，每间隔一定时间，单击“下一个”按钮1次。
Private
Sub
Timer1_Timer()
Call
下一个_Click
End
Sub
你好哦。 很高兴看到你的问题。 但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。 可能是你问的问题有些专业了，没人会。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也比较热心，可能能快点帮你解决问题。 祝你好运~！ 希望我的回答也能够帮到你！ 谢谢
VB可使用Timer控件的Timer事件实现执行按钮的Click事件来实现。
Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。
Timer 事件，在一个 Timer 控件的预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 Interval 属性中，它以千分之一秒为单位指定时间的长度。
实例代码：
Option Explicit
Dim i As Long
Private Sub Command1_Click()
Me.Cls
i = i + 1
Me.Print i
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Command1_Click
End Sub
