.如果 (取文本左边 (State_Text, 3) = “200”)
超级列表框_网址存放表.置标题 (lvid, 2, “!成功!”)
.否则
超级列表框_网址存放表.置标题 (lvid, 2, “!失败!”)
.如果真 (Error = 10)
.如果真 (Error < 10)
.如果真 (Smtp.连接发信服务器 (编辑框_SMTP地址.内容, 到整数 (编辑框_SMTP端口.内容), 编辑框_SMTP用户名.内容, 编辑框_SMTP密码.内容))
Smtp.发送邮件 (编辑框_SMTP发件人名称.内容, 编辑框_SMTP接收邮箱.内容, “站点无法访问 - 来自WarHut的告知”, #html1 + “序号:” + 超级列表框_网址存放表.取标题 (lvid, 0) + “
网址:” + 超级列表框_网址存放表.取标题 (lvid, 1) + “
错误码:” + State_Text + #html2, 真)
Error = 1
上一篇 蓝奏云文件批量下载工具
下一篇 无名植物大战僵尸年度修改器修复版