返回列表 上一主題 發帖

[發問] vba可否使用座標使滑鼠按下左鍵或右鍵

回復 9# Min
感謝版主大大,小弟已經在別的討論版上面有看到答案,並將以分享
但仍有遇到問題
雖然下方程式碼可以找出螢幕的尺寸,但我發現一般的網站也會根據尺寸的大小作調整,可是不是等比例的調整
導致下方的程式碼雖然可以自行調整比例,可是仍然點不到原本該點的位置
  1. Public Declare Function GetSystemMetrics Lib "user32.dll" (ByVal index As Long) As Long
  2. Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
  3. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
  4. Public Const XX = 1920
  5. Public Const YY = 1080
  6. Public Const SM_CXSCREEN = 0
  7. Public Const SM_CYSCREEN = 1
  8. Sub TEST()
  9. x = [A1]: y = [A2]
  10. xaxis = GetSystemMetrics(SM_CXSCREEN) / XX
  11. yaxis = GetSystemMetrics(SM_CYSCREEN) / YY
  12. SetCursorPos x * xaxis, y * yaxis '指定滑鼠座標
  13. 'mouse_event &H2 Or &H4, 0, 0, 0, 0 '左鍵點擊
  14. 'mouse_event &H2 Or &H4, 0, 0, 0, 0 '左鍵點擊

  15. End Sub
複製代碼
PKKO

TOP

        靜思自在 : 每天無所事事,是人生的消費者,積極、有用才是人生的創造者。
返回列表 上一主題