定时移动鼠标点击鼠标，防止电脑息屏的vba脚本_vba如何实现鼠标自动移动-CSDN博客

本文链接：https://blog.csdn.net/panfei263031/article/details/128081100

本文介绍了如何使用TypePOINTAPI进行鼠标位置操作，并展示了如何通过模拟鼠标点击、延迟函数以及随机数生成来实现自动化控制。通过详细步骤和函数演示了在编程中如何处理鼠标事件和延时控制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Type POINTAPI ' This holds the logical cursor information
    Dim x As Long
    Dim y As Long
End Type


Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (Byval x as long, Byval y as long) As Long
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByValdwMilliseconds As LongLong)
private static extern int mouse_event(int dwFlags, int dx, int dy, int cButtons, int dwExtraInfo);

const int MOUSEEVENTF_LEFTDOWN = 0x0002   ' 模拟鼠标左键按下
const int MOUSEEVENTF_LEFTUP = 0x0004   ' 模拟鼠标左键抬起

'delay for 1s, 2s ....
'input: 1,2,3.....
Sub Delay_Sec(Byval sec as Integer)
    For i=1 to sec * 10
        DoEvents
        Sleep 100
    Next
End Sub

'sleep milliseconds
Sub Delay_MilliSec(Byval milli_sec as Integer)
    For i=1 to milli_sec step 100
        DoEvents
        Sleep 100
    Next
End Sub

Function Get_Rand()
    Dim a as integer
    Dim b as integer
    
    a = Rnd() * 100
    b = b Mod 30
    
    Get_Rand = b
End Function

Sub mouse_helper()
    Dim i as integer
    Dim cur_pos as POINTAPI
    Dim rnd as integer
    
    For i = 1 to 10000
        GetCursorPos cur_pos
        SetCursorPos cur_pos.x + 2, cur_pos.y + 1
        
        Delay_MilliSec 100   'sleep For 100ms
        mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
        Delay_MilliSec 500   'sleep For 500ms
        mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

        rnd = Get_Rand
        Delay_Sec rnd
        Debug.Print "delay For " & rnd & " seconds"
    Next
End Sub