- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
回復 9# Min
感謝版主大大,小弟已經在別的討論版上面有看到答案,並將以分享
但仍有遇到問題
雖然下方程式碼可以找出螢幕的尺寸,但我發現一般的網站也會根據尺寸的大小作調整,可是不是等比例的調整
導致下方的程式碼雖然可以自行調整比例,可是仍然點不到原本該點的位置- Public Declare Function GetSystemMetrics Lib "user32.dll" (ByVal index As Long) As Long
- Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
- 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)
- Public Const XX = 1920
- Public Const YY = 1080
- Public Const SM_CXSCREEN = 0
- Public Const SM_CYSCREEN = 1
- Sub TEST()
- x = [A1]: y = [A2]
- xaxis = GetSystemMetrics(SM_CXSCREEN) / XX
- yaxis = GetSystemMetrics(SM_CYSCREEN) / YY
- SetCursorPos x * xaxis, y * yaxis '指定滑鼠座標
- 'mouse_event &H2 Or &H4, 0, 0, 0, 0 '左鍵點擊
- 'mouse_event &H2 Or &H4, 0, 0, 0, 0 '左鍵點擊
- End Sub
複製代碼 |
|