|
发表于 2010-11-14 09:50:43
|
显示全部楼层
山东省菏泽市
.版本 2
.支持库 script
图 片框2.图 片 = 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
.子程序 _按钮2_被单击, , , 登陆
.局部变量 MD5, 文本型
.局部变量 登录数据, 文本型
脚本组件1.执行 (#md5)
MD5 = 脚本组件1.运行 (“md5_3”, 编辑框2.内容)
MD5 = 脚本组件1.运行 (“md5”, MD5 + 到大写 (编辑框3.内容))
登录数据 = 到文本 (彗星HTTP读文件 (“http://ptlogin2.qq.com/login”, “POST”, , , “u1=http%3A%2F%2Fimgcache.qq.com%2Fqzone%2Ftoolbar%2Floginsucc.html%3Fpara%3DblogComment&fp=loginerroralert&h=1&u=” + 编辑框1.内容 + “&p=” + MD5 + “&verifycode=” + 编辑框3.内容 + “&aid=15000101&from_ui=1”, ))
.如果 (寻找文本 (登录数据, “登陆成功”, , 假) > 0)
信息框 (“ ”, 0, )
_启动窗口.销毁 ()
.否则
信息框 (“密码或验证码输入错误”, #警告图标, “错误”)
图 片框2.图 片 = 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
编辑框3.内容 = “” |
|