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>