利用VBS监视IE加载框架页事件
这里的主页面的window.Parent.iEventOrder和window.Parent.sEventTracker有点问题，基本上是一个字符串的作用，这里使用点语法，容易引起概念的混淆。
eventOrder.HTM
<html>
<head>
<title>EventOrder.htm</title>
<script language="VBScript">
Dim sEventTracker
Dim iEventOrder
iEventOrder = 0
window.Parent.iEventOrder = window.Parent.iEventOrder + 1
window.Parent.sEventTracker = window.Parent.sEventTracker & window.Parent.iEventOrder & " Frameset - first code" & vbCrLf
Sub window_onload
iEventOrder = iEventOrder + 1
sEventTracker = sEventTracker & iEventOrder & "frameset window onload" & vbCrLf
End Sub
</script>
</head>
<frameset rows="50%, *">
<frame src="top.htm" id="fraTop" name="fraTop"></frame>
<frame src="bottom.htm" id="fraBottom" name="fraBottom"></frame>
<noframes>
<body>
<p>this page uses frames</p>
</body>
</noframes>
</frameset>
</html>
top.HTM
<html>
<head>
<title> top.htm</title>
<script language="VBScript">
window.Parent.iEventOrder = window.Parent.iEventOrder + 1
window.Parent.sEventTracker = window.Parent.sEventTracker & window.Parent.iEventOrder & "TOP Frame - first code" & vbCrLfSub cmdCheckForm_onclick
window.Parent.iEventOrder = Parent.iEventOrder + 1
window.Parent.sEventTracker = window.Parent.sEventTracker & window.Parent.iEventOrder & "TOP Frame - cmdCheckForm_onclick" & vbCrLf
form1.txtEvents.Value = window.Parent.sEventTracker
End Sub
Sub window_onload
Parent.iEventOrder = window.Parent.iEventOrder + 1
window.Parent.sEventTracker = window.Parent.sEventTracker & window.Parent.iEventOrder & "TOP Frame - window_onload" & vbCrLf
End Sub
</script>
</head>
<body>
<form action="some.asp" method="post" id="form1" name="form1">
<textarea cols="60" name="txtEvents" rows="10"></textarea>
<input type="button" value="List Events" name="cmdCheckForm">
</form>
<h1>Top page</h1>
<script language="VBScript">
window.Parent.iEventOrder = window.Parent.iEventOrder + 1
window.Parent.sEventTracker = window.Parent.sEventTracker & window.Parent.iEventOrder & "TOP Frame - second code" & vbCrLf
</script>
</body>
</html>
bottom.HTM
<html>
<head>
<title>bottom.htm</title>
<script language="VBScript">
window.Parent.iEventOrder = window.Parent.iEventOrder + 1
window.Parent.sEventTracker = window.Parent.sEventTracker & window.Parent.iEventOrder & "Bottom Frame-First Line" & vbCrLf
msgbox sEventTracker
Sub window_onload
window.Parent.iEventOrder = window.Parent.iEvnetOrder + 1
window.Parent.sEventTracker = window.Parent.sEvnetTracker & window.Parent.iEventOrder & "Bottom Frame-window_onload" & vbCrLf
msgbox sEventtracker
End Sub
</script>
</head>
<body>
<h1>bottom page</h1>
</body>
</html>
浙公网安备 33010602011771号