如题所述
1、百度软件搜索“鼠标连点器”。
2、打开软件，选择鼠标键位，设置点击间隔时间，点击次数，默认勾选中键启动，然后保存设置。
3、接着开始测试，这里以单击下一张按钮换图为例。先左键点击下一张，然后按一下鼠标滚轮，可以看到开始自动点击换图，附上GIF效果图（录制效果不太好）。
2、打开软件，选择鼠标键位，设置点击间隔时间，点击次数，默认勾选中键启动，然后保存设置。
3、接着开始测试，这里以单击下一张按钮换图为例。先左键点击下一张，然后按一下鼠标滚轮，可以看到开始自动点击换图，附上GIF效果图（录制效果不太好）。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-02-14
下面是模拟窗体的双击事件
private
declare
sub
mouse_event
lib
"user32"
(byval
dwflags
as
long,
byval
dx
as
long,
byval
dy
as
long,
byval
cbuttons
as
long,
byval
dwextrainfo
as
long)
private
const
mouseeventf_leftdown
=
&h2
'模拟鼠标左键按下
private
const
mouseeventf_leftup
=
&h4
'模拟鼠标左键抬起
private
declare
function
setcursorpos
lib
"user32"
(byval
x
as
long,
byval
y
as
long)
as
long
private
sub
form_dblclick()
msgbox
"双击"
end
sub
private
sub
form_keydown(keycode
as
integer,
shift
as
integer)
if
keycode
=
vbkeya
then
'按下a即是双击了窗体，即触发了form的dblclick事件，a为热键
mouse_event
mouseeventf_leftdown
or
mouseeventf_leftup,
0,
0,
0,
0
mouse_event
mouseeventf_leftdown
or
mouseeventf_leftup,
0,
0,
0,
0
end
if
if
keycode
=
vbkeyq
then
'
按下q结束程序
end
end
if
end
sub
private
sub
timer1_timer()
setcursorpos
(me.left
+
1000)
/
screen.twipsperpixelx,
(me.top
+
1000)
/
screen.twipsperpixely
'
设置鼠标的位置在窗体上
end
sub
private
declare
sub
mouse_event
lib
"user32"
(byval
dwflags
as
long,
byval
dx
as
long,
byval
dy
as
long,
byval
cbuttons
as
long,
byval
dwextrainfo
as
long)
private
const
mouseeventf_leftdown
=
&h2
'模拟鼠标左键按下
private
const
mouseeventf_leftup
=
&h4
'模拟鼠标左键抬起
private
declare
function
setcursorpos
lib
"user32"
(byval
x
as
long,
byval
y
as
long)
as
long
private
sub
form_dblclick()
msgbox
"双击"
end
sub
private
sub
form_keydown(keycode
as
integer,
shift
as
integer)
if
keycode
=
vbkeya
then
'按下a即是双击了窗体，即触发了form的dblclick事件，a为热键
mouse_event
mouseeventf_leftdown
or
mouseeventf_leftup,
0,
0,
0,
0
mouse_event
mouseeventf_leftdown
or
mouseeventf_leftup,
0,
0,
0,
0
end
if
if
keycode
=
vbkeyq
then
'
按下q结束程序
end
end
if
end
sub
private
sub
timer1_timer()
setcursorpos
(me.left
+
1000)
/
screen.twipsperpixelx,
(me.top
+
1000)
/
screen.twipsperpixely
'
设置鼠标的位置在窗体上
end
sub
