以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何解决打开狐表项目后放置一段时间后进入假死状态的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102477)
--  作者：czy66ds
--  发布时间：2017/6/20 15:31:00
--  如何解决打开狐表项目后放置一段时间后进入假死状态的问题
项目数据库放置在阿里云 ，客户端启动后经过一段时间后如果不操作，就进入假死状态。
我在计划管理中每隔6000就连接一下服务器，还是无法杜绝这个现象，40多个店铺在使用，客户感觉很不好。
--  作者：有点色
--  发布时间：2017/6/20 15:45:00
--  

全局代码

 

<DllImport("user32.dll", EntryPoint := "SetCursorPos")> _
Public Function SetCursorPos(x As Integer, y As Integer) As Boolean

End Function

 

SystemIdle事件

 

If LastInputTickCount > 30000 Then
    SetCursorPos(Rand.Next(1000), rand.Next(1000)) \'鼠标位置
End If
--  作者：bohe
--  发布时间：2017/6/20 16:15:00
--  
顶一下
--  作者：chen3728060
--  发布时间：2017/6/20 16:29:00
--  
mark
--  作者：cbt
--  发布时间：2017/6/20 17:59:00
--  
 mark
--  作者：jspta
--  发布时间：2017/6/20 18:07:00
--  
selec t getdate() 

每隔一定时间运行一次即可。只要不是进入休眠，会一直保持
--  作者：foxor
--  发布时间：2017/6/21 8:20:00
--  
这个用得着，顶一下
--  作者：czy66ds
--  发布时间：2017/6/21 10:45:00
--  
有点色给出的办法很有效。
不过，鼠标像布朗运动似的满屏运动，不时还碰出任务栏中的东东，像是电脑被黑客控制了似的，还是不爽。
能否限制鼠标在一块小区域中活动？
--  作者：有点色
--  发布时间：2017/6/21 11:14:00
--  

 可以的，如

 

If LastInputTickCount > 30000 Then
    SetCursorPos(Rand.Next(5), rand.Next(5)) \'鼠标位置
End If
--  作者：舟舟
--  发布时间：2017/6/21 15:10:00
--  
mark