wbbrowser控件
<OBJECT id=WB classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 VIEWASTEXT></OBJECT>
--------------------------------------------------------------------------------------
画图控件
<OBJECT id=SGrfxCtl1 classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6 ></OBJECT>
-----------------------------------------------------------------------------------
上下滚动条控件
<OBJECT id=UpDown1 classid=clsid:026371C0-1B7C-11CF-9D53-00AA003C9CB6 ></OBJECT>
------------------------------------------------------------------------------------------------------
日历控件
<OBJECT id=Calendar1 CLASSID="clsid:8E27C92B-1264-101C-8A2F-040224009C02" > </OBJECT>
------------------------------------------------------------------------------------------------------
<OBJECT classid=CLSID:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1 VIEWASTEXT>
</OBJECT>
---------------------------------------------------------------------------------------------------------
时间的，绝对经典。
<OBJECT class>
</object>
--------------------------------------------------------------------------------------------------
最小化
<object id=min class></OBJECT>
---------------------------------------------------------------------------------------------------------
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0 VIEWASTEXT></OBJECT>
<input type=button value=打开 onclick=document.all.WebBrowser.ExecWB(1,1)>
<input type=button value=另存为 onclick=document.all.WebBrowser.ExecWB(4,1)>
<input type=button value=全选 onclick=document.all.WebBrowser.ExecWB(17,1)>
<input type=button value=属性 onclick=document.all.WebBrowser.ExecWB(10,1)>
<input type=button value=关闭窗口 onclick=document.all.WebBrowser.ExecWB(45,1)>
<input type=button value=打印 onclick=document.all.WebBrowser.ExecWB(6,1)>
<input type=button value=直接打印 onclick=document.all.WebBrowser.ExecWB(6,6)>
<input type=button value=页面设置 onclick=document.all.WebBrowser.ExecWB(8,1)>
<input type=button value=打印预览 onclick=document.all.WebBrowser.ExecWB(7,1)>
<OBJECT id=button1 name=button1>
----------------------------------------------------------------------------------------------------------
<object id=oWMP class></object>
<SCRIPT language=VBScript>
<!--
'Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
-->
</SCRIPT>
有光驱的可以试试
-------------------------------------------------------------------------------------------------
<OBJECT class VIEWASTEXT>
</OBJECT>
ms页面小精灵，可以说英语滴。