sendkeys为什么无效？

2010-12-15 01:55:58 2.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

英飞凌AURIX™ Development Studio（ADS）工程调试与烧录实战指南本文详细介绍了英飞凌AURIX™ Development Studio（ADS）的工程调试与烧录实战指南。从调试环境搭建、硬件连接到断点设置、变量监控等核心调试技巧，帮助开发者快速掌握ADS安装使用教程，提升多核处理器开发效率。阅读详情

有个截图软件的系统热键是Ctrl+Shift+F，我想直接用sendkeys控制，用下面代码无效：

Private Sub Command1_Click()

    SendKeys "^+F"

End Sub

然后拿任务管理器试了下也是无效：

Private Sub Command1_Click()

'    SendKeys "^%{ESC}"

    SendKeys "^%{DEL}"

End Sub

...全文

R语言下载包报错？可能是IE浏览器在搞鬼！手把手教你修复（附CRAN镜像选择指南）本文深入解析了R语言下载包时常见的网络报错问题，特别是Windows系统中因Internet Explorer代理设置导致的连接失败。文章提供了从重置IE配置、排查防火墙到优化CRAN镜像选择的完整解决方案，并附有详细的配置指南和自动化诊断脚本，帮助用户彻底解决R包安装难题。阅读详情

无·法

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

无·法 2010-12-16

打赏
举报

[Quote=引用 9 楼 lyserver 的回复:]

问题不出要SendKeys，而是窗口没有处于活动状态，代码修改如下：
VB code

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As……
[/Quote]直接测试不通过，不过在sendkeys前加个延时就好了。我的是xp+sp3
很奇怪，这个软件不需要窗口呈活动状态就可以按热键的。看样子sendkeys和直接按键盘差异还是很大很大的。

lyserver 2010-12-16

打赏
举报

以上代码在我这儿是通过了的。

lyserver 2010-12-16

打赏
举报

问题不出要SendKeys，而是窗口没有处于活动状态，代码修改如下：



Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long



Sub main()

    Dim hwndHyperSnap As Long

    

    hwndHyperSnap = FindWindowEx(0, 0, "HyperSnap 6 Window Class", vbNullString)

    If hwndHyperSnap <> 0 Then

        BringWindowToTop hwndHyperSnap

        SetFocusAPI hwndHyperSnap

        SendKeys "^+F"

    End If

End Sub

king06 2010-12-15

打赏
举报

用QQ就可以试了... sendkeys可能作用不到系统

无·法 2010-12-15

打赏
举报

[Quote=引用 6 楼 lyserver 的回复:]

把截图软件名称告诉我，我下班后下载一个试试。另外，如果SendKeys做不到，你可以尝试keybd_event函数。
[/Quote]hypersnap6
3q

lyserver 2010-12-15

打赏
举报

把截图软件名称告诉我，我下班后下载一个试试。另外，如果SendKeys做不到，你可以尝试keybd_event函数。

EZHANGSHENGGJDFRFRDA 2010-12-15

打赏
举报

哦，明白了

无·法 2010-12-15

打赏
举报

[Quote=引用 1 楼 patrickkong 的回复:]

msdn

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' Run Calculator.
AppActivate ReturnValue ' Activate the Calculator.
For I = 1 To 100 ' Set up counting loop.
SendKeys I &a……
[/Quote]这个很久以前就看过&跑过了。这个无需激活目标程序，因为它注册的是系统全局热键。

[Quote=引用 2 楼 king06 的回复:]

SendKeys "^+(F)"
[/Quote]
昨天就试过了，无效。

[Quote=引用 3 楼 lyserver 的回复:]

VB6的SendKeys有时有些问题，比如打开任务管理器，以下代码可以：
Sub main()
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^+{ESC}"
End Sub
以下代码却不可以：
Sub main()
Se……
[/Quote]vbs的也试过了，无效。郁闷的了。

lyserver 2010-12-15

打赏
举报

VB6的SendKeys有时有些问题，比如打开任务管理器，以下代码可以：
Sub main()
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^+{ESC}"
End Sub
以下代码却不可以：
Sub main()
SendKeys "^+{ESC}"
End Sub
所以你最好使用WScript.Shell中的SendKeys。

king06 2010-12-15

打赏
举报

SendKeys "^+(F)"

帝企鹅已被占用 2010-12-15

打赏
举报

msdn

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' Run Calculator.
AppActivate ReturnValue ' Activate the Calculator.
For I = 1 To 100 ' Set up counting loop.
SendKeys I & "{+}", True ' Send keystrokes to Calculator
Next I ' to add each value of I.
SendKeys "=", True ' Get grand total.
SendKeys "%{F4}", True ' Send ALT+F4 to close Calculator

sendkeys为什么无效？

相关推荐