当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 海阳顶端网进百度blog必须输入密码的vbscript代码

VBScript
一个实现VBS倒计时的代码
用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
用vb和vbs 破解flashxp的密码的代码
用VBS实现的批量gb2312转utf-8,支持拖动
用vbs实现的XP序列号替换器
VBS可以做什么的简单说明
用vbs实现cmd功能的代码
VBS基础编程教程 (第1篇)
VBS基础编程教程 (第3篇)
VBS基础编程教程 (第4篇)
VBS基础编程教程 (第5篇)
VBS基础编程教程 (第6篇)
利用vbscript的for命令实现定时关机
在桌面右下角出现温馨提示的vbs冒泡程序
利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码
vbs教程 chm下载
用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
输入mdb数据库即可将打包的mdb文件解包
VBS编程教程第一部
vbs脚本 加密 几个小细节小结下

VBScript 中的 海阳顶端网进百度blog必须输入密码的vbscript代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 99 ::
收藏到网摘: n/a

要看懂下面的代码,需要了解下面的函数
vbscript strreverse 函数
返回字符串,此字符串与指定字符串顺序相反。
strreverse(string1)
string1 参数是要进行字符反向的字符串。如果 string1 是零长度字符串 (""),则返回零长度字符串。如果 string1 为 null,则会出现错误。
说明
下面的示例利用 strreverse 函数返回按相反顺序排列的字符串:
dim mystr
mystr = strreverse("vbscript") 'mystr 包含 "tpircsbv"。

复制代码 代码如下:

<script language=vbs>
function pass()
input=inputbox("请输入密码:","hello",,300,300)
if input=StrReverse("why?") then
location.href=StrReverse("tpircsbvym/moc.udiab.ih//:ptth")
else
MsgBox "error"
location.href=window.location.href
end if
end function
</script>

下面我们分析下上面的vbs代码,高手飘过吧
if input=StrReverse("why?") then 密码就是why?字符的反转,即密码为:"?yhw"