易语言smtp发信服务器连接失败

自己的问题很是自己先解决，分享一下吧。

我出现这个问题是因为有些电脑为开启IIS服务。百度一下如何开启widows

iis就可以解决了。

另外注意的是：网路问题、服务器地址或端口错误、密码错误、邮箱未开启smtp功能。都可能造成这个问题。

你先把连接发信服务器写在调试输出里，看看是否成功

调试输出(连接发信服务器（,,,）)

如果成功就看看发信服务器的服务开没开通

再看看收信账号，是不是收到垃圾邮件里了

版本 2

支持库 xplib

支持库 internet

程序集 窗口程序集1

程序集变量 QQ集合, 整数型, , "0"

程序集变量 发送了多少, 整数型

程序集变量 端口, 整数型

子程序 __启动窗口_创建完毕

超级链接框1跳转 ()

置随机数种子 ()

_启动窗口背景音乐 ＝ 读入文件 (取运行目录 () ＋ “\背景音乐wav”)

编辑框发件状态加入文本 (“把自己喜欢的歌曲改名为 ‘背景音乐’ 放在根目录下就可以播放好听的背景音乐了 （只支持 wav 格式）” ＋ #换行符)

如果真 (文件是否存在 (取运行目录 () ＋ “\说明txt”) ＝ 假)

写到文件 (取运行目录 () ＋ “\说明txt”, #资源1)

如果真结束

如果真 (文件是否存在 (取运行目录 () ＋ “\主题ini”))

编辑框主题内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\主题ini”))

如果真结束

如果真 (文件是否存在 (取运行目录 () ＋ “\正文ini”))

编辑框正文内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\正文ini”))

如果真结束

如果真 (文件是否存在 (取运行目录 () ＋ “\用户名ini”))

编辑框用户名内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\用户名ini”))

如果真结束

如果真 (文件是否存在 (取运行目录 () ＋ “\服务器ini”))

组合框服务器内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\服务器ini”))

如果真结束

如果真 (文件是否存在 (取运行目录 () ＋ “\密码ini”))

编辑框密码内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\密码ini”))

如果真结束

如果真 (文件是否存在 (取运行目录 () ＋ “\发给几位数QQini”))

编辑框QQ位数内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\发给几位数QQini”))

如果真结束

如果真 (文件是否存在 (取运行目录 () ＋ “\发件人ini”))

编辑框发件人内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\发件人ini”))

如果真结束

XP风格 (1)

子程序 _按钮发送_被单击

判断开始 (单选框指定收件人选中 ＝ 真)

发件 ()

判断 (单选框随机收件人选中 ＝ 真)

判断开始 (时钟1时钟周期 ＝ 0)

时钟1时钟周期 ＝ 3000

按钮发送标题 ＝ “暂停发送”

单选框随机收件人禁止 ＝ 真

单选框指定收件人禁止 ＝ 真

判断 (时钟1时钟周期 ＝ 3000)

时钟1时钟周期 ＝ 0

按钮发送标题 ＝ “确认发送”

单选框随机收件人禁止 ＝ 假

单选框指定收件人禁止 ＝ 假

默认

判断结束

默认

判断结束

子程序 发件

局部变量 发送状态, 文本型

按钮发送禁止 ＝ 真

发送状态 ＝ 发送邮件 (编辑框主题内容, 编辑框正文内容, 编辑框收件人内容, , , 编辑框发件人内容, )

处理事件 ()

如果真 (发送状态 ≠ “”)

