[backcolor=rgb(0, 255, 255)]下图为按键自带效果
- 您所在的用户组无法下载或查看附件
[backcolor=rgb(0, 255, 255)]下图为修改后效果
- 您所在的用户组无法下载或查看附件
迷迷糊糊过了好久,身边同期的人,渐渐默默离开,越来越感觉形单影只。
最近论坛讨论获取网络时间风风火火,都是被迫的。
此帖送给我同时候,那批人,那时已经有了解决方法,只可惜大部分人都固步自封,不愿意分享,导致现在,感觉又讨论回去了
[backcolor=rgb(0, 255, 255)]2013年解决方法
- MessageBox Lib.网络.获得网页源文件("http://cgi.im.qq.com/cgi-bin/cgi_svrtime")
复制代码[backcolor=rgb(0, 255, 255)]存在问题
仅第一次获取正常,之后获取网络时间不变
[backcolor=rgb(0, 255, 255)]解决方案
- Call Plugin.Web.ClearTemp()
- MessageBox Lib.网络.获得网页源文件("http://cgi.im.qq.com/cgi-bin/cgi_svrtime")
复制代码 [backcolor=rgb(0, 255, 255)]总结(命令库修正,即图2效果)- Function 时间获取()
- Call Plugin.Web.ClearTemp()
- xmlUrl = "http://cgi.im.qq.com/cgi-bin/cgi_svrtime"
- Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
- xmlHttp.Open "Get", xmlUrl, False
- xmlHttp.Send
- xmlBody = xmlHttp.ResponseBody
- Set xmlHttp = Nothing
- 获得网页源文件 = ""
- If Len(xmlBody) = 0 Then Exit Function
- Set ObjStream = CreateObject("Adodb.Stream")
- With ObjStream
- .Type = 1
- .Mode = 3
- .Open
- .Write xmlBody
- .Position = 0
- .Type = 2
- .Charset = "GB2312"
- BytesToBstr = .ReadText
- .Close
- End With
- Set ObjStream = Nothing
- 时间获取 = BytesToBstr
- End Function
复制代码