[求助]sendkeys给外部程序

yangk999 · 发表于 2015-12-30 11:38

各位大神，

小弟目前在做一个宏，通过VBA打开程序，然后在程序内做一系列操作。
打开程序可以通过shell或者hyperlinks.follow，但是调试的时候发现sendkeys都是在VBA窗口或者本窗口操作的，即使appactivate到新打开的程序。
请问可以方法破？

另外我用按键精灵生成了一个exe，快捷键是F10。发现sendkeys “{F10}” 不能实现，即使在本窗口也不行。

请大家指教下，谢谢！

yangk999 · 发表于 2015-12-30 13:41

自己顶，求大神！

funsz · 发表于 2015-12-30 13:59

yangk999 发表于 2015-12-30 13:41
自己顶，求大神！

sendkeys的操作应该只能是系统自带的，比如ALT+F4能关闭窗口之类的操作，
或者比如选中浏览器地址栏输入一些内容，
其他sendkeys好像有点力不从心吧

我是来讨说法的 · 发表于 2015-12-30 20:15

你要让被操作的窗体获得焦点才行

yangk999 · 发表于 2016-1-4 11:48

我是来讨说法的发表于 2015-12-30 20:15
你要让被操作的窗体获得焦点才行

请问怎样让备操作的窗体获得焦点？我用appactivate好像不行。

我是来讨说法的 · 发表于 2016-1-4 12:01

yangk999 发表于 2016-1-4 11:48
请问怎样让备操作的窗体获得焦点？我用appactivate好像不行。

一般情况下，让窗体置顶就会获得焦点，具体情况具体分析
置顶需要用API

mikewolf2k · 发表于 2016-1-4 14:48

yangk999 发表于 2016-1-4 11:48
请问怎样让备操作的窗体获得焦点？我用appactivate好像不行。

我也做过类似的事情，感觉appactivate时常无效。
我的做法是，通过shell启动新程序，此时新程序是激活的。然后一系列的sendkeys操作，祈祷在这个过程中不要有其它程序被激活……
当然调试模式是不能用的，vba编辑器获得了焦点。

百度不到去谷歌 · 发表于 2016-1-4 16:01

vba自带的sendkeys发送全局按键有时候会失效
解决方法是使用WScript脚本对象的sendkeys方法
使用下面重新包装后的snedkeys发送即可

Sub WSendKeys(keys)
'调用方法:WSendKeys "{F1}"
Set a = CreateObject("WScript.shell")
a.SendKeys keys
Set a = Nothing
End Sub

复制代码

yangk999 · 发表于 2016-1-12 15:39

百度不到去谷歌发表于 2016-1-4 16:01
vba自带的sendkeys发送全局按键有时候会失效
解决方法是使用WScript脚本对象的sendkeys方法
使用下面重新 ...

感谢！

是:
Set a = CreateObject("WScript.shell")
a.SendKeys keys ' 此处是需要sendkey的keys吗？
Set a = Nothing '此处是完成需要send的key以后把a清空吗？

谢谢！

百度不到去谷歌 · 发表于 2016-1-12 17:01

yangk999 发表于 2016-1-12 15:39
感谢！

是:

是你就复制粘贴我那整个函数啊
在需要的地方直接
WSendKeys keys 代替系统的原来sendkeys

		自动登录	找回密码
密码			免费注册

[求助] [求助]sendkeys给外部程序

评分