谁能帮我做一下按键精灵的一键宏脚本 顺序是：鼠标右键→鼠标左键→C_百度知道
谁能帮我做一下按键精灵的一键宏脚本 顺序是：鼠标右键→鼠标左键→C
提问者采纳
KeyPress&nbsp,&&&RightClick&&&Then&&&1&&90&&&&nbspDo&&If&&&LeftClick&1&&&;&WaitKey&C&&&&&=&&&&&&&1&&&End&&nbsp
能把启动键改为Ctrl 吗？帮我改一下！
提问者评价
来自团队：
其他类似问题
为您推荐：
鼠标右键的相关知识
其他1条回答
我可以帮你，点我的名字看下吧
点了，能留个联系方式吗？
点了没看到吗？点我名字看头像有的
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用按键精灵写鼠标中键向上向下 右键 各控制一个键怎么写_百度知道
用按键精灵写鼠标中键向上向下 右键 各控制一个键怎么写
控制键是 F G H
提问者采纳
G&;上滚=HKeyPress &quot，可以直接用Rem 开始a = WaitClick()If a = 32777 Then '中键按下=FKeyPress &H&下滚=GKeyPress &F&quot, 1End IfIf a = 32782 Then ';, 1Delay 10End IfIf a = 32781 Then &#39最简单的方法是建立3个脚本。顺手做了个代码，然后触发脚本的方式为鼠标的上下右
提问者评价
其他类似问题
为您推荐：
鼠标中键的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您的举报已经提交成功，我们将尽快处理，谢谢！
重新启动一次
看问题是否还存在
如果还存在，说明左右键功能调换了
打开控制面板，点击“鼠标”，在按钮配置中选择“右手习惯”即可。
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'关于VB模拟鼠标按键的问题我想对某一程序 模拟鼠标同时按下左键、中键、右键和同时松开这三个键！请问应该怎么实现？请大虾给个实例！谢谢了！
回答1：mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击!'
MOUSEEVENTF_LEFTDOWN
模拟鼠标左键按下'
MOUSEEVENTF_LEFTUP
模拟鼠标左键抬起'
MOUSEEVENTF_RIGHTDOWN
模拟鼠标右键按下'
MOUSEEVENTF_RIGHTUP
模拟鼠标右键抬起'
MOUSEEVENTF_MIDDLEDOWN
模拟鼠标中键按下'
MOUSEEVENTF_MIDDLEUP
模拟鼠标中键抬起
回答2：探讨mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击!' MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下' MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起' MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下' MOUSEEVENTF_RIGHTU……
he_xiangang
回答3：探讨mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击!' MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下' MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起' MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下' MOUSEEVENTF_RIGHTU……
he_xiangang
　　VB code　　'Example Name:Auto Click Menu
'Example by Daniel Kaufmann (.uy)
'Paste this code in a Form
'with a Menu named menu1 which has a menuitem named menu2
Private Type POINTAPI
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
Private Declare Function GetMenu Lib &user32& (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemRect Lib &user32& (ByVal hwnd As Long, ByVal hMenu As Long, ByVal uItem As Long, lprcItem As RECT) As Long
Private Declare Function GetSubMenu Lib &user32& (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
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 GetMessageExtraInfo Lib &user32& () As Long
Private Declare Function GetSystemMetrics Lib &user32& (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0 'X Size of screen
Const SM_CYSCREEN = 1 'Y Size of Screen
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim mWnd As Long
mWnd = Me.hwnd
Dim hMenu As Long, hSubMenu As Long
hMenu = GetMenu(mWnd) 'Get the Menu of the Window(MenuBar)
ClickMenuItem mWnd, hMenu, 0 'Click on the first SubMenu
hSubMenu = GetSubMenu(hMenu, 0) 'Get its submenu
ClickMenuItem mWnd, hSubMenu, 0 'Click on the first MenuItem of the Submenu
Private Sub ScreenToAbsolute(lpPoint As POINTAPI)
lpPoint.x = lpPoint.x * (&HFFFF& / GetSystemMetrics(SM_CXSCREEN))
lpPoint.y = lpPoint.y * (&HFFFF& / GetSystemMetrics(SM_CYSCREEN))
Private Sub Click(p As POINTAPI)
'p.X and p.Y in absolute coordinates
'Put the mouse on the point
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, p.x, p.y, 0, GetMessageExtraInfo()
'Mouse Down
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo()
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo()
Private Sub ClickMenuItem(ByVal mWnd As Long, ByVal hMenu As Long, ByVal Pos As Long)
Dim ret As Long
Dim r As RECT, p As POINTAPI
ret = GetMenuItemRect(mWnd, hMenu, Pos, r)
If ret = 0 Then Exit Sub
p.x = (r.Left + r.Right) / 2
p.y = (r.Top + r.Bottom) / 2
ScreenToAbsolute p
'Click on p
Private Sub Form_Load()
Dim mWnd As Long, p As POINTAPI
mWnd = Me.hwnd
Dim hMenu As Long, hSubMenu As Long
hMenu = GetMenu(mWnd) 'Get the Menu of the Window(MenuBar)
ClickMenuItem mWnd, hMenu, 0 'Click on the first SubMenu
hSubMenu = GetSubMenu(hMenu, 0) 'Get its submenu
ClickMenuItem mWnd, hSubMenu, 0 'Click on the first MenuItem of the Submenu
p.x = &HFFFF& / 2
p.y = &HFFFF& / 2
Me.AutoRedraw = True
Me.BackColor = vbWhite
Print &Press any key&
Private Sub menu2_Click()
MsgBox &Click&
he_wei0202}