将按键发送到另一个应用程序
问题描述：
如何使用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 & "{+}", 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>]
.
:)