sendkeys的问题.

Question

通过对象查看器找到Sub SendKeys(numKeys As Long, pbArrayKeyUp As Boolean, plKeyData As Long)
    MSTSCLibCtl.IMsRdpClientNonScriptable 的成员----------------
编辑代码.Private Sub Command2_Click()
  Dim aa As IMsRdpClientNonScriptable
  Dim bKeyUp(2) As Boolean
  Dim KeyData(2) As Integer  KeyData(1) = 91
  bKeyUp(1) = False  KeyData(2) = 91
  bKeyUp(2) = True  aa.SendKeys 2, bKeyUp, KeyData
End Sub--------------结果单击时出现:  编译错误:  ByRef 参数类型不符怎么回事.

Answer 1

Private Sub Text1_Click()
SendKeys "ASDDDDDGE123"End Sub

Answer 2

这个应该是参数传递错误，byref不是按值传递

Answer 3

SendKeys是内部发送命令,直接用即可,楼主的写法不对
SendKeys "abcd"

Answer 4

注意这里声明的参数不是数组:
Sub SendKeys(numKeys As Long, pbArrayKeyUp As Boolean, plKeyData As Long) 
    MSTSCLibCtl.IMsRdpClientNonScriptable 的成员
而定义的是数组: 
  Dim bKeyUp(2) As Boolean 
  Dim KeyData(2) As Integer 
传递的也是数组..
  aa.SendKeys 2, bKeyUp, KeyData 
所以不正确,可以这样:
  aa.SendKeys 2, bKeyUp(1), KeyData(1)
  aa.SendKeys 2, bKeyUp(2), KeyData(2)