以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]openQQ服务端如何自动重启动 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113870) |
-- 作者:ajie5211 -- 发布时间:2018/1/24 13:48:00 -- [求助]openQQ服务端如何自动重启动 如题,长时间运行后,有时会变慢或出错,希望服务端能每天早上1点钟自动关闭并重启动一次,如何写代码比较好? 计划管理里面这样写,间隔2100000,好像会启动多次,请帮助改改,或是有啥更好的方法没? static cqdsj As Date = Date.today.AddDays(-1) |
-- 作者:有点甜 -- 发布时间:2018/1/24 14:32:00 -- Dim cqdsj As Date = getConfigValue("重启时间", Date.today.AddDays(-1)) If cqdsj <> Date.today AndAlso Date.Now.Hour = 1 Then cqdsj = Date.today SaveConfigValue("重启时间", cqdsj) Application.restart End If [此贴子已经被作者于2018/1/24 14:37:52编辑过]
|