写的一个程序 到时间自动结束

SmallSung

RT

先取网络时间
再去我写的到期时间
地址是“http://www.smallsung.com/vipguanli.htm”
文本_取中间文本 (c, 用户名.内容 ＋ “过期时间：”, “/”)
过期时间取完的格式是：
例如：2012年12月31日23时59分59秒   取到这个时间
用网络时间（换算成秒）减去过期时间
算出来例如 1000秒
然后时钟结束程序
主要我就是时间换算弄不明白
请大家帮助一下


                .如果 (使用权限 ＝ “VIP用户”)
                    编辑框1.加入文本 (“欢迎你回来VIP用户：” ＋ 用户名.内容 ＋ “...” ＋ #换行符)
                    c ＝ HTTP.读网页 (“http://www.smallsung.com/vipguanli.htm”)
                    d ＝ 文本_取中间文本 (c, 用户名.内容 ＋ “过期时间：”, “/”)
                    编辑框1.加入文本 (“您的VIP权限将在” ＋ d ＋ “过期” ＋ #换行符)
之后是上面说的内容
              

Cand

1. .版本 2
   
2. .支持库 internet
   
3. .支持库 spec
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. .局部变量 网络时间, 文本型
   
7. .局部变量 现在时间, 文本型
   
8. .局部变量 到期时间, 文本型
   
9. .局部变量 到期时间数组, 文本型, , "0"
   
10. .局部变量 现在时间数组, 文本型, , "0"
    
11. .局部变量 正则, 正则表达式类
    
12. .局部变量 i, 整数型
    
13. .局部变量 剩余年, 整数型
    
14. .局部变量 剩余月, 整数型
    
15. .局部变量 剩余日, 整数型
    
16. .局部变量 剩余时, 整数型
    
17. .局部变量 剩余分, 整数型
    
18. .局部变量 剩余秒, 整数型
    
19. 
    
20. 网络时间 ＝ 到文本 (HTTP读文件 (“http://www.soso.com/q?pid=s.idx&cid=s.idx.se&w=%B1%B1%BE%A9%CA%B1%BC%E4”))
    
21. 现在时间 ＝ 取文本中间 (网络时间, 寻找文本 (网络时间, “<div>北京标准时间：”, , 假) ＋ 取文本长度 (“<div>北京标准时间：”), 取文本长度 (“2012年05月05日&nbsp;&nbsp;<strong>18:48:26”))
    
22. 到期时间 ＝ 到文本 (HTTP读文件 (“http://www.smallsung.com/vipguanli.htm”))
    
23. 
    
24. 
    
25. 正则.创建 (“[0-9]{2,4}”, 现在时间, , , )
    
26. .计次循环首 (正则.取匹配数量 (), i)
    
27.     加入成员 (现在时间数组, 正则.取匹配文本 (i, ))
    
28. .计次循环尾 ()
    
29. 
    
30. 正则.创建 (“[0-9]{2,4}”, 到期时间, , , )
    
31. .计次循环首 (正则.取匹配数量 (), i)
    
32.     加入成员 (到期时间数组, 正则.取匹配文本 (i, ))
    
33. .计次循环尾 ()
    
34. 
    
35. 剩余年 ＝ 到整数 (到期时间数组 [1]) － 到整数 (现在时间数组 [1])
    
36. 剩余月 ＝ 到整数 (到期时间数组 [2]) － 到整数 (现在时间数组 [2])
    
37. 剩余日 ＝ 到整数 (到期时间数组 [3]) － 到整数 (现在时间数组 [3])
    
38. 剩余时 ＝ 到整数 (到期时间数组 [4]) － 到整数 (现在时间数组 [4])
    
39. 剩余分 ＝ 到整数 (到期时间数组 [5]) － 到整数 (现在时间数组 [5])
    
40. 剩余秒 ＝ 到整数 (到期时间数组 [6]) － 到整数 (现在时间数组 [6])
    
41. 调试输出 (剩余年)
    
42. 调试输出 (剩余月)
    
43. 调试输出 (剩余日)
    
44. 调试输出 (剩余时)
    
45. 调试输出 (剩余分)
    
46. 调试输出 (剩余秒)
    

复制代码

SmallSung

{:3_226:}我时间弄不明白。。。。。。。。。。。。。。

Cand

我来了 不许强

Robust

直接换算成一串数字不就得了

SmallSung

Sunshines 发表于 2012-5-5 18:18
直接换算成一串数字不就得了

我弄不明白才来问的 你说的好简单{:3_245:}

Cand

其实  那个时钟组建  我可以给你说说

Cand

我尝试这做一个 双访问的  访问北京时间   的
这样改了本地时间 就不能运行了

Robust

SmallSung 发表于 2012-5-5 18:20
我弄不明白才来问的 你说的好简单

一个命令：到整数

SmallSung

尼玛呀 咋办呐呀{:3_229:}