※ 引述《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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1529446689.A.935.html ※ 编辑: chinoyan (220.134.128.193), 06/20/2018 06:19:32