<title> Microsoft Slider Control, version 6.0 </title> 当前值：<input type="text" id="currentValue"> <input type="button" value="设值" onclick="setValue()"><br> 最大值：<input type="text" id="maxValue"> <input type="button" value="设值" onclick="setMax()"><br> <object id="Slider" width="300" classid="CLSID:F08DF954-8592-11D1-B16A-00C0F0283628"> </object> <script language="JavaScript"> <!-- function init(){ currentValue.value=0; Slider.max=50000000; maxValue.value=Slider.max; } function setValue(){ Slider.value=currentValue.value; } function setMax(){ Slider.max=maxValue.value; } //--> </script> <script language="JavaScript" for="Slider" event="Scroll"> <!-- currentValue.value=Slider.value; //--> </script> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 泣红亭：因这控件有危害性（我也中招了。。）。。就不让它能立即运行了。。maya不厚道啊。。。7.Microsoft TreeView Control, version 6.0 <title> Microsoft TreeView Control, version 6.0 </title> 当前节点:<input type="text" id="caption"> <input type="button" value="删除" onclick="delItem()"> <br> <input type="text" id="strNode"><input type="button" value="添加节点" onclick="addItem()"> <hr> <object id="TreeView" width="600" height="400" classid="CLSID:C74190B6-8589-11D1-B16A-00C0F0283628"> </object> <script language="JavaScript"> <!-- function init(){ TreeView.LineStyle = 1; TreeView.Style = 7; } //--> </script> <script language="JavaScript" for="TreeView" event="Click"> <!-- if (TreeView.Nodes.Count > 0){ index = TreeView.SelectedItem.index; caption.value = TreeView.SelectedItem.Text; } //--> </script> <script language="VBScript"> <!-- Dim index Dim strNodeText Dim strCaption Sub addItem() On Error Resume Next strNodeText = strNode.value strCaption = caption.value If Len(strNodeText)=0 Then Exit Sub If Len(caption.value)>0 Then TreeView.Nodes.Add index, 4, , strNodeText Else TreeView.Nodes.Add , 0, ,strNodeText End If End Sub Sub delItem() On Error Resume Next If Len(strCaption)>0 Then TreeView.Nodes.Remove index End if End Sub //--> </script> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 8.ScriptControl Object <title> ScriptControl Object </title> <textarea id="Content" rows="20" cols="50"> Const Name = "Anbert" Sub Test() Dim strTest strTest = Replace("你好,世界!" & vbCrlf & "我是$name。", "$name", Name) MsgBox strTest,64,"Just Test it" End Sub <!-- function runCode(){ SC.Language = "VBScript"; SC.AllowUI = true; SC.AddCode (Content.value); SC.Run ("Test"); } //--> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 9.System Monitor Control <title> System Monitor Control </title> <object id="Sys" width="600" height="400" classid="CLSID:C4D2D8E0-D1DD-11CE-940F-008029004347"> </object> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 10.Microsoft SysInfo Control, version 6.0 <title> Microsoft SysInfo Control, version 6.0 </title> <object id="SysInfo" classid="CLSID:6FBA474B-43AC-11CE-9A0E-00AA0062BB4C"> </object> <script language="JavaScript"> <!-- function init(){ var ACStatus = SysInfo.ACStatus; var BatteryFullTime = SysInfo.BatteryFullTime; var BatteryLifePercent = SysInfo.BatteryLifePercent; var BatteryLifeTime = SysInfo.BatteryLifeTime; var BatteryStatus = SysInfo.BatteryStatus; var OSBuild = SysInfo.OSBuild; var OSPlatform = SysInfo.OSPlatform; var OSVersion = SysInfo.OSVersion; var strRes; strRes = "你的电脑当前使用"; if(ACStatus==1){ strRes += "直流电源,"; }else{ strRes += "电池,"; strRes += "电池续航时间:$mm分钟, ".replace("$mm",BatteryFullTime/60); strRes += "电池剩余使用时间:$mm分钟, ".replace("$mm",BatteryLifeTime/60); } strRes += " "+"操作系统为 " if (OSPlatform==1) { strRes += "windows95/98/ME,"; }else if(OSPlatform==2){ strRes += "windowsNT/2000/xp/2003,"; } strRes += "版本号为 "+OSBuild+"."+OSVersion; document.write(strRes); } //--> </script> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 11.ProgView Class <title> ProgView Class </title> <div id="tip" style="color:red;">waiting........</div> <object id="ProgView" width="400" height="400" classid="CLSID:B9B7D40C-0C41-4EAF-B0B5-6B41378C7F48"> </object> <script language="JavaScript" for="ProgView" event="ProgramListReady"> <!-- tip.innerText=""; //--> </script> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
