保持HTA不会调整到极小的尺寸

Question

我有一个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>

我的问题是显然ResizeTo会计算滚动条和标题栏，而OffsetWidth和OffsetHeight则不会。我想通过检测标题栏的高度和滚动条的宽度来解决这个问题。我在网上搜索了如何做到这一点，但我找不到任何东西。您可以建议一种方法来检测标题栏的高度和滚动条的宽度，或者另一种方法是保持HTA不会调整到极小的尺寸。