password.vbs

<SCRIPT LANGUAGE="VBScript">
Function a()
'在本地（客户端）设置登陆本网页的密码。
'还有如何设置浏览器的设置等，请高手多多指教。
'本代码还可以进行人性化的改进，有意见请与我联系。
'made by correy
'made at 2010.06.05
'QQ:112426112
'Email:leguanyuan@126.com
'Websites:http://correy.webs.com
password = InputBox("本网页受限登陆，密码就在你电脑上，有本事你破解，请输入密码：") 
out=strcomp(password,"correy",1)
if out then
msgbox ("密码错误！请从新输入。") 
a
end if
End Function
Set Window.Onload = a
</SCRIPT>