sendkeys问题

用SendKeys向我的另一程序发送一个字母，在另一个程序中应如何才能接收到这个字符，并把它显示出来！

解决方案 »

  1.   

    首先你应将接收字符的应用程序或窗口激活，（可用AppActivate title[, wait]语句实现。），然后再用SendKeys即可。如下例使用Shell函数来运行计算器程序；并用AppActivate激活，然后使用SendKeys语句来按下计算器的某些数字键，最后退出计算器。
    Dim ReturnValue, I
    ReturnValue = Shell("Calc.EXE", 1)   ' 运行计算器。
    AppActivate ReturnValue    ' 激活计算器。
    For I = 1 To 100   ' 设置计数循环。
       SendKeys I & "{+}", True   ' 按下按键给计算器
    Next I   ' 将所有 I 值相加。
    SendKeys "=", True   ' 取得总合。
    SendKeys "%{F4}", True   ' 按 ALT+F4 关闭计算器。
      

  2.   

    回复人： VbFriend(未必爱好) ( ) 信誉：100  把那几句都写在一起了？呵呵，还没看清呢，就 ALT+F4 了。呵呵