文章目录
[+]
Private Declare PtrSafe Function SetTimer Lib "user32" ( _
ByVal HWnd As LongPtr, ByVal nIDEvent As LongPtr, _
ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
（图片来自网络侵删）
Private Declare PtrSafe Function KillTimer Lib "user32" ( _
ByVal HWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long
Sub 实行定时任务()
dim yyy as longptr
yyy = SetTimer(0, 1, 60000, AddressOf 任务) '韶光间隔可以自行设置
End Sub
Sub 任务()
Shell "taskkill /im winword.exe /f "
End Sub
Sub 停滞实行()
Call KillTimer(0, yyy)
End Sub
解释:通过SetTimer 函数来创建一个定时器，打算好韶光间隔，将回调函数设置为 "任务" 过程的地址。
运行效果:
视频加载中...
