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>]
.
:)