脚本文件如下:(可在IE下测试)
<HTML>
<HEAD>
<TITLE>test page for object OCXTest_CalcPi</TITLE>
</HEAD>
<BODY>
<object id="clsid:58084200-F0E7-4840-9072-3B3698387E57"
name= CatchScreen
height="0" width="0" >
</object>
<script language= "VBScript">
CatchScreen.CatchScreen
dim RetTxt2
RetTxt2 = CatchScreen.GetFileDirName
document.write "GetFileDirName:" & RetTxt2
</script>
</BODY>
</HTML>
最新评论