bat脚本控制鼠标（用批处理可以实现模拟鼠标点击么）

本文目录

• 用批处理可以实现模拟鼠标点击么
• bat文件要怎么运行
• 用BAT批处理让鼠标在桌面两点来回单击
• bat如何将光标转到指定位置
• 利用bat文件更改<鼠标左右手习惯>的选项..
• bat怎样由鼠标事件驱动
• 请问 bat批处理完成这样的操作吗：捕捉到鼠标选中的文件，然后执行批处理
• 制作一个BAT批处理文件使鼠标右键自由切换启用/禁用
• 找一个VB或者bat批处理程序能够实现控制鼠标的
• bat 鼠标点击怎么实现

用批处理可以实现模拟鼠标点击么

如果你想要用批处理来完成这个功能比较麻烦，你可以用其它脚本语言，比如：autoit、按键精灵等来完成这个工作。

bat文件要怎么运行

bat文件可直接鼠标双击运行。

bat是dos下的批处理文件，批处理文件是无格式的文本文件，它包含一条或多条命令。

它的文件扩展名为.bat或.cmd，在命令提示下键入批处理文件的名称，或者双击该批处理文件，系统就会调用Cmd.exe按照该文件中各个命令出现的顺序来逐个运行它们。

***隐藏网址***

扩展资料：

批处理文件（batchfile）包含一系列DOS命令，通常用于自动执行重复性任务。用户只需双击批处理文件便可执行任务，而无需重复输入相同指令。编写批处理文件非常简单，但难点在于确保一切按顺序执行。

编写严谨的批处理文件可以极大程度地节省时间，在应对重复性工作时尤其有效，在Windows中善用批处理可以简化很多重复工作。

批处理(Batch)，也称为批处理脚本。顾名思义，批处理就是对某对象进行批量的处理。批处理文件的扩展名为bat。DOS批处理则是基于DOS命令的，用来自动地批量地执行DOS命令以实现特定操作的脚本。 

系统在解释运行批处理程序时，首先扫描整个批处理程序，然后从第一行代码开始向下逐句执行所有的命令，直至程序结尾或遇见exit命令或出错意外退出。 

用BAT批处理让鼠标在桌面两点来回单击

XY坐标默认是：
第1个坐标X=20
Y=10
点击数=1
第2个坐标X=500
Y=100
点击数=1
循环点击20次，次数可以自己改。
已经发到你邮箱里了，谢谢采纳！

bat如何将光标转到指定位置

bat要用到第三方,vbs好像可以做到移动，但不能点击，你需要鼠标移动到哪，做点击事件，不如下个按键精灵写一个脚本，非常简单，直接插入鼠标移动到(x,y)自己修改位置即可

利用bat文件更改<鼠标左右手习惯>的选项..

@echo off reg add "HKCU\Control Panel\Mouse" /v SwapMouseButtons /t REG_SZ /d 0 /f
echo 恢复左手习惯请按任意键继续，否则直接关闭窗口
pause》nul
reg add "HKCU\Control Panel\Mouse" /v SwapMouseButtons /t REG_SZ /d 1 /f pause
原理就是修改注册表
可能需要刷新，我没试过，有问题或BUG请反馈给我
你HKEY-USERS下最长的两个项叫什么
每个人都不一样
我的是
S-1-5-21-2025429265-1644491937-725345543-1003
S-1-5-21-2025429265-1644491937-725345543-1003_classes
这个信息挺关键的，你告诉下
再补充
是这样的
我完全试过了
用注册表法需要重启
所以不行
至于控制面板里的那个是调用了动态链接库从而实现不用重启
和相应的调用函数和命令是微软内部命令我并不知道
网上我没找到相应的函数
对不起了
只能用这个
@echo off
main.cpl
已经满方便了

bat怎样由鼠标事件驱动

需要第三方命令的支持，才能实现鼠标点击。
根据查询相关公开信息显示，截图的那个修复工具，虽然是exe格式的程序，但可以用解压工具把它里面的脚本文件和一些第三方命令程序解压出来，然后看一下代码内容，就知道用哪个命令程序实现鼠标点击的。
批处理文件的扩展名为bat或cmd，比较常见的批处理包含两类：DOS批处理和PS批处理。

请问 bat批处理完成这样的操作吗：捕捉到鼠标选中的文件，然后执行批处理

脚本被您以管理员身份运行了。所以导致脚本运行工作路径跑到C:\Windows\System32这个目录里了，因此显示找不到文件。
请在脚本开头加上cd /d "%~dp1"

