自制鼠标自动单击工具(鼠标自动点击工具)

视频加载中...

今天学习了刘金玉老师零基础VB教程的第58期，学习的主要内容是line画图函数的用法。这几天学习的内容相对轻松，单位有个网络课程需要学习，但是这个视频课程有点烦人，只要鼠标一会不点击学习的网页就自动暂停了，有点烦人，于是我在考虑能不能用VB编写个小工具自动点击鼠标呢？结果一试还真行，有兴趣的可以看看我是怎么写的吧。

一、line函数用法

1.line控件表达函数表达为：

Line(起始点X,起始点Y)-(终点X,终点Y),[颜色],BF

2.line控件的效果有：线条、空心矩形、实心矩形

3.line函数和控件可以用于绘制折线图和柱状图。

4.案例：

绘制一条线段：Line (100, 100)-(1000, 1000)

绘制一条蓝色线段：Line (1000, 1000)-(2000, 1000), vbBlue

绘制一个黑色边框空心矩形：Line (2000, 1000)-(3000, 1800), vbBlack, B

绘制一个红色的实心矩形：Line (2200, 1200)-(2400, 1300), vbRed, BF

二、自制鼠标点击小工具

1.思路:通过时钟控件调用鼠标点击事件，达到自动点击的效果，然后我们通过text控件的text属性值来设置时钟控件的interval大小，从而设置每次单击鼠标间隔时间，同时我们通过两个command控件来控制时钟控件的enabled属性，达到启用和关闭自动点击鼠标的目的。

2.如图新建1个时钟控件，1个text控件，2个command控件，2个label控件。

3.输入代码：

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)

Const MOUSEEVENTF_LEFTDOWN = &H2

Const MOUSEEVENTF_LEFTUP = &H4

Const MOUSEEVENTF_ABSOLUTE = &H8000

Dim xx As Long, yy As Long

Private Sub Command1_Click()

Timer1.Interval = Val(Text1.Text)

Timer1.Enabled = True

Command2.Enabled = True

Command1.Enabled = False

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False