vb怎样实现某个按钮自动点击

vb怎么每隔一秒自动点击按钮~

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 iEnd SubPrivate Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Command1_ClickEnd Sub

某网页按钮内容：
现有500万
代码：
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的，就无法使用了。只能用模拟鼠标点击等方法实现了。

Interval 最大值65535，要实现更长时间，可以这样做：
设置Interval=1000，即一秒钟；定义一个全局变量M，记录分钟值，在Timer事件过程定义一个静态变量，记录秒数：
sub Timer1_Timer()
static n as long
n=n+1
if n>59 then
m=m+1
n=0
end if
’298秒=4分58秒
if m=4 and n>=58 then
command1_Click
m=0
n=0
end if
end sub

1、利用鼠标模拟事件
2、新建工程-----编辑一个按钮和一个文本框和一个定时器
3、在定时器里写每一百毫秒鼠标点击一次
SetCursorPos 500, 500

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0

mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

计时器 dim a‘定义一个a，a为计时器的时间
if a +60000 then
单击一次按钮
大概就是这样 在上班没VB。。。你自己研究下

双击Timer1，在里面写command1_click

在timer1的响应时间里面加上方法command1_click()

---

蕲春县13962422691： 用VB实现自动单击控件 - ？
齐章联苯： 如: Private Sub Command1_Click() CommonDialog1.ShowOpen End Sub Private Sub Form_Load() Command1_Click End Sub

蕲春县13962422691： vb点击一个按钮后另一个按钮自动被点击 - ？
齐章联苯： 如果是一个工程里的2个窗体,调用时需要先将第二个窗体中按钮的事件作用域private改为public.然后在第一个窗体中的控件单击事件里调用窗体名+事件名.例如:Form1中:Private Sub Command1_Click() Form2.Command1_ClickEnd Sub Form2中:Public Sub Command1_Click() '这里是第二个窗体中按钮的单击事件'End Sub

蕲春县13962422691： 怎么用VB自动点击网页里的某按钮？
齐章联苯： 想做个程序让它自动点击网页中的提交按钮,我已经从网上找了很久,虽然找到了一个方法是可以找到按钮并提交的,代码如下: Dim Dov As Object Dim Tag As Object Dim i As Integer Set Dov = WebBrowser1.Document For i = 0 To Dov.All....

蕲春县13962422691： 如何用vb 编程实现模拟点击这个网页上的按钮 - ？
齐章联苯： 根据你的反馈,答复如下: 本代码会自动点击攻击按钮的,只不过你要选择时机,即:当你进入攻击页面时,按下执行攻击的VB按钮(如command1),就会作出反应.代码修改如下: Private Sub Command1_Click() '攻击按钮 Dim Vdoc,i, ...

蕲春县13962422691： VB运行自动单击另一程序的按钮 - ？
齐章联苯： 用句柄啊,获得菜单句柄:窗口菜单用GetMenu,窗口的系统菜单用GetSystemMenu,然后用GetSubMenu获取子菜单的句柄,然后是按钮的句柄(findwindow);然后模拟点击:使用 SendMessage 给这个按钮发送 WM_LBUTTONDOWN 和 WM_LBUTTONUP 消息模拟鼠标点击.

蕲春县13962422691： VB中如何实现点击按钮自动F1呢?？
齐章联苯： 调用window APIGetAsyncKeyState(i) 其中i代表按键的键码 如果返回-32767 则说明该键被按下 键码你可以百度下【虚拟键码】就知道了.比如主键盘的1,虚拟键码是49. 然后调用 window API key_event 可以实现模拟按键

蕲春县13962422691： 怎样用VB编一个自动按按钮的软件 - ？
齐章联苯： 通过发送消息到对方窗口,设定好坐标点击 发送(键盘或鼠标)消息函数 模拟点击和按键 获得对方窗口句柄 findwindows postmessge

蕲春县13962422691： VB按钮怎么自动点击多次, - ？
齐章联苯： 你这个按钮点击后,页面是要刷新的是吧?那么你要在WebBrowser1控件的DocumentComplete事件中编写代码继续点击.如果在同一页面连续点击多次,那么起作用的肯定只有一次,因为页面都还没刷新呢,点了有P用啊!写这类程序要多用事件驱动模式,因为网络环境很复杂,不用事件驱动的话,程序靠瞎蒙是很难知道网页什么时候开始刷新、什么时候刷新完毕、什么时候跳转,诸如此类的.

蕲春县13962422691： 如何用VB简单设置自动按键？
齐章联苯： 这个很简单 Private Declare Sub keybd_event Lib ＂user32＂ (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Timer1_Timer() keybd_event vbKeyHome, 0, 0, 0 keybd_event vbKeyHome, 0, 2, 0 End Sub 补充:此处的timer控件设置为你要求的1秒,即1000 也可以用sleep1000结合doevents实现

蕲春县13962422691： 如何使用VB 让鼠标左键重复点击 - ？
齐章联苯： 用API接口即可完成任务.自动按下和放开按钮,这是通过模拟鼠标左键的按下和放开来实现的.该功能需调用API函数SendMessage向按钮发一对鼠标左键按下和放开的消息,函数接口声明如下:Declare Function SendMessage Lib ...