一、自制鼠标自动单击工具鼠标自动点击工具
自制鼠标自动单击工具(鼠标自动点击工具)
视频加载中...今天学习了刘金玉老师零基础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.输入代码：
PrivateDeclareSubmouse_eventLib"user32"(ByValdwFlagsAsLong,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong)
ConstMOUSEEVENTF_LEFTDOWN=&H2
ConstMOUSEEVENTF_LEFTUP=&H4
ConstMOUSEEVENTF_ABSOLUTE=&H8000
DimxxAsLong,yyAsLong
PrivateSubCommand1_Click()
Timer1.Interval=Val(Text1.Text)
Timer1.Enabled=True
Command2.Enabled=True
Command1.Enabled=False
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
Command2.Enabled=False
Command1.Enabled=True
EndSub
PrivateSubForm_Load()
Form1.Visible=True
xx=Screen.Width/2
yy=Screen.Height/2
EndSub
PrivateSubTimer1_Timer()
Callmouse_event(MOUSEEVENTF_ABSOLUTEOrMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,xx,yy,0)
EndSub
4.运行效果详见视频
二、电脑鼠标点击没反应
1、打开windows资源管理器，查看运行不正常的进程，如果有进程占用了很大的CPU可能就是病毒或者木马造成的，右击选中结束进程将这个异常进程结束。
2、然后用杀毒软件对电脑进行病毒的查杀，查杀病毒重启电脑即可以了。如果是因为Windows资源管理器停止工作的原因，用户只要重新运行就可以了;如果是病毒的原因，通过上述的方法之后情况还存在的话，建议重装下电脑系统。
三、鼠标左键点击没反应但是右键有反应怎么回事
鼠标是必备的电脑外设之一，在很多操作上都需要用到鼠标左键，比如选择、打开和执行命令等等。但是有用户用着用着发现，鼠标左键无法使用但是右键能够正常使用，这是怎么回事？那么下面就来看看鼠标左键失灵右键有用的解决方法。
解决方法：
一、软件问题
1、检查更新鼠标驱动。同时按下win+x打开电脑系统的管理界面，键盘上下键选择其中的设备管理器打开。
2、使用键盘上的方向键选中鼠标和其他指针设备，这时候按下方向键的向右箭头，可以打开下拉，下拉里面就是正在使用的鼠标。
3、选中按下回车打开该鼠标的属性页面。之后按下键盘的ctrl+tab，切换到驱动程序，使用tab切到卸载设备，之后点击确定即可卸载驱动。
这时候重新开机后，win10系统会自动安装驱动。如果是驱动导致的问题，在系统自动安装完成以后就可以成功使用左键了。
二、硬件问题
1、如果更新驱动没有用也可能是硬件出了问题。你可以首先换一个usb接口查看是否可以使用，或者说换个鼠标看下是不是能正常在电脑使用，如果能，那就是原来的鼠标硬件有问题。
2、拆开鼠标，清理灰尘。把鼠标的左键模块盖打开，取出铜片，仔细擦拭铜片。然后用纸巾擦拭铜片下面的位置，另外也可以看下鼠标微动是否有问题，尝试更新微动就可以完成对于鼠标左键的修复了。