作者morningjis (morning)
看板Visual_Basic
标题[.NET] 请益让滑鼠自动移动至设定处
时间Tue Jun 12 22:30:15 2018
请输入专案类型(网站专案或者应用程式专案)：
小型专案测试
请教一下，我想要写个小程式，
可以在萤幕的画面上不同位置，自动执行滑鼠的按键动作，
目前有找到相关的程式码，
但是是限於执行专案的介面上，
不过我是想可以执行程式後，
在萤幕桌面上的任何位置都可执行滑鼠的按键动作，
不晓得该如何改程式码的部分呢?!
目前找到的程式码部分如下:
' 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)
谢谢各位达人们!!!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.238.119.170
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1528813818.A.0D5.html
1F：→ MOONRAKER: 这个程式码就逻辑座标/pixel座标转换而已 06/13 10:30
2F：→ MOONRAKER: 这样也算跟滑鼠事件相关 那我应该是周星驰 06/13 10:31
3F：推 chinoyan: XY定义好了,但,你的API CALL 呢? 06/13 21:28
4F：→ morningjis: Private Declare Sub mouse_event Lib "user32" 06/18 13:08
5F：→ morningjis: 那这个逻辑座标是只在专案视窗画面 06/18 13:09
6F：→ morningjis: 那我要怎麽才能转换到 专案视窗外的桌面画面上呢?! 06/18 13:10
7F：→ morningjis: 我的pt定义为 06/18 13:11
8F：→ morningjis: Dim pt As Point = Me.PointToScreen(m_Target) 06/18 13:11
9F：推 chinoyan: MOUSE_EVENT 是全局的 06/20 06:06