Vbscript 防止HTA尺寸调整到极小尺寸

我有一个HTA，我想阻止调整到非常小的尺寸（小于170x70）。我在VBScript中找到了一种方法，通过检测窗口是否太小以及是否自动调整大小，如下所示：

<script type="text/vbscript">
     Sub Window_onResize
          Dim w
          Dim h
          Dim p
          w = Document.Body.OffsetWidth
          h = Document.Body.OffsetHeight
          p = false
          If Document.Body.OffsetWidth < 170 Then
               w = 170
               p = true
          End If
          If Document.Body.OffsetHeight < 70 Then
               h = 70
               p = true
          End If
          If p Then
               window.ResizeTo w,h
          End If
     End Sub
</script>

子窗口大小调整
暗w
暗h
暗p
w=Document.Body.OffsetWidth
h=Document.Body.OffsetHeight
p=假
如果Document.Body.OffsetWidth<170，则
w=170
p=真
如果结束
如果Document.Body.OffsetHeight<70，则
h=70
p=真
如果结束
如果p那么
窗口。重新调整为w，h
如果结束
端接头

---

我的问题是显然

ResizeTo

会计算滚动条和标题栏，而

OffsetWidth

和

OffsetHeight

则不会。我想通过检测标题栏的高度和滚动条的宽度来解决这个问题。我在网上搜索过如何做到这一点，但没有找到任何东西。您可以建议一种检测标题栏的高度和滚动条的宽度的方法，或者另一种防止HTA被调整到非常小的大小的方法。

由于IE9，您可以使用而不是

offsetWidth/height

。我使用的是HTA，所以我不能将其用于IE9。请不要建议使用

：我的HTA有框架和

标签之类的东西，它们与

标签不兼容。此外，我希望我的HTA与Windows XP兼容。