※ 引述《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