[VB6 ] 後台滑鼠,後台按鍵 PostMessage問題請教

看板Visual_Basic作者hayabusasean (雲湛)時間11年前 (2013/12/03 11:23)推噓1(1推 0噓 2→)

留言3則, 2人參與討論串1/3 (看更多)

目前正在寫一個"前"台,模擬滑鼠鍵盤,自行輸入腳本的VB6程式大致以完成功能如下: 1.可自行定義,熱鍵抓取區域及圖片,可自動"模擬比對"找到該圖示的中心點 (因為該按鍵位置會變動,顏色會隨機變化),然後以該按鍵為中心,隨機時間與滑鼠點擊位置 2.腳本都是自行定義的指令,有IF,goto,delay,move滑鼠座標,Click...等等動作,可撰寫完整一套. 目前是拿來用在BlueStack的Android小遊戲掛網做測試,基本上都沒問題不過想更進一步,用"後台"方式來做,後台取色及判斷目前已經OK 但卡在...後台滑鼠&後台鍵盤已經試了好幾天,Google各種相關的文都爬了, 使用API,GetForegroundWindow取得hWnd,想用PostMessage來模擬滑鼠左鍵一直無法順利成功 < A程式 >上有個測試button內容部份如下: (即按下此buttun會在B程式按下滑鼠左鍵,當然是要後台執行) lParam的設定 ==> mPos = (x And &HFFFF) + (y And &HFFFF) * &H10000 '------------------------------------------------ PostMessage F_hWnd, WM_LBUTTONDOWN, 1, ByVal mPos delay(0.1秒) PostMessage F_hWnd, WM_LBUTTONUP, 1, ByVal mPos '------------------------------------------------ < B程式 > 是自行寫一個表單,上面有一個button 點擊form(i=i+1)或點擊到button(j=j+1)都會顯示,例如i=1,j=3(這樣應該可以測試有沒有成功?) < 遭遇到的問題如下 > 1. 座標點在form1範圍,有反應,但是點擊在Button則無反應,是否跟表單的父/子物件hWnd這方面有關? 2. 必須要在上述的程式段加個迴圈(do loop個10次左右),在按A程式button時,B程式才會有反應而且很怪的是按A程式的按鍵點擊的時間似乎也有影響B程式會不會有反應!!? 請教板上的前輩 , 可否提醒或分享一下問題的方向在哪裡呢?? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.220.247.236