[求助]各位大佬为什么keybd_event模拟CTRL+shift+down执行不正确，变成down了

王彦彬

Sub CTXSHXD()
    keybd_event 17, 0, 0, 0
    Sleep 5
    keybd_event 16, 0, 0, 0
    Sleep 5
    keybd_event 40, 0, 0, 0
    Sleep 5
    keybd_event 40, 0, 2, 0
    Sleep 5
    keybd_event 16, 0,2, 0
    Sleep 5
    keybd_event 17, 0, 2, 0
    DoEvents
End Sub

smsn

参考下https://blog.csdn.net/weixin_34247155/article/details/85842248

smsn

　　 keybd_event(17,0,0,0)
　　 keybd_event(16,0,0,0)
　　 keybd_event(40,0,0,0)
　　 keybd_event(17,0,KEYEVENTF_KEYUP,0)
　　 keybd_event(16,0,KEYEVENTF_KEYUP,0)
　　 keybd_event(40,0,KEYEVENTF_KEYUP,0)

王彦彬

smsn 发表于 2022-11-30 08:43
　　 keybd_event(17,0,0,0)
　　 keybd_event(16,0,0,0)
　　 keybd_event(40,0,0,0)

感谢大佬回复
刚刚试了一下CTRL+SHIFT+G没问题
    keybd_event 17, 0, 0, 0
    Sleep 5
    keybd_event 16, 0, 0, 0
    Sleep 5
    keybd_event 71, 0, 0, 0
    Sleep 5
    keybd_event 71, 0, 2, 0
    Sleep 5
    keybd_event 16, 0, 2, 0
    Sleep 5
    keybd_event 17, 0, 2, 0
    DoEvents
CTRL+shift+down应该是和CTRL+alt+del一样属于特殊按键组合，不支持模拟

smsn

用sendinput 试试看

王彦彬

smsn 发表于 2022-11-30 10:37
用sendinput 试试看

这是公司电脑上用的，只有vba，而且没有管理员权限
需要该注册表之类的方法用不了

lss001

王彦彬 发表于 2022-11-30 11:01
这是公司电脑上用的，只有vba，而且没有管理员权限
需要该注册表之类的方法用不了

winapi函数keybd_event已过时！
建议使用→
Set ws = CreateObject("wscript.shell")
ws.SendKeys "^+{down}" '向下全选

ws.SendKeys "+{down 1}" '向下选择1次
ws.SendKeys "+{home 2}" '向左选择2次
ws.SendKeys "+{up 3}" '向上选择3次
ws.SendKeys "+{end 4}" '向右选择4次

王彦彬

lss001 发表于 2022-11-30 14:59
winapi函数keybd_event已过时！
建议使用→
Set ws = CreateObject("wscript.shell")

感谢大佬
记事本中运行成功
我去试试公司特殊程序行不行
Sub ceshi()
    AppActivate "111.txt - 记事本"
    Set ws = CreateObject("wscript.shell")
    Sleep 5
    ws.SendKeys "^f", True
    Sleep 500
    'ws.SendKeys "{down 1}", True
    Sleep 5
    ws.SendKeys "^v", True
    Sleep 5
    ws.SendKeys "~", True
    Sleep 5
    ws.SendKeys "^+{down}", True
End Sub

王彦彬

lss001 发表于 2022-11-30 14:59
winapi函数keybd_event已过时！
建议使用→
Set ws = CreateObject("wscript.shell")

感谢大佬
记事本中运行成功
我试试公司特殊程序行不行
Sub ceshi()
    AppActivate "111.txt - 记事本"
    Set ws = CreateObject("wscript.shell")
    Sleep 5
    ws.SendKeys "^f", True
    Sleep 500
    'ws.SendKeys "{down 1}", True
    Sleep 5
    ws.SendKeys "^v", True
    Sleep 5
    ws.SendKeys "~", True
    Sleep 5
    ws.SendKeys "^+{down}", True '向下全选
End Sub