線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2134
推到 Plurk!
推到 Facebook!

請問如何取得滑鼠在Monitor上的座標,並且模擬滑鼠左鍵的動作

缺席
paf
初階會員


發表:36
回覆:70
積分:41
註冊:2002-12-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-07 01:07:40 IP:218.164.xxx.xxx 未訂閱
as title. 請問如何取得滑鼠在螢幕上任一點的座標呢? 然後取到座標後.讓滑鼠能在自己想要的座標上自動的按左鍵 功能類似像網路上灌票程式一樣..就是電腦開著.程式執行後 然後就設定成幾秒執行一次按左鍵的動..就讓它自己的按. 謝謝!!
paf
初階會員


發表:36
回覆:70
積分:41
註冊:2002-12-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-07 02:27:47 IP:218.164.xxx.xxx 未訂閱
小弟已經實作出來了.^^
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-07 11:18:10 IP:203.73.xxx.xxx 未訂閱
引言: as title. 請問如何取得滑鼠在螢幕上任一點的座標呢? 然後取到座標後.讓滑鼠能在自己想要的座標上自動的按左鍵 功能類似像網路上灌票程式一樣..就是電腦開著.程式執行後 然後就設定成幾秒執行一次按左鍵的動..就讓它自己的按. 謝謝!!
paf 你好:
(1)我想~~也許應該會用到這些 Win32 API 吧?? GetCursorPos, SendMessage,
   WindowFromPoint, ChildWindowFromPoint, RealChildWindowFromPoint
( >
>    -- 
        
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
paf
初階會員


發表:36
回覆:70
積分:41
註冊:2002-12-27

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-08 11:16:13 IP:218.164.xxx.xxx 未訂閱
引言:
引言: as title. 請問如何取得滑鼠在螢幕上任一點的座標呢? 然後取到座標後.讓滑鼠能在自己想要的座標上自動的按左鍵 功能類似像網路上灌票程式一樣..就是電腦開著.程式執行後 然後就設定成幾秒執行一次按左鍵的動..就讓它自己的按. 謝謝!!
paf 你好:
(1)我想~~也許應該會用到這些 Win32 API 吧?? GetCursorPos, SendMessage,
   WindowFromPoint, ChildWindowFromPoint, RealChildWindowFromPoint
( >
>    -- >< face="Verdana, Arial, Helvetica">    
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Timer1->Interval=StrToInt(Edit1->Text)*1000;
   Timer1->Enabled=true;
   //將滑鼠的游標移到所指定的位置
   SetCursorPos(P.x,P.y);
   //模擬滑鼠左鍵的動作
   mouse_event(MOUSEEVENTF_LEFTDOWN,P.x,P.y,0,GetMessageExtraInfo());
   mouse_event(MOUSEEVENTF_LEFTUP,P.x,P.y,0,GetMessageExtraInfo());
}
//--------------------------------------------------------------------    void __fastcall TForm1::Button2Click(TObject *Sender)
{
   //取得滑鼠目前的目標
   GetCursorPos(&P);
   Label2->Caption="(" IntToStr(P.x) "," IntToStr(P.y) ")";
}
//--------------------------------------------------------------------
以上是小弟的source code^^ 而P這個變數.我是宣告成global
c8631506
一般會員


發表:3
回覆:9
積分:2
註冊:2004-11-09

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-12-14 18:00:29 IP:210.66.xxx.xxx 未訂閱
用TMouse也不錯哦, 它在取得mouse position很方便, 也可以傳回handle後,用windows api來做後序處理...
系統時間:2024-05-08 18:52:55
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!