7. Microsoft Online-Crash Control, version 6.0(微软在线崩溃控件)


答案：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">  
<HTML>  
<HEAD>  
<TITLE> Microsoft Slider Control, version 6.0 </TITLE>  
</HEAD>  

<BODY onload="init()">  
当前值：<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>  
</BODY>  
</HTML> 

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

泣红亭：因这控件有危害性（我也中招了。。）。。就不让它能立即运行了。。maya不厚道啊。。。
7.Microsoft TreeView Control, version 6.0 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">  
<HTML>  
<HEAD>  
<TITLE> Microsoft TreeView Control, version 6.0 </TITLE>  
</HEAD>  

<BODY onload="init()">  
当前节点:<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>  
</BODY>  
</HTML>

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

8.ScriptControl Object 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">  
<HTML>  
<HEAD>  
<TITLE> ScriptControl Object </TITLE>  
</HEAD>  

<BODY>  
<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  

  
  
  

  

  


  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

9.System Monitor Control 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">  
<HTML>  
<HEAD>  
<TITLE> System Monitor Control </TITLE>  
</HEAD>  

<BODY>  
<OBJECT ID="Sys" WIDTH="600" HEIGHT="400" CLASSID="CLSID:C4D2D8E0-D1DD-11CE-940F-008029004347">  
</OBJECT>  
</BODY>  
</HTML>

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

10.Microsoft SysInfo Control, version 6.0 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">  
<HTML>  
<HEAD>  
<TITLE> Microsoft SysInfo Control, version 6.0 </TITLE>  
</HEAD>  

<BODY onload="init()">  
<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>  
</BODY>  
</HTML>

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

11.ProgView Class 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">  
<HTML>  
<HEAD>  
<TITLE> ProgView Class </TITLE>  
</HEAD>  

<BODY>  
<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>  
</BODY>  
</HTML>

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
上一个：用javascript实现页内搜索的脚本代码
下一个：用javascript判断输入数据是否货币并自动添加￥符号的代码
更多图片编程知识: