怎样用VBSCRIP实现IE的关闭按钮按下去不关闭

[Eros1219]

程序的要求是这样的,网页上要填点内容,按那个大叉(就是关闭)才能关掉,否则不能关,如何实现? 谢谢高手指教

[超级大笨狼]

Sub window_onbeforeunload
window.event.returnValue= "还有东西没填就想跑？"
End Sub

Sub window_onunload
if document.form1.selectText.value="" then
msgbox "还是回来填点东西吧"
features="channelmode=yes ,"
features=features & "toolbar=yes ,"
features=features & "location= yes ,"
features=features & "directories = yes ,"
features=features & "status=yes ,"
features=features & "menubar=yes ,"
features=features & "scrollbars=yes ,"
features=features & "resizable=yes "
window.open window.location.href,window.name,features
end if

End Sub