将按键发送到另一个应用程序 [英] Sending keystorkes to another application

问题描述

如何使用VB 6.0将击键发送到另一个正在运行的应用程序?我尝试通过AppActive使用SendKeys，但无法正常工作.我需要使用Win32 API进行访问.我正在使用VB 6自动化应用程序(我们不能使用AutoIT之类的任何第三方库)有人可以建议我如何使用VB

Hi,
How to send keystrokes to another running application using VB 6.0? I tried using SendKeys by AppActive, but its not working. I need to access using Win32 API. I am automating an application using VB 6(We cannot use any 3rd party libraries like AutoIT or something)Can anyone please suggest me how to send keystrokes to another application using VB

推荐答案

MSDN上的示例:
< pre>
昏暗的ReturnValue，我
ReturnValue = Shell("CALC.EXE"，1)"运行计算器.
AppActivate ReturnValue''激活计算器.
对于I = 1至100''设置计数循环.
发送键I& amp; "{+}"，True''将击键发送到计算器
接下来我''以添加I的每个值.
SendKeys"="，True获得总计.
SendKeys％{F4}"，True''发送ALT + F4关闭计算器.
</pre>
我复制了示例，因为今天发布链接没有运气...
< a href ="http://msdn.microsoft.com/en-us/library/aa266281%28VS.60%29.aspx"> http://msdn.microsoft.com/en-us/library/aa266281％28VS.60％29.aspx</a> [< a href ="http://msdn.microsoft.com/zh-cn/library/aa266281%28VS.60%29.aspx" target ="_ blank "title =" New Window> ^</a>]
.
:)

An example at MSDN:
<pre>
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 &amp; "{+}", 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.
</pre>
I copied the example because today there''s no luck in posting links...
<a href="http://msdn.microsoft.com/en-us/library/aa266281%28VS.60%29.aspx">http://msdn.microsoft.com/en-us/library/aa266281%28VS.60%29.aspx</a>[<a href="http://msdn.microsoft.com/en-us/library/aa266281%28VS.60%29.aspx" target="_blank" title="New Window">^</a>]
.
:)

这篇关于将按键发送到另一个应用程序的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！