整站截图工具,整网页截图工具,整站截图,网页截图工具

<script language="VBScript"> Sub CatchPic() On Error Resume Next set tmpObject = CreateObject("HtmlPictureManager.CatchPicUrl") if 0 = err then tmpObject.CatchPictureURL(external.menuArguments.document.Url) end if end sub call CatchPic() </script>