右鍵連點問題 |
答題得分者是:lirick2003
|
martin0523
一般會員 發表:2 回覆:0 積分:0 註冊:2008-07-02 發送簡訊給我 |
請問 我用這個程式碼模擬鍵盤 可是當成是縮小化到了遊戲畫面 卻不能連點跟打怪 是哪邊出問題了 PS 我是玩天堂2 = =
procedure TForm1.ToDblClick; var i : Integer; begin SetCursorPos(strtoint(Edit1.Text), strtoint(Edit2.Text)); //Sleep(2000); for i := 1 to StrToInt(Edit3.Text) do //讓連點能夠連續 begin //mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); //SendMessage(Form1.Handle, WM_LBUTTONDBLCLK , 0, 0); mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0); SendMessage(Form1.Handle, WM_RBUTTONDBLCLK , 0, 0); end; end; |
lirick2003
一般會員 發表:17 回覆:16 積分:11 註冊:2007-02-23 發送簡訊給我 |
|
RootKit
資深會員 發表:16 回覆:358 積分:419 註冊:2008-01-02 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |