怎么点击其它软件窗口中的指定按钮？(200分)

smartrich · 2006-07-30

其它软件窗口标题为“自动点击测试”，窗口中有两个按钮，第一个按钮的Caption包含有“&Y”，第二个按钮的Caption为“Cancel” 我用FindWindow (nil,'自动点击测试');获取控制权，想用FindWindowEx(hwnd,0,nil,'&Y');获取按钮控制权，但是第一个按钮的Caption只是包含有“&Y”，还有其它不断变化的字符， 请教大家，要怎么写代码才可以获取窗口中第一个按钮的控制权，并点击第一个按钮？

newsmile · 2006-07-30

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2365884 看有关模拟鼠标点击按钮那一段。

鳄鱼先生 · 2006-07-30

使用DUnit

冰力不足 · 2006-07-30

“&Y”很明显就是故意让你不能够找到它的句柄但是找句柄的方法很多有时候为了找句柄必须从父句柄的父句柄开始找句柄找到了用 postmessage或者SendMessage就可以点击

冰力不足 · 2006-07-30

你用Spy++查看他的句柄有什么特点能够找到它的父句柄不找到了就一定能够找出它的句柄

冰力不足 · 2006-07-30

先找出窗口的句柄 chuangkou:= Findwindow('XXXX','自动点击测试'); 然后用Spy++查出第一个按钮的ID 假设查出的ID是5 那么GetDlgItem(chuangkou,5);就得到按纽的句柄 最后用SendMessage(chuangkou,WM_command, 5,0);就可以实现点击了 如果ID等于0 那么也有其他办法我不知道软件的具体情况最详细只能这样跟你讲了

weiliu · 2006-07-31

这个应该不困难，以下程序是找一个秒表程序里的所有按钮的标题，你知道了按钮标题后，用POS函数比较你的特征字串在不在里面，就可以知道是不是这个按钮了，然后用SENDMESSAGE或POSTMESSAGE向它发送消息就是： var   ParentHandle , ChildHanlde : THandle;   c : array [0..255] of char; begin   ParentHandle := FindWindow(nil, PChar('STOPWATCH'));   if ParentHandle <> 0 then   begin   ChildHanlde := FindWindowEx(ParentHandle, 0, PChar('TButton'), nil);   while ChildHanlde <> 0 do   begin     GetWindowText(ChildHanlde,@c,255);     memo1.Lines.Add(c);     ChildHanlde := FindWindowEx(ParentHandle, ChildHanlde, PChar('TButton'), nil);   end;   end; end;

jfyes · 2006-08-01

