转换程易语言代码，不长

小魔柒

1. Sub 时间限制
   
2. VBSBegin
   
3. ' //获取百度原始时间
   
4. Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
   
5. XmlHttp.Open "Get", "http://www.baidu.com/", False
   
6. XmlHttp.send
   
7. datetxt=XmlHttp.getResponseHeader("Date")
   
8. Set XmlHttp = Nothing
   
9. ' //将获取到的原始时间进行格式化 2010年03月11日 03:09:52
   
10. temdate = Split(datetxt, ",")
    
11. tempvar = Replace(temdate(1), "GMT", "")
    
12. temptim = Split(tempvar, " ")
    
13. Select Case temptim(2)
    
14. Case "Jan":
    
15. mon = "01"
    
16. Case "Feb":
    
17. mon = "02"
    
18. Case "Mar":
    
19. mon = "03"
    
20. Case "Apr":
    
21. mon = "04"
    
22. Case "May":
    
23. mon = "05"
    
24. Case "Jun":
    
25. mon = "06"
    
26. Case "Jul":
    
27. mon = "07"
    
28. Case "Aug":
    
29. mon = "08"
    
30. Case "Sep":
    
31. mon = "09"
    
32. Case "Oct":
    
33. mon = "10"
    
34. Case "Nov":
    
35. mon = "11"
    
36. Case "Dec":
    
37. mon = "12"
    
38. End Select
    
39. '//将获取到的时间转换为北京时间+8小时
    
40. timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
    
41. GetNetTime = DateAdd("h",8, timeGMT)
    
42. VBSEnd
    
43. ShiJian = (Year(GetNetTime) & Right("0" & Month(GetNetTime),2) & Right("0" & Day(GetNetTime),2) & Right("0" & Hour(GetNetTime),2) & Right("0" & Minute(GetNetTime),2))
    
44. If ShiJian=189912300000
    
45. MessageBox "没有连接网络或者系统日期时间不正确！！"
    
46. EndScript
    
47. //以下数字就是脚本到期时间
    
48. ElseIf ShiJian<201205240900
    
49. Delay 100
    
50. Else
    
51. MessageBox "试用期已过，谢谢！"
    
52. EndScript
    
53. End If
    
54. End sub

复制代码

这段代码麻烦帮我转成易语言的啊。。
不胜感激..!!
有了这段代码，也能做更多事情了。。
相信你很多人需要。小弟先谢过！！

萧阳天

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _限制软件时间
   
5. .局部变量 XmlHttp, 对象
   
6. .局部变量 datetxt, 文本型
   
7. .局部变量 temdate, 文本型, , "0"
   
8. .局部变量 tempvar, 文本型
   
9. .局部变量 temptim, 文本型, , "0"
   
10. .局部变量 Mon, 文本型
    
11. .局部变量 timeGMT, 日期时间型
    
12. .局部变量 GetNetTime, 日期时间型
    
13. .局部变量 ShiJian, 文本型
    
14. .局部变量 i, 整数型
    
15. 
    
16. 处理事件 ()
    
17. XmlHttp.创建 (“Microsoft.XMLHTTP”, )
    
18. ' XmlHttp.查看 ()
    
19. .如果真 (XmlHttp.是否为空 () ＝ 真)
    
20.     信息框 (“对象创建失败”, 0, )
    
21.     返回 ()
    
22. .如果真结束
    
