Re: [.NET] 請益讓滑鼠自動移動至設定處

看板Visual_Basic作者chinoyan時間6年前 (2018/06/20 06:18)推噓0(0推 0噓 0→)

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

※ 引述《morningjis (morning)》之銘言： : 請輸入專案類型(網站專案或者應用程式專案)： : 小型專案測試 : 請教一下，我想要寫個小程式， : 可以在螢幕的畫面上不同位置，自動執行滑鼠的按鍵動作， : 目前有找到相關的程式碼， : 但是是限於執行專案的介面上， : 不過我是想可以執行程式後， : 在螢幕桌面上的任何位置都可執行滑鼠的按鍵動作， : 不曉得該如何改程式碼的部分呢?! : 目前找到的程式碼部分如下: : ' mouse_event moves in a coordinate system where : ' (0, 0) is in the upper left corner and : ' (65535,65535) is in the lower right corner. : ' Convert the coordinates. : Dim screen_bounds As Rectangle = Screen.GetBounds(pt) : Dim x As Integer = CInt(pt.X * 65535 / screen_bounds.Width) : Dim y As Integer = CInt(pt.Y * 65535 / screen_bounds.Height) : 謝謝各位達人們!!! GetForegroundWindow SetForegroundWindow ShowWindow Sleep SetCursorPos 以上API先了解一下 Private Const MOUSEEVENTF_LEFTDOWN As Long = &H2 Private Const MOUSEEVENTF_LEFTUP As Long = &H4 Public Sub LeftClick(X As Long, Y As Long) SetCursorPos X, Y mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '左鍵按下 Sleep 100 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '左鍵放開 End Sub -- ████ █ ★ ████ █ █ █ █ █ █ █ █ █ 超級熱烈歡迎 █ ████ █ █ █ ████ █ █ █ █ █ ███★ █ █ 歡迎到嘉義版! ★███ █ █ █ █ █ █ █ 訊馳電腦-路徑 → 嘉義市林森西路496號 →(05)2244-526 → 順發斜對面 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.134.128.193 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1529446689.A.935.html ※ 編輯: chinoyan (220.134.128.193), 06/20/2018 06:19:32