易语言 数组成员引用下标超出定义范围

jwqih1

版本 2
.支持库 internet

.子程序 软件时间验证, 逻辑型, , 成功返回真，失败返回假。
.局部变量 年月日, 文本型
.局部变量 小时, 文本型
.局部变量 分钟, 文本型
.局部变量 秒, 文本型
.局部变量 软件到期时间, 日期时间型
.局部变量 现在时间, 日期时间型
.局部变量 到期时间, 文本型
.局部变量 网页文本, 文本型
.局部变量 临时文本, 文本型
.局部变量 所需文本, 文本型, , "0"
.局部变量 中间时间, 文本型, , "0"

到期时间 ＝ “2010年11月17日23时38分20秒”
软件到期时间 ＝ 到时间 (到期时间)  ' 软件使用到期日期
网页文本 ＝ 到文本 (HTTP读文件 (“http://www.time.ac.cn/stime.asp”))  ' 这是国家授时中心网络服务器时间发布网站
所需文本 ＝ 分割文本 (网页文本, “服务器时间:”, )  ' 将取回的文本分割，因为我们需要的网络时间在其后面
' 如果真 (取数组成员数 (所需文本) ＜ 2)  ' 判断是否取回所需数据 -
' 信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
' 返回 ()
临时文本 ＝ 所需文本 [2]
所需文本 ＝ 分割文本 (临时文本, “document.write('”, )
中间时间 ＝ 分割文本 (所需文本 [3], “')”, )
年月日 ＝ 中间时间 [1]  ' 取出年/月/日
临时文本 ＝ 所需文本 [6]
所需文本 ＝ 分割文本 (临时文本, “var hrs = ”, )
临时文本 ＝ 所需文本 [2]
中间时间 ＝ 分割文本 (临时文本, “;”, )
小时 ＝ 中间时间 [1]  ' 取出小时
所需文本 ＝ 分割文本 (临时文本, “var min = ”, )
临时文本 ＝ 所需文本 [2]
中间时间 ＝ 分割文本 (临时文本, “;”, )
分钟 ＝ 中间时间 [1]  ' 取出分钟
所需文本 ＝ 分割文本 (临时文本, “var sec = ”, )
临时文本 ＝ 所需文本 [2]
中间时间 ＝ 分割文本 (临时文本, “;”, )
秒 ＝ 中间时间 [1]  ' 取出秒

现在时间 ＝ 到时间 (年月日 ＋ 小时 ＋ 分钟 ＋ 秒)

.如果 (现在时间 ＜ 软件到期时间)

    返回 (真)
.否则
    ' 信息框 (“您的软件已过期!”, 0, “过期提示：”)
    返回 (假)



这个子程序调用的时候出现，易语言 数组成员引用下标超出定义范围， 谁帮忙解决下

airpppp

那个网页取不出时间时,"所需文本"数组为0
所需文本 [2],数组自然就出错了

jwqih1

原来是取不到时间啊。