Question

我正在使用远程桌面连接登录Windows Server。如果空闲并且远程桌面上的所有进程都停止，则远程桌面会在几分钟后自动锁定。有没有办法防止远程桌面闲置？

我写了一个shell脚本，每6秒自动按一次numlock键。

Dim objResult

Set objShell = WScript.CreateObject("WScript.Shell")    
i = 0

Do While i = 0
  objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
  Wscript.Sleep (6000)
Loop

但问题是此代码无效并且无限时间运行。我们可以限制它1-2个小时吗？还有其他办法吗？

Answer 1

限制它运行1小时增量＆＃34; i＆＃34;在你的循环中运行它只600次。（1h = 3600s / 6s - > 600次）

Do While i < 600
  objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
  Wscript.Sleep (6000)
  i = i + 1
Loop

但为什么不将服务器配置为不自动锁定？

Answer 2

杀死脚本（CMD文件）

triangles <- read.csv(filename, header = FALSE, col.names = c("a", "b", "c"))
for(i in 1:nrow(triangles)) {
  if (triangles$a + triangles$b > triangles$c 
      || triangles$a + triangles$c > triangles$b ||
      triangles$c + triangles$b > triangles $a) {

如何防止远程桌面闲置？

2 个答案: