1

我已经尝试了几天（如果不是几周的话......）让下面的代码工作。我想要实现的是每天运行一个 R 脚本（通过 Windows Server 2008 64 位上的批处理脚本和 Windows 任务计划程序）。该 R 脚本应导航到某些网站，登录并调用另存为对话框以将完整页面保存到特定路径。

如果我在 RStudio 中的机器（Win 8 - 64bit）上运行我的脚本，它就像一个魅力 - 远程和通过 Rscript.exe 它不会。

问题似乎出在 SaveAs.au3 脚本上——当我通过 RStudio 或文件资源管理器调用它时，它运行良好。在批处理文件中执行相同的 R 脚本：

"C:\Program Files\R\R-3.2.3\bin\x64\Rscript.exe" "C:\JN\abc.R"

一直工作到 system() 命令以及崩溃然后不提供任何错误或警告。

也许有人遇到类似问题并可以提供帮助？谢谢！

3 个 AutoIt 脚本如下：

SaveAs.au3/exe

ControlFocus("[CLASS:MozillaWindowClass]", "", "")
ControlSend("[CLASS:MozillaWindowClass]", "", "", "^s")

EditName.au3将从 R 中可变地写入，然后调用

KeyEnter.aut3

ControlFocus("Save as", "", "")
ControlClick("Save as","","[CLASS:Button; INSTANCE:1]")

R 脚本如下所示：

# compl is a vector of n href 

if(length(compl) != 0) {
  foreach(i=1:length(compl)) %do% {
    server_check() # checks whether selenium driver is still active and firefox window is open
    remDr$navigate(compl[i])
    Sys.sleep(10)
    login_check() # checks whether login is still active
    Sys.sleep(5)
    print(paste("attempt to save:",compl[i]))
    system('C:\\JN\\SaveAs.exe') # does not matter whether .exe or .au3
    Sys.sleep(3)
    system("cmd", input = c('echo ControlSetText("Save as", "", "[CLASS:Edit; INSTANCE:1]", "") > C:\\JN\\EditName.au3',
                            paste0('echo ControlSend("Save as", "", "[CLASS:Edit; INSTANCE:1]", "',
                                   gsub("/","_",gsub(website_url,"", compl[i])), ".htm",
                                   '") >> C:\\JN\\EditName.au3')))
    Sys.sleep(3)
    system('C:\\"Program Files (x86)"\\AutoIt3\\AutoIt3.exe C:\\JN\\EditName.au3')
    Sys.sleep(8)
    system('C:\\"Program Files (x86)"\\AutoIt3\\AutoIt3.exe C:\\JN\\KeyEnter.au3')
    Sys.sleep(30)
  }
}
print("Complete save end")
4

1 回答 1

0

问题与 Windows Server 2008 R2 有关 - 如果您断开远程会话，服务器将启动屏幕服务器（或类似服务器），使 AutoIt 脚本无法与 GUI 交互（因为没有...）

Windows Server 中有一些选项可以防止服务器禁用 GUI，但是我的脚本仍然不够稳定，无法独立运行数月......

于 2016-04-01T10:08:42.190 回答