//先取得这个程序的主窗口句柄，根据句柄枚举子窗口，或子窗口的子窗口，找到button http://www.delphibbs.com/keylife/images/u196832/AdvWNDView06-13.rar 窗口查看程序 这个程序中的代码是： procedure EnumChildWindows(Parent: HWND);  function EChildProc(ChWnd: HWND; lParam: LPARAM): BOOL; stdcall;  var    sClassName: array [0..254] of Char;    Buf: PChar;    Len: Integer;    A: TListItem;    Rect: TRect;  begin    if ChWnd <> 0 then    begin      Windows.GetClassName(ChWnd, sClassName, SizeOf(sClassName));      A := fm_tasker.LV_ChildWind.Items.Add;      A.Caption :=  Format('%8.8x', [ChWnd]);          if Windows.IsWindowEnabled(ChWnd) then        A.SubItems.AddObject('True', Pointer(ChWnd))      else A.SubItems.AddObject('False', Pointer(ChWnd));      A.SubItems.Add(Format('%s', [sClassName]));      Len := SendMessage(ChWnd, WM_GETTEXTLENGTH, 0, 0) + 1;      GetMem(Buf, Len);      SendMessage(ChWnd, WM_GETTEXT, Len, Longint(Buf));      if Windows.lstrlen(Buf) > 0 then        A.SubItems.Add(Buf)      else A.SubItems.Add('');      FreeMem(Buf, Len);      A.SubItems.Add(Format('%8.8x', [lParam]));      Windows.GetWindowRect(ChWnd, Rect);      A.SubItems.Add(Format('X：%d  Y：%d  W：%d  H：%d', [Rect.Left, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top]));      //MenuItemToTreeNode(GetMenu(ChWnd), fm_tasker.TV_Menu, nil);    end;    Result := True;  end; begin  fm_tasker.TV_Menu.Items.Clear;  fm_tasker.TV_Menu.Tag := Parent;  MenuItemToTreeNode(GetMenu(Parent), fm_tasker.TV_Menu, nil);  MenuItemToTreeNode(GetSystemMenu(Parent, False), fm_tasker.TV_Menu, nil, True);  fm_tasker.LV_ChildWind.Clear;  fm_tasker.LV_ChildWind.Items.BeginUpdate;  Windows.EnumChildWindows(Parent, @EChildProc, Parent);  fm_tasker.LV_ChildWind.Items.EndUpdate; end; 窗口操作： 3:  begin     // 最大化           // SetForegroundWindow(H);            ShowWindow(H, SW_MAXIMIZE);          end;      4: begin     //  最小化          // SetForegroundWindow(H);           ShowWindow(H, SW_MINIMIZE);         end;      5: begin //单击           SendMessage(H, WM_LBUTTONDOWN, 0, 0);           SendMessage(H, WM_LBUTTONUP, 0, 0);         end;      6:  // 双击          SendMessage(H, WM_LBUTTONDBLCLK, 0, 0);      7:  begin // 右击            SendMessage(H, WM_RBUTTONDOWN, 0, 0);            SendMessage(H, WM_RBUTTONUP, 0, 0);          end;      8: begin  // Enabled           En := not Windows.IsWindowEnabled(H);           Windows.EnableWindow(H, En);           if  AppMenu.PopupComponent = LV_Child_HWND  then             EnumWindow(StrToInt(LV_Child_HWND.Selected.Caption))           else if AppMenu.PopupComponent = LV_ChildWind then             EnumChildWindows(THandle(LV_Child_HWND.Selected.SubItems.Objects[0]));         end;      9: begin  // Enabled           En := not Windows.IsWindowVisible(H);           Windows.ShowWindow(H, SWCOMMAD[En]);           if  AppMenu.PopupComponent = LV_Child_HWND  then             EnumWindow(StrToInt(LV_Child_HWND.Selected.Caption))           else if AppMenu.PopupComponent = LV_ChildWind then             EnumChildWindows(THandle(LV_Child_HWND.Selected.SubItems.Objects[0]));         end;

网中戏 · 2006-08-01

还可以通过鼠标位置找句柄

hzjone · 2006-08-04

function EnumProc(hwnd:Thandle;lparam:lparam):boolean; Stdcall; var    lpText,lpCaption          :array[0..255] of char; begin    Result := true;    GetClassName(hwnd,@lpText,255);//得到类名。    if LowerCase(lpText)=lowercase('tbutton') then //这个用类别来查找。这里举例用TBUTTON    begin        Hchild := hwnd;        GetWindowText(Hchild,lpCaption,100);        if trim(lpCaption)='按钮的CAPTION写在这里' then//在这边用CAPTION来查找            Result := false//打到返回FALSE        else            Result := true;    end; end; function TForm1.GetEditHandle(WinCap:string):integer; var    hParent         :Thandle;    i               :integer; begin    Result := 0;    Hchild := 0;    hParent := FindWindow(nil,pchar(''));//窗体的名称写在这边    if hParent=0 then Exit;    EnumChildWindows(hParent,@EnumProc,0);//回调EnumProc    Result := Hchild; end; 也可用 var H1,H2:THandle; begin  H1:=FindWindow('TForm1','shenqw');  H2:=Findwindowex(H1,0,'TButton','Button1');  SendMessage(H2,bm_click,0,0

smartrich · 2006-08-05

谢谢大家了，散分...

怎么点击其它软件窗口中的指定按钮？(200分)

smartrich

Unregistered / Unconfirmed

newsmile

Unregistered / Unconfirmed

鳄鱼先生

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

jfyes

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

hzjone

Unregistered / Unconfirmed

smartrich

Unregistered / Unconfirmed

Similar threads