access的sql如何实现鼠标模拟移动？

软件下载

单位要搞系列教育，要求每天局域网内看几部教育片，这教育片如果5分钟不动鼠标，就会从头放，相当苦恼。

由于单位网络与外界物理隔绝，也不能插盘拷入任何软件，更不能随意安装什么软件，好在现在还有个access，特来请教大家如何写段代码，让视频在那正常播放，鼠标每4分半就动一下，当然得与动真实鼠标的结果一样，防止视频自动重头开始。

这个可能要调用API了吧，对这是一窍不通，有大虾上传代码也成，我打印下来然后到单位再输进去。

todaynew

动与不动与自动播放何干？防止屏保？

软件下载

不是屏保,这个可以设置的.

我们单位这些视频不知道做了什么手脚,你5分钟不动键盘或鼠标,视频就会自动重头播放,目的就是逼大家在电脑旁边把它看完.

todaynew

软件下载 发表于 2011-10-17 19:22
不是屏保,这个可以设置的.

我们单位这些视频不知道做了什么手脚,你5分钟不动键盘或鼠标,视频就会自动重头 ...

随便建一个窗体，声明一个窗体级的变量，然后在窗体的加载事件和计时器触发事件中写：

Dim t As Long

Sub Form_Load()
    Me.TimerInterval = 1000*60
End Sub


Private Sub Form_Timer()
    t = t + 1
   If t > 1 Then
        SendKeys "{PGDN}"
        t = 0
   Else
        SendKeys "{PGUP}"
   End If
End Sub

不保证一定能行，呵呵。

Henry D. Sy

虚拟击键应该不行吧！

软件下载

我先拍下来,回头试试后汇报.

andymark

模拟鼠标移动, 也可以加入模拟鼠标的单出事件，这里省去。。。

1. Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
   
2. 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)
   
3. 
   
4. Dim X As Long
   
5. Dim Y As Long
   
6. Dim I As Long
   
7. 
   
8. Private Sub Form_Load()
   
9.   Me.TimerInterval = 6000
   
10.   X = 80
    
11.   Y = 300
    
12.   I = 1
    
13. End Sub
    
14. 
    
15. Private Sub Form_Timer()
    
16.    
    
17.     CustMoveMouse
    
18. 
    
19. End Sub
    
20. 
    
21. Private Sub CustMoveMouse()
    
22.    If I = 10 Then
    
23.       I = 1
    
24.    End If
    
25.    SetCursorPos X * I, Y
    
26.    I = I + 1
    
27. End Sub
    

复制代码