代码:
Hwd = FindWindow(vbNullString, "计算器")
If Hwd = 0 Then MsgBox "没找到窗口", vbOKOnly + vbInformation, "#错误": Exit Sub
GetWindowThreadProcessId Hwd, PidSendMessage Hwd, WM_KEYDOWN, vbKey1, 0为什么这个SendMessage没反应了?

解决方案 »

  1.   

    vbKey1是什么?这个参数是干什么的?
      

  2.   

    vbkey1相当于Ascii49,相当于键盘上的1吧!
      

  3.   

    你的找到计算器中的textbox才能发送 1 到计算器里面的
      

  4.   

    楼上正解
    但是需要注意的是记事本好象是用两个edit控件你不要发到隐藏的那个哦
    使用IsWindow判断一下最好
    关于查找EDIT可以使用FindWindowEx函数查找句柄
      

  5.   

    1、发错了目标,应该发给edit控件,可以用GetDlgItem来寻找控件句柄
    2、sendmessage好像有限制条件,发消息的时候,发送方应该先attach到接收方的线程。
    参考一下另一个API,AttachThreadInput。