AppActivate 窗口焦点

Question

我一直在网上搜索有关如何在 AppActive 中获得窗口焦点的解决方案，但找不到我需要的东西，或者至少无法理解。简而言之，我的代码在 SAP 系统中进行更改，然后保存，然后通过默认打印机生成 pdf。 “另存为”弹出窗口随机出现，我通过 AppActive 找到并通过发送密钥继续保存。

现在通常弹出窗口总是在顶部，这没有问题，但是，它很少出现并且没有焦点，而是在任务栏中闪烁。然后代码找到它并继续放置文件名。由于它没有焦点，因此它会将名称放在焦点所在的位置（通常是 SAP）。

如何确保窗口始终处于焦点位置？我对编码很陌生，所以我喜欢简单的解决方案:)。

Set WScr = CreateObject("WScript.Shell")            
    Do          
        WScript.Sleep 50        
    Loop Until WScr.AppActivate("Save PDF File As") ' loops until save as popup appears
    WScript.Sleep 1000                                  
    FileName = filepath & order(i) & ".pdf"             
    WScr.SendKeys FileName          
    WScript.Sleep 250           
    WScr.SendKeys "{ENTER}"         
    WScr.SendKeys "{TAB}" ' in case same name exists, overwrite question tab chooses yes            
    WScr.SendKeys "{ENTER}" ' press yes
    WScript.Sleep 500                   
Set WScr=Nothing

Answer 1

只需在每个发送键之前添加一个AppActivate，但不要循环。这是最好的也是唯一的选择。

但为什么不直接从 VBS 控制 SAP。请参阅http://scn.sap.com/community/gui/blog/2012/10/08/introduction-to-sap-gui-scripting 并查找与objSAP.Alerts = False 类似的内容（取决于您收到对话框的原因）。

还有为什么你会得到对话框？是因为文件已经存在吗？如果是这样删除它，没有对话框。

现在我说它是最好的，只是你可以通过旋转一个 vb.net 帮助程序在 vbscript 中使用 API 调用。这链接到我写的关于如何做到这一点的两篇文章。如果您走这条路，请查看 GetActiveWindow API 调用（以及其他）How To run vb.net with vbs scheduled task。

尝试两件事

Appactivate "Save PDF File As"
WScr.SendKeys FileName          
WScript.Sleep 250           
Appactivate "Save PDF File As"
WScr.SendKeys "{ENTER}"         
Appactivate "Save PDF File As"
WScr.SendKeys "{TAB}" ' in case same name exists, overwrite question tab chooses yes            
Appactivate "Save PDF File As"
WScr.SendKeys "{ENTER}" ' press yes
WScript.Sleep 500                   

第二个是将文件保存对话框标题替换为顶级窗口（它也是对话框的所有者窗口）标题 - 即主窗口标题。如果记事本的另存为对话框打开，请使用AppActivate "Untitled - Notepad"