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