- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
¦^´_ 9# Min
·PÁª©¥D¤j¤j,¤p§Ì¤w¸g¦b§Oªº°Q½×ª©¤W±¦³¬Ý¨ìµª®×,¨Ã±N¥H¤À¨É
¦ý¤´¦³¹J¨ì°ÝÃD
ÁöµM¤U¤èµ{¦¡½X¥i¥H§ä¥X¿Ã¹õªº¤Ø¤o,¦ý§Úµo²{¤@¯ëªººô¯¸¤]·|®Ú¾Ú¤Ø¤oªº¤j¤p§@½Õ¾ã,¥i¬O¤£¬Oµ¥¤ñ¨Òªº½Õ¾ã
¾ÉP¤U¤èªºµ{¦¡½XÁöµM¥i¥H¦Û¦æ½Õ¾ã¤ñ¨Ò,¥i¬O¤´µMÂI¤£¨ì쥻¸ÓÂIªº¦ì¸m- 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 '«ü©w·Æ¹«®y¼Ð
- 'mouse_event &H2 Or &H4, 0, 0, 0, 0 '¥ªÁäÂIÀ»
- 'mouse_event &H2 Or &H4, 0, 0, 0, 0 '¥ªÁäÂIÀ»
- End Sub
½Æ»s¥N½X |
|