Office中国论坛/Access中国论坛

标题: access的sql如何实现鼠标模拟移动？ [打印本页]
作者: 软件下载    时间: 2011-10-14 20:35
标题: access的sql如何实现鼠标模拟移动？
单位要搞系列教育，要求每天局域网内看几部教育片，这教育片如果5分钟不动鼠标，就会从头放，相当苦恼。

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

这个可能要调用API了吧，对这是一窍不通，有大虾上传代码也成，我打印下来然后到单位再输进去。
作者: todaynew    时间: 2011-10-14 20:51
动与不动与自动播放何干？防止屏保？
作者: 软件下载    时间: 2011-10-17 19:22
不是屏保,这个可以设置的.

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

作者: todaynew    时间: 2011-10-17 19:43
本帖最后由 todaynew 于 2011-10-17 19:43 编辑
软件下载 发表于 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    时间: 2011-10-17 20:07
虚拟击键应该不行吧！
作者: 软件下载    时间: 2011-10-17 20:17
我先拍下来,回头试试后汇报.
作者: andymark    时间: 2011-10-17 20:25
模拟鼠标移动, 也可以加入模拟鼠标的单出事件，这里省去。。。
  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)

  4. Dim X As Long
  5. Dim Y As Long
  6. Dim I As Long

  8. Private Sub Form_Load()
  9.   Me.TimerInterval = 6000
  10.   X = 80
  11.   Y = 300
  12.   I = 1
  13. End Sub

  15. Private Sub Form_Timer()
  16.    
  17.     CustMoveMouse

  19. End Sub

  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
复制代码
[attach]47005[/attach]



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3