|
发表于 2013-11-15 22:23:29
|
显示全部楼层
四川省广安市
.版本 2
.子程序 _按钮1_被单击
.局部变量 地址, 文本型
.局部变量 数据, 字节集
.局部变量 返回文本, 文本型
.局部变量 xsrf, 文本型
地址 = “http://www.zhihu.com/login”
返回文本 = 到文本 (网页_访问 (地址))
xsrf = 文本_取出中间文本 (返回文本, “_xsrf” + #引号 + “ value=” + #引号, #引号)
数据 = 到字节集 (“_xsrf=” + xsrf + “&email=” + 编辑框1.内容 + “&password=” + 编辑框2.内容 + “&rememberme=y&_xsrf=” + xsrf)
返回文本 = 编码_Utf8到Ansi (网页_访问 (地址, 1, , , 数据))
.如果 (寻找文本 (返回文本, “</i>我的主页”, , 假) ≠ -1)
信息框 (“登陆成功”, 0, )
.否则
信息框 (“登陆失败”, 0, )
[e]
.版本 2
.子程序 _按钮1_被单击
.局部变量 地址, 文本型
.局部变量 数据, 字节集
.局部变量 返回文本, 文本型
.局部变量 xsrf, 文本型
地址 = “http://www.zhihu.com/login”
返回文本 = 到文本 (网页_访问 (地址))
xsrf = 文本_取出中间文本 (返回文本, “_xsrf” + #引号 + “ value=” + #引号, #引号)
数据 = 到字节集 (“_xsrf=” + xsrf + “&email=” + 编辑框1.内容 + “&password=” + 编辑框2.内容 + “&rememberme=y&_xsrf=” + xsrf)
返回文本 = 编码_Utf8到Ansi (网页_访问 (地址, 1, , , 数据))
.如果 (寻找文本 (返回文本, “</i>我的主页”, , 假) ≠ -1)
信息框 (“登陆成功”, 0, )
.否则
信息框 (“登陆失败”, 0, )
[/e] |
|