HTA 应用程序：将窗口放置在屏幕的右下角

Question

我正在尝试将我的 hta 应用程序窗口移动到我的桌面（屏幕）的右下角。如果我放置静态值，那么它可以工作，但我想将窗口放在每个屏幕分辨率的右下角。我不知道如何对 .hta 说“将窗口放置在距上边框 50% 处，距右边框 5% 处”。这是我的小脚本：

<script language="VBScript">
   'On Error Resume Next
   window.resizeTo 450, 400
   var monitorHeight = screen.Height;
   var monitorWidth = screen.Width; 

    window.moveTo monitorWidth-450, monitorHeight-400



    window.moveTo WindowLeft,WindowTop 

</script>

我可以将窗口居中：

<script language="VBScript">
  'On Error Resume Next   
  window.resizeTo 450, 400
window.moveTo (screen.width -450) / 2, (screen.height-400) / 2
</script>

但不能把窗口放在右下角。

Answer 1

你可以试试这样的：

<script language="VBScript">
    window.resizeTo 450,400
    WindowLeft = (window.screen.availWidth - 450)  
    WindowTop  = (window.screen.availHeight - 400)
    window.moveTo WindowLeft, WindowTop
</script>