编辑框发件状态加入文本 (发送状态 ＋ #换行符)

按钮发送禁止 ＝ 假

返回 ()

如果真结束

编辑框发件状态加入文本 (编辑框收件人内容 ＋ “ 发送成功” ＋ #换行符)

发送了多少 ＝ 发送了多少 ＋ 1

标签发送了多少标题 ＝ 到文本 (发送了多少)

按钮发送禁止 ＝ 假

子程序 _单选框随机收件人_被单击

判断开始 (单选框指定收件人选中)

编辑框收件人禁止 ＝ 假

编辑框QQ位数禁止 ＝ 真

按钮导入禁止 ＝ 假

判断 (单选框随机收件人选中)

编辑框收件人禁止 ＝ 真

编辑框QQ位数禁止 ＝ 假

按钮导入禁止 ＝ 真

默认

判断结束

子程序 _单选框指定收件人_被单击

判断开始 (单选框指定收件人选中)

编辑框收件人禁止 ＝ 假

编辑框QQ位数禁止 ＝ 真

按钮导入禁止 ＝ 假

判断 (单选框随机收件人选中)

编辑框收件人禁止 ＝ 真

编辑框QQ位数禁止 ＝ 假

按钮导入禁止 ＝ 真

默认

判断结束

子程序 _时钟1_周期事件

局部变量 n1, 整数型

局部变量 QQ位数, 文本型, , "0"

局部变量 这次的QQ位数, 整数型

局部变量 QQ变量, 整数型

QQ位数 ＝ 分割文本 (编辑框QQ位数内容, “,”, )

如果真 (取数组成员数 (QQ位数) ＝ 0)

信息框 (“最少得取一个长度吧”, 0, )

返回 ()

如果真结束

这次的QQ位数 ＝ 取随机数 (1, 取数组成员数 (QQ位数))

编辑框收件人内容 ＝ “”

计次循环首 (到数值 (QQ位数 [这次的QQ位数]), )

编辑框收件人加入文本 (到文本 (取随机数 (0, 9)))

计次循环尾 ()

QQ变量 ＝ 到数值 (编辑框收件人内容)

计次循环首 (取数组成员数 (QQ集合), n1)

如果真 (QQ变量 ＝ QQ集合 [n1])

返回 ()

如果真结束

计次循环尾 ()

加入成员 (QQ集合, QQ变量)

编辑框收件人加入文本 (“@qqcom”)

处理事件 ()

发件 ()

子程序 _编辑框用户名_内容被改变

判断开始 (组合框服务器内容 ＝ “smtpqqcom”)

编辑框发件人内容 ＝ 编辑框用户名内容 ＋ “@qqcom”

判断 (组合框服务器内容 ＝ “smtp163com”)

编辑框发件人内容 ＝ 编辑框用户名内容

默认

判断结束

子程序 __启动窗口_位置被改变

如果真 (_启动窗口位置 ＝ 2)

_启动窗口可视 ＝ 假

置托盘图标 (_启动窗口图标, “QQ邮件随机发”)

如果真结束

子程序 __启动窗口_托盘事件

参数 操作类型, 整数型

判断开始 (操作类型 ＝ 2)

_启动窗口可视 ＝ 真

置托盘图标 ({ }, )

判断 (操作类型 ＝ 3)

弹出托盘菜单 (事件)

默认

判断结束

子程序 _退出_被选择

置托盘图标 ({ }, )

结束 ()

子程序 __启动窗口_可否被关闭, 逻辑型

如果 (信息框 (“是否关闭”, 36, ) ＝ #是钮)

返回 (真)

否则

返回 (假)

如果结束

子程序 _单选框1_被单击

子程序风格 ()

子程序 _单选框2_被单击

子程序风格 ()

子程序 _单选框3_被单击

子程序风格 ()

子程序 子程序风格

判断开始 (单选框1选中)

XP风格 (1)

判断 (单选框2选中)

XP风格 (2)

判断 (单选框3选中)

XP风格 (3)

默认

判断结束

子程序 _按钮保存_被单击

写到文件 (取运行目录 () ＋ “\主题ini”, 到字节集 (编辑框主题内容))

写到文件 (取运行目录 () ＋ “\正文ini”, 到字节集 (编辑框正文内容))

写到文件 (取运行目录 () ＋ “\用户名ini”, 到字节集 (编辑框用户名内容))

写到文件 (取运行目录 () ＋ “\服务器ini”, 到字节集 (组合框服务器内容))

写到文件 (取运行目录 () ＋ “\密码ini”, 到字节集 (编辑框密码内容))

写到文件 (取运行目录 () ＋ “\发给几位数QQini”, 到字节集 (编辑框QQ位数内容))

写到文件 (取运行目录 () ＋ “\发件人ini”, 到字节集 (编辑框发件人内容))

子程序 _按钮导入_被单击

如果真 (文件是否存在 (取运行目录 () ＋ “\收件人ini”))

编辑框收件人内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\收件人ini”))

返回 ()

如果真结束

编辑框发件状态加入文本 (“运行目下无配置文件 '收件人ini' 现已创建成功，请手动配置文件。” ＋ #换行符)

写到文件 (取运行目录 () ＋ “\收件人ini”, 到字节集 (“写入经常使用的的邮箱，邮箱与邮箱之间用逗号分隔” ＋ #左引号 ＋ “,” ＋ #右引号 ＋ “ 并删除此说明”))

子程序 _按钮登陆_被单击

端口 ＝ 到数值 (组合框端口内容)

如果 (连接发信服务器 (组合框服务器内容, 端口, 编辑框用户名内容, 编辑框密码内容, ) ＝ 假)

编辑框发件状态加入文本 (“连接服务器失败，请检查所使用的账号是否开启smtp服务” ＋ #换行符)

返回 ()

否则

按钮发送禁止 ＝ 假

按钮登陆禁止 ＝ 真

按钮注销禁止 ＝ 假

如果结束

子程序 _按钮插图_被单击

如果真 (通用对话框1打开 ())

编辑框附件路径内容 ＝ 通用对话框1文件名

添加附件数据 (读入文件 (通用对话框1文件名), 通用对话框1文件名)

如果真结束

子程序 _按钮清楚_被单击

清除所有附件 ()

编辑框附件路径内容 ＝ “”

子程序 _时钟2_周期事件

如果真 (按钮发送禁止 ＝ 真)

时钟1时钟周期 ＝ 0

如果真结束

如果真 (按钮发送禁止 ＝ 假 且 按钮发送标题 ＝ “暂停发送”)

时钟1时钟周期 ＝ 3000

如果真结束

子程序 _按钮注销_被单击

如果真 (按钮发送标题 ＝ “暂停发送”)

_按钮发送_被单击 ()

处理事件 ()

如果真结束

按钮注销禁止 ＝ 真

按钮登陆禁止 ＝ 假

按钮发送禁止 ＝ 真

断开发信服务器 ()