23. XmlHttp.方法 (“open”, “Get”, “Http://www.baidu.com”, 假)
    
24. 处理事件 ()
    
25. XmlHttp.方法 (“send”, )
    
26. datetxt ＝ XmlHttp.文本方法 (“getResponseHeader”, “Date”)
    
27. XmlHttp.清除 ()
    
28. .如果 (datetxt ≠ “”)
    
29.     temdate ＝ 分割文本 (datetxt, “,”, )
    
30.     tempvar ＝ 子文本替换 (temdate [2], “GMT”, “”, , , 真)
    
31.     temptim ＝ 分割文本 (tempvar, “ ”, )
    
32.     调试输出 (temptim [1], temptim [2], temptim [3], temptim [4], temptim [5])
    
33.     .判断开始 (temptim [3] ＝ “Jan”)
    
34.         Mon ＝ “01”
    
35.     .判断 (temptim [3] ＝ “Feb”)
    
36.         Mon ＝ “02”
    
37.     .判断 (temptim [3] ＝ “Mar”)
    
38.         Mon ＝ “03”
    
39.     .判断 (temptim [3] ＝ “Apr”)
    
40.         Mon ＝ “04”
    
41.     .判断 (temptim [3] ＝ “May”)
    
42.         Mon ＝ “05”
    
43.     .判断 (temptim [3] ＝ “Jun”)
    
44.         Mon ＝ “06”
    
45.     .判断 (temptim [3] ＝ “Jul”)
    
46.         Mon ＝ “07”
    
47.     .判断 (temptim [3] ＝ “Aug”)
    
48.         Mon ＝ “08”
    
49.     .判断 (temptim [3] ＝ “Sep”)
    
50.         Mon ＝ “09”
    
51.     .判断 (temptim [3] ＝ “Oct”)
    
52.         Mon ＝ “10”
    
53.     .判断 (temptim [3] ＝ “Nov”)
    
54.         Mon ＝ “11”
    
55.     .判断 (temptim [3] ＝ “Dec”)
    
56.         Mon ＝ “12”
    
57.     .默认
    
58. 
    
59.     .判断结束
    
60.     timeGMT ＝ 到时间 (temptim [4] ＋ “/” ＋ Mon ＋ “/” ＋ temptim [2] ＋ “/” ＋ temptim [5])
    
61.     GetNetTime ＝ 增减时间 (timeGMT, #分钟, 8)  ' //将获取到的时间转换为北京时间+8小时
    
62.     ShiJian ＝ 到文本 (取年份 (GetNetTime)) ＋ 取文本右边 (“0” ＋ 到文本 (取月份 (GetNetTime)), 2) ＋ 取文本右边 (“0” ＋ 到文本 (取日 (GetNetTime)), 2) ＋ 取文本右边 (“0” ＋ 到文本 (取小时 (GetNetTime)), 2) ＋ 取文本右边 (“0” ＋ 到文本 (取分钟 (GetNetTime)), 2)
    
63.     .如果 (到数值 (ShiJian) ＝ 189912300000)
    
64.         信息框 (“没有连接网络或者系统日期时间不正确！！”, 0, )
    
65.     .否则
    
66.         .如果 (到数值 (ShiJian) ＜ 201205250900)
    
67.             ' 延迟 (100)
    
68.         .否则
    
69.             信息框 (“试用期已过，谢谢！”, 0, )
    
70.         .如果结束
    
71. 
    
72.     .如果结束
    
73. 
    
74. .否则
    
75.     信息框 (“获取服务器时间失败”, 0, )
    
76. .如果结束
    
77. 
    
78. 
    

复制代码

源码：http://www.3600gz.cn/thread-127950-1-1.html

紅顏じ亦沉淪ジ

你这是干嘛用的？

小魔柒

紅顏じ亦沉淪ジ 发表于 2012-9-13 11:20
你这是干嘛用的？

做一个小软件，打算收费
做成时间限制的。这个是网络时间
相对直接获取本地时间要安全点

拜托了！

紅顏じ亦沉淪ジ

小魔柒 发表于 2012-9-13 11:26
做一个小软件，打算收费
做成时间限制的。这个是网络时间
相对直接获取本地时间要安全点

额。。。用百度查时间，然后取网页源码

429366133 联系一下我

紅顏じ亦沉淪ジ

<div>北京标准时间：(.*)&nbsp;&nbsp;<strong>(\d*):(\d*):(\d*)</strong></div>
第一个字文本是日期
第二个是小时
第三个是分
第四个是秒

用正则.创建（）来搜索http://www.soso.com/q?ie=utf-8&oe=utf-8&w=北京时间&cid=qb.dzl这个网页的内容