傳統鼠標滾動源代碼

private Declare Sub mouse _ event Lib " user 32 "(ByVal dw flags為Long，ByVal dx為Long，ByVal dy為Long，ByVal cButtons為Long，ByVal dwExtraInfo為Long)

private Const mouse event f _ MOVE = & amp；H1 '鼠標移動

Private mTimeCount為整數

私有子窗體_Load()

mTimeCount = 0

定時器1。間隔= 1000 '設置1秒鐘。

末端接頭

私有子定時器1_Timer()

Dim v_x As Long

Dim v_y As Long

如果mTimeCount = 0，則

V_x = 0 '設置x坐標。

V_y = 50 '設置Y坐標。

mTimeCount = mTimeCount + 1

其他

V_x = 0 '設置x坐標。

V_y = -50 '設置Y坐標。

mTimeCount = 0

如果…就會結束

調用mouse_event(MOUSEEVENTF_MOVE，v_x，v_y，0 & amp，0 & amp)

末端接頭

感覺樓主希望這個功能有點無聊，但是挺好玩的，呵呵。