sendmessage 
&
wm_lbuttonclick

解决方案 »

  1.   

    我不会,请你会了也告知我好吗?谢谢!
    [email protected]
      

  2.   

    FindWindowEX(ParentWindowHwnd,FirstChildHwnd,ClassName,WindowText)
    通过父窗体,类名称,caption或者是Text找,找到了就模拟鼠标击键就行了SendMessage
    如果按钮有快捷方式按钮上有下划线的字母可以用alt+字母激活的sendkey()就可以。
    注意,跨进程操作时,可能不成功
      

  3.   

    如果是按钮就需要它的caption属性,也就是你看到的按钮上的字,
      

  4.   

    dim ctl As control
    for each ctl in from.controls
      select case typename(ctl.name)
         case "CommandButton"
              if ctl.caption="A"
                  sendmessage(ctl.hwnd,wm_lbuttonclick,0,0)  
                               '这里的后两个参数我也不清楚,在网吧
              end  if
      end select
    Next 
      

  5.   

    可以用  
    Declare Function EnumChildWindows& Lib "user32" ( _
            ByVal hWndParent          As Long, _
            ByVal lpEnumFunc          As Long, _
            ByVal lParam              As Long)   【说  明】   为指定的父窗口枚举子窗口