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

2022-09-30 09:23:06
视频加载中...

今天学习了刘金玉老师零基础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

Command2.Enabled = False

Command1.Enabled = True

End Sub

Private Sub Form_Load()

Form1.Visible = True

xx = Screen.Width / 2

yy = Screen.Height / 2

End Sub

Private Sub Timer1_Timer()

Call mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, xx, yy, 0, 0)

End Sub

4.运行效果详见视频