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 classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1" name=fccrq width=145 height=22
updown="0">
<param name="CalendarTrailingForeColor" value="11184810">
<param name="CalendarTitleForeColor" value="15658734">
<param name="CalendarTitleBackColor" value="11141120">
<param name="CalendarForeColor" value="0">
<param name="CalendarBackColor" value="16777215">
<param name="format" value="0">
<param name="CurrentDate" value="<%=DateDiff("d","1899/12/31","2002/11/11")+1%>">
</object>
--------------------------------------------------------------------------------------------------
最小化
<object id=min classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Minimize"></object>
最大化
<object id=max classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Maximize"></object>
强制关闭
<OBJECT id=cle classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM NAME="Command" VALUE="Close"></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="min" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11" VIEWASTEXT><PARAM name="Command" value="Minimize"></OBJECT>
<input type=button value="Min" onclick="min.Click()">
<OBJECT id="max" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11" VIEWASTEXT><PARAM name="Command" value="Maximize"></OBJECT>
<input type=button value="Max/Restore" onclick="max.Click()" id=button1 name=button1>
----------------------------------------------------------------------------------------------------------
<object id=oWMP classid="clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6"></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 classid="clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F" id="Agent" CODEBASE="#VERSION=2,0,0,0" VIEWASTEXT>
</OBJECT>
<OBJECT classid="clsid:B8F2846E-CE36-11D0-AC83-00C04FD97575" id="TruVoice" CODEBASE="#VERSION=6,0,0,0" VIEWASTEXT>
</OBJECT>
ms页面小精灵，可以说英语滴。