VB控制滑鼠移動，如何使用VBA控制滑鼠移動和單擊

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)

private mtimecount as integerprivate sub form_load()mtimecount = 0

1000 '設定 1 秒時鐘。

end sub

private sub timer1_timer()dim v_x as long

dim v_y as long

if mtimecount = 0 thenv_x = 0 '設定 x 坐標。

v_y = 50 '設定 Y 坐標。

mtimecount = mtimecount + 1elsev_x = 0 '設定 x 坐標。

v_y = -50 '設定 Y 坐標。

mtimecount = 0

end if

call mouse_event(mouseeventf_move, v_x, v_y, 0&, 0&)

end sub

我覺得這個功能有點無聊，但很有趣，呵呵。

1.首先，在開發工具中開啟VBA。

2.在單元格區域中輸入所需的一些內容。

3. 將模組插入 VBA。

4. 在模組中輸入**並執行。

5.使用快捷鍵alt+f8調出正在執行的巨集視窗，然後單擊“執行”按鈕，滑鼠已被限制在功能區範圍內移動。

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)

指定滑鼠使用絕對坐標系，並將螢幕在水平和垂直方向上均勻地劃分為 65535 65535 個單元格。

移動滑鼠。 模擬滑鼠左鍵按下。

模擬滑鼠左鍵抬起。

private const sw = 1024

private const sh = 768

private sub screen_click(byval x as long, byval y as long)

mw = x / sw * 65535

mh = y / sh * 65535

滑鼠事件 MouseEventf Absolute 或 MouseEventf Move， MW， MH， 0， 0

單擊滑鼠事件 MouseEventf Leftdown 或 MouseEventf LeftUp， 0， 0， 0， 0

end sub

sub test()

screen_click 512, 384

end sub