线程启动带有对象类型的子程序会提示对象创建失败

YJF

我用线程启动这个子程序时候，就提示出错。（子程序里使用了对象类型）

有没有办法解决呢。




下面是子程序源码。也是论坛下载的。
[e]
.版本 2
.支持库 spec

.子程序 限制软件时间
.局部变量 XmlHttp, 对象
.局部变量 datetxt, 文本型
.局部变量 temdate, 文本型, , "0"
.局部变量 tempvar, 文本型
.局部变量 temptim, 文本型, , "0"
.局部变量 Mon, 文本型
.局部变量 timeGMT, 日期时间型
.局部变量 GetNetTime, 日期时间型
.局部变量 ShiJian, 文本型
.局部变量 i, 整数型

处理事件 ()
程序_延时 (7000)
XmlHttp.创建 (“Microsoft.XMLHTTP”, )
' XmlHttp.查看 ()
.如果真 (XmlHttp.是否为空 () ＝ 真)
信息框 (“对象创建失败”, 0, )
返回 ()
.如果真结束
XmlHttp.方法 (“open”, “Get”, “Http://www.baidu.com”, 假)
处理事件 ()
XmlHttp.方法 (“send”, )
datetxt ＝ XmlHttp.文本方法 (“getResponseHeader”, “Date”)
XmlHttp.清除 ()
.如果 (datetxt ≠ “”)
temdate ＝ 分割文本 (datetxt, “,”, )
tempvar ＝ 子文本替换 (temdate [2], “GMT”, “”, , , 真)
temptim ＝ 分割文本 (tempvar, “ ”, )
' 调试输出 (temptim [1], temptim [2], temptim [3], temptim [4], temptim [5])
.判断开始 (temptim [3] ＝ “Jan”)
Mon ＝ “01”
.判断 (temptim [3] ＝ “Feb”)
Mon ＝ “02”
.判断 (temptim [3] ＝ “Mar”)
Mon ＝ “03”
.判断 (temptim [3] ＝ “Apr”)
Mon ＝ “04”
.判断 (temptim [3] ＝ “May”)
Mon ＝ “05”
.判断 (temptim [3] ＝ “Jun”)
Mon ＝ “06”
.判断 (temptim [3] ＝ “Jul”)
Mon ＝ “07”
.判断 (temptim [3] ＝ “Aug”)
Mon ＝ “08”
.判断 (temptim [3] ＝ “Sep”)
Mon ＝ “09”
.判断 (temptim [3] ＝ “Oct”)
Mon ＝ “10”
.判断 (temptim [3] ＝ “Nov”)
Mon ＝ “11”
.判断 (temptim [3] ＝ “Dec”)
Mon ＝ “12”
.默认

.判断结束
timeGMT ＝ 到时间 (temptim [4] ＋ “/” ＋ Mon ＋ “/” ＋ temptim [2] ＋ “/” ＋ temptim [5])
GetNetTime ＝ 增减时间 (timeGMT, #分钟, 8) ' //将获取到的时间转换为北京时间+8小时
ShiJian ＝ 到文本 (取年份 (GetNetTime)) ＋ 取文本右边 (“0” ＋ 到文本 (取月份 (GetNetTime)), 2) ＋ 取文本右边 (“0” ＋ 到文本 (取日 (GetNetTime)), 2) ＋ 取文本右边 (“0” ＋ 到文本 (取小时 (GetNetTime)), 2) ＋ 取文本右边 (“0” ＋ 到文本 (取分钟 (GetNetTime)), 2)
.如果 (到数值 (ShiJian) ＝ 189912300000)
提示框 (“没有连接网络或者系统日期时间不正确！”, #警告图标, “系统提示”, )
结束 ()
.否则
.如果 (到数值 (ShiJian) ＜ 201306012359)
延迟 (100)
.否则
提示框 (“软件已过期，请联系QQ：xxxx”, #信息图标, “系统提示”, )

结束 ()
.如果结束

.如果结束

.否则
提示框 (“没有连接网络或者系统日期时间不正确！”, #警告图标, “系统提示”, )
结束 ()

[/e]

默默`

[e]
.版本 2

线程_初始化COM库 ()
线程_取消COM库 ()
[/e]