制作一个BAT批处理文件使鼠标右键自由切换启用/禁用

@echo off
title 鼠标右键禁用/启用
:禁用
cls
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 1 /F 》nul
gpupdate /force》nul
echo.&echo.
echo        鼠标右键已被禁用！
echo.
echo        输入E解除禁用，%strm2%
echo.
echo.
set /p 启用=
if /i "%启用%"=="E" 启用
echo.
exit
:启用
cls
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 0 /F 》nul
gpupdate /force》nul
echo.&echo.
echo        鼠标右键已经启用，%strm2%
echo.
echo.
echo.
echo 任意键退出
pause》nul

找一个VB或者bat批处理程序能够实现控制鼠标的

鼠标专用类模块
Option Explicit
DefLng A-Z

Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private CurVisible As Boolean
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 Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Public Sub LeftButtonDown()
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End Sub
Public Sub LeftButtonUp()
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub
Public Sub RightButtonDown()
Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
End Sub
Public Sub RightButtonUp()
Call mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
End Sub
Public Property Get X() As Long
Dim tmpPoint As POINTAPI
Call GetCursorPos(tmpPoint)
X = tmpPoint.X
End Property

Public Property Let X(ByVal vNewValue As Long)
Call SetCursorPos(vNewValue, Y)
End Property

Public Property Get Y() As Long
Dim tmpPoint As POINTAPI
Call GetCursorPos(tmpPoint)
Y = tmpPoint.Y
End Property

Public Property Let Y(ByVal vNewValue As Long)
Call SetCursorPos(X, vNewValue)
End Property

Public Sub SnapTo(ctl As Control)
Dim pnt As POINTAPI
Dim xx As Long
Dim yy As Long

pnt.X = pnt.Y = 0
’Get Left-Top corner of control
Call ClientToScreen(ctl.hWnd, pnt)
xx = pnt.X + (ctl.Width \ 2)
yy = pnt.Y + (ctl.Height \ 2)
’xx = pnt.X + ctl.Width / (2 * (Screen.ActiveForm.Left + ctl.Left) / pnt.X)
’yy = pnt.Y + ctl.Height / (2 * (Screen.ActiveForm.Top + ctl.Top) / pnt.Y)
Call SetCursorPos(xx, yy)

End Sub

Public Sub ClipTo(ToCtl As Object)
On Error Resume Next
Dim tmpRect As RECT
Dim pt As POINTAPI
With ToCtl
If TypeOf ToCtl Is Form Then
tmpRect.Left = (.Left \ Screen.TwipsPerPixelX)
tmpRect.Top = (.Top \ Screen.TwipsPerPixelY)
tmpRect.Right = (.Left + .Width) \ Screen.TwipsPerPixelX
tmpRect.Bottom = (.Top + .Height) \ Screen.TwipsPerPixelY
ElseIf TypeOf ToCtl Is Screen Then
tmpRect.Left = 0
tmpRect.Top = 0
tmpRect.Right = (.Width \ Screen.TwipsPerPixelX)
tmpRect.Bottom = (.Height \ Screen.TwipsPerPixelY)
Else
pt.X = 0
pt.Y = 0
Call ClientToScreen(.hWnd, pt)
tmpRect.Left = pt.X
tmpRect.Top = pt.Y
pt.X = .Width
pt.Y = .Height
Call ClientToScreen(.hWnd, pt)
tmpRect.Bottom = pt.Y
tmpRect.Right = pt.X
End If
Call ClipCursor(tmpRect)
End With
End Sub

Private Sub Class_Initialize()
CurVisible = True
End Sub

Public Property Get Visible() As Boolean
Visible = CurVisible
End Property

Public Property Let Visible(ByVal vNewValue As Boolean)
CurVisible = vNewValue
Call ShowCursor(CurVisible)
End Property
……………………………………………………………………………………………
程序这样写：
dim a as new class1
a.x=x1
a.y=y1
a.LeftButtonUp
a.LeftButtondown
a.LeftButtonUp
a.LeftButtondown

bat 鼠标点击怎么实现

这需要第三方命令的支持，才能实现鼠标点击。您截图的那个修复工具，虽然是exe格式的程序，但可以用解压工具把它里面的脚本文件和一些第三方命令程序解压出来，然后看一下代码内容，就知道用哪个命令程序实现鼠标点击的。
我一时忘记了名字，所以没法直接告诉您文件名了，抱歉。