网站状态是否正常的监控软件

.如果 (取文本左边 (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