如何實作向其它程式發送按鈕-有解無憂

1、怎么點擊其它程式上的一個按鈕。
比如像點擊其它程式上面的上面的確定按鈕。
2、如何獲取其它程式點擊了確定按鈕。

uj5u.com熱心網友回復：

用spy++找出那個按鈕的視窗句柄，然后發送訊息



  if PostMessage(按鈕的視窗句柄, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))

    and PostMessage(按鈕的視窗句柄, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then

    begin

      ShowMessage('點擊成功');

    end;

uj5u.com熱心網友回復：

參考 1 樓 sololie 的回復:

用spy++找出那個按鈕的視窗句柄，然后發送訊息



  if PostMessage(按鈕的視窗句柄, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))

    and PostMessage(按鈕的視窗句柄, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then

    begin

      ShowMessage('點擊成功');

    end;

問一個問題哈，如果上面有幾個按鈕，怎么確定是我需要的那個按鈕呢？

uj5u.com熱心網友回復：

你想按那個按鈕就把那個按鈕的句柄記下來，要點那個按鈕就給那個按鈕發訊息

var
btnHwnd1, btnHwnd2:hwnd;
begin
// spy++找到例如一個'確認'按鈕的句柄
btnHwnd1 := 確定按鈕句柄;
// spy++找到例如一個'確認'按鈕的句柄
btnHwnd2 := 取消按鈕句柄;

  if PostMessage(btnHwnd1, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))
    and PostMessage(btnHwnd1, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then
    begin
      ShowMessage('點擊確認成功');
    end;

  if PostMessage(btnHwnd2, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))
    and PostMessage(btnHwnd1, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then
    begin
      ShowMessage('點擊取消成功');
    end;
end;

uj5u.com熱心網友回復：

參考 3 樓 sololie 的回復:

你想按那個按鈕就把那個按鈕的句柄記下來，要點那個按鈕就給那個按鈕發訊息

var
btnHwnd1, btnHwnd2:hwnd;
begin
// spy++找到例如一個'確認'按鈕的句柄
btnHwnd1 := 確定按鈕句柄;
// spy++找到例如一個'確認'按鈕的句柄
btnHwnd2 := 取消按鈕句柄;

  if PostMessage(btnHwnd1, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))
    and PostMessage(btnHwnd1, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then
    begin
      ShowMessage('點擊確認成功');
    end;

  if PostMessage(btnHwnd2, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))
    and PostMessage(btnHwnd1, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then
    begin
      ShowMessage('點擊取消成功');
    end;
end;

好的我試試

uj5u.com熱心網友回復：

參考 3 樓 sololie 的回復:

你想按那個按鈕就把那個按鈕的句柄記下來，要點那個按鈕就給那個按鈕發訊息

var
btnHwnd1, btnHwnd2:hwnd;
begin
// spy++找到例如一個'確認'按鈕的句柄
btnHwnd1 := 確定按鈕句柄;
// spy++找到例如一個'確認'按鈕的句柄
btnHwnd2 := 取消按鈕句柄;

  if PostMessage(btnHwnd1, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))
    and PostMessage(btnHwnd1, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then
    begin
      ShowMessage('點擊確認成功');
    end;

  if PostMessage(btnHwnd2, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))
    and PostMessage(btnHwnd1, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then
    begin
      ShowMessage('點擊取消成功');
    end;
end;

謝謝，這個代碼可以用的。第二個問題可以做到嗎？就是相反的，比如外部程式點擊了按鈕，我需要把這個資訊回傳，這個怎么實作呢？

uj5u.com熱心網友回復：

  if PostMessage(btnHwnd1, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))
    and PostMessage(btnHwnd1, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then
    begin
      // 這里不就表示你點擊了確認按鈕了么，至于確認按鈕執行了什么，你自然是無從得知的
      // 你只能確認是否點擊了那個按鈕，然后做你想做的事情
      ShowMessage('點擊確認成功');
    end;

uj5u.com熱心網友回復：

實作點擊按鈕，模擬滑鼠按下和抬起是不靠譜的。直接發送 BM_CLICK 訊息才是王道。

當然，前提是找到目標按鈕的句柄。

uj5u.com熱心網友回復：

參考 7 樓 ccrun 的回復:

實作點擊按鈕，模擬滑鼠按下和抬起是不靠譜的。直接發送 BM_CLICK 訊息才是王道。

當然，前提是找到目標按鈕的句柄。

版主，怎么實作呢？

uj5u.com熱心網友回復：

參考 6 樓 sololie 的回復:

  if PostMessage(btnHwnd1, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10))
    and PostMessage(btnHwnd1, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)) then
    begin
      // 這里不就表示你點擊了確認按鈕了么，至于確認按鈕執行了什么，你自然是無從得知的
      // 你只能確認是否點擊了那個按鈕，然后做你想做的事情
      ShowMessage('點擊確認成功');
    end;

高手，我通過
H1 := FindWindow(nil, 'UploadFTP'); // h是登錄視窗句柄
H2 := FindWindowEx(H1, 0, PChar('TBitBtn'), Pchar('手動上傳'));//按鈕
來獲取這個句柄，但是必須要先把目標程式點起來，然后才能獲取到句柄，但是目標程式是啟動后自動托盤的，這個怎么來修改呢？

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/122363.html

標籤：VCL組件開發及應用

上一篇：用Tdoscommand呼叫plink執行shell命令，如果與plink進行互動？

下一篇：Form中與資料庫相關的陳述句如何寫入DLL中并呼叫