商业源码 易语言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
如果真结束
子程序 _按钮注销_被单击
如果真 (按钮发送标题 ＝ “暂停发送”)
_按钮发送_被单击 ()
处理事件 ()
如果真结束
按钮注销禁止 ＝ 真
按钮登陆禁止 ＝ 假
按钮发送禁止 ＝ 真
断开发信服务器 ()
0条评论