前提是这个QQ的邮箱开通邮箱smtp服务.版本 2.支持库 internet.判断开始 (编辑框1.内容 = “”)
信息框 (“请输入QQ帐号!”, #信息图标, )
返回 ().判断 (编辑框2.内容 = “”)
信息框 (“请输入QQ密码!”, #信息图标, )
返回 ().默认.判断结束.如果 (连接发信服务器 (“smtp.qq.com”, 25, 编辑框1.内容, 编辑框2.内容, ) = 真)
信息框 (“登录成功 ”,, ).否则
信息框 (“登录失败”, #错误图标, )
返回 ()
|