Question

我尝试使用提到的代码捕获远程服务器的屏幕截图，但发生了奇怪的事情。我打开CMD，应用程序和文件夹来运行VBS。只是文件夹和CMD被捕获在屏幕截图和桌面ICON和应用程序窗口没有捕获。就像我们在恐怖电影中看到的幽灵影像一样无法捕捉：P

请告诉我可以做些什么。实际问题是在我的远程服务器中，一个工具全天候运行它会抛出错误并保持原样，直到手动重启。我无法如此频繁地检查远程服务器所以我想如果我不能通过邮件获得帮助我的截图。

注意：请坚持使用VBS，因为我无法下载任何外部或文件。这是官方工作所必需的。该代码适用于本地系统。我遇到了远程应用程序服务器的问题。

dim filesys , Imagepath
Imagepath="C:\Users\Documents\"
Set filesys = CreateObject("Scripting.FileSystemObject") 
If filesys.FileExists(Imagepath & "Img.jpg") Then 
    filesys.DeleteFile Imagepath & "Img.jpg" 
    'Wscript.echo "File deleted" 
End If 

Set oWordBasic = CreateObject("Word.Basic")
oWordBasic.SendKeys "{prtsc}" 
oWordBasic.AppClose "Microsoft Word"
Set oWordBasic = Nothing
WScript.Sleep 300
set WshShell = CreateObject("WScript.Shell")
WshShell.Run "mspaint"
WScript.Sleep 300
WshShell.AppActivate "untitled - Paint"
WScript.Sleep 300
WshShell.SendKeys "^v"
WScript.Sleep 300
WshShell.SendKeys "^s"
WScript.Sleep 300
WshShell.SendKeys Imagepath & "Img" & ".jpg"
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"
WScript.Sleep 300
WshShell.SendKeys "%{F4}"
Set WshShell=Nothing

Auto使用VBS的远程服务器的屏幕截图

0 个答案: