2009-07-21 最近完成一个类似QQ截图功能的CatchScreen.oxc控件，能自动保存jpg图片到自动创建的文件夹C://CatchScreenPicture里，文件名用系统时间命名，不会产生重复命名（例如：2009_4_15_10_37_40.jpg），并返回文件路径，JPG大小在500K以下，适合网络上传！如有意需求可联系我，qq：386927906
脚本文件如下：（可在IE下测试）
<HTML>
<HEAD>
<TITLE>test page for object OCXTest_CalcPi</TITLE>
</HEAD>
<BODY>
<object classid="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>
6471
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
