html消息对话框怎么居中,html – 居中的窗口

我如何将HTA窗口居中,使其位于屏幕中央,无论HTA大小的屏幕分辨率如何：

Sub DoResize 'Do not use Window_Onload

window.resizeTo 800,600

strComputer = "."

Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")

For Each objItem in colItems

intHorizontal = objItem.ScreenWidth

intVertical = objItem.ScreenHeight

Next

intLeft = (intHorizontal - 800) / 2

intTop = (intVertical - 600) / 2

window.moveTo intLeft, intTop

End Sub

DoResize() 'Run the subroutine to position the containing window (your HTA dialog) before the body is rendered.

但是,如果我改变屏幕分辨率它不起作用,它会调整HTA窗口的大小.

问题：无论屏幕分辨率的HTA大小如何,如何将HTA移动到屏幕中心.