网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文
运行环境:分辨率:1600x900 色深:32位 操作系统:Microsoft Windows XP 按键精灵版本:9.24.11390
@mlqqmv 2012/12/21
Sub 时间限制() Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "Get", "http://www.time.ac.cn/timeflash.asp?user=flash", False XmlHttp.send datetxt=XmlHttp.getResponseHeader("Date") Set XmlHttp = Nothing temdate = Split(datetxt, ",") tempvar = Replace(temdate(1), "GMT", "") temptim = Split(tempvar, " ") Select Case temptim(2) Case "Jan": mon = "01" Case "Feb": mon = "02" Case "Mar": mon = "03" Case "Apr": mon = "04" Case "Mar": mon = "05" Case "Jun": mon = "06" Case "Jul": mon = "07" Case "Aug": mon = "08" Case "Sep": mon = "09" Case "Oct": mon = "10" Case "Nov": mon = "11" Case "Dec": mon = "12" End Select timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4)) 网络时间 = DateAdd("h", 8, timeGMT) Do 时间 = "2012-12-17 21:58:49" Loop Until Len(时间) = 8 and DateDiff("s", now, 时间) > 0 or DateDiff("s", time, 时间) > 0 or Len(时间) = 19 and DateDiff("s", now, 时间) > 0 or DateDiff("s", time, 时间) > 0 If Len(时间) < 10 Then 时间 = date & " " & 时间 Do t = DateDiff("s", 网络时间, 时间) days = Int(t / 86400) t = t Mod 86400 hours = Int(t / 3600) t = t Mod 3600 minutes = Int(t / 60) t = t Mod 60 : w = Plugin.Sys.GetScRX() If days < 10 Then days = "0" & days 显示 = "倒计时:" & CStr(days) + "日" + Right("0" & CStr(hours), 2) + "时" + Right("0" & CStr(minutes), 2) + "分" + Right("0" & CStr(t), 2) + "秒" //显示方式,自行修改 Call Plugin.Msg.ShowScrTXT(w/2-92, 0, w, 768, 显示, "0000FF") Delay 1000 Loop Until DateDiff("s", now, 时间) < 0 MessageBox "时间到" ExitScript End Sub
- 上一篇: 按键精灵提取汉字拼音源码
- 下一篇: 按键精灵检测鼠标键盘有无操作
猜你喜欢
- 2020-06-25 手机群控框架,可自由灵活编辑功能
- 2019-03-25 按键精灵脚本源码 五开辅助战斗
- 2019-03-25 按键精灵脚本源码 奶德自动N
- 2019-03-25 按键精灵脚本源码 梦幻西游自动打怪
- 2019-03-25 按键精灵脚本源码 梦幻西游五开挂机
- 2019-03-25 按键精灵脚本源码 梦幻西游挂机感恩版v1.1
- 2019-03-25 按键精灵脚本源码 急速封妖1.2.2
- 2019-03-25 按键精灵脚本源码 火源小怪
- 2019-03-25 按键精灵脚本源码 董卓脚本
- 2019-03-25 按键精灵脚本源码 钓鱼智能版
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有9位网友发表了看法:
指针到文本 评论于 [2018-12-16 14:55:43] 回复
按键精灵如何设置使用时间
取消息代码 评论于 [2019-01-19 10:16:25] 回复
按键精灵时间限制
免积分资源下载 评论于 [2019-02-18 15:31:19] 回复
按键精灵时间限制
易语言源码网站 评论于 [2019-08-25 17:55:29] 回复
按键精灵限制源码
易语言教程下载 评论于 [2019-09-03 12:15:05] 回复
按键精灵时间限制代码
易语言TV 评论于 [2019-09-17 15:38:35] 回复
按键精灵 时间
易语言 评论于 [2020-08-19 17:15:10] 回复
按键精灵源码时间限制
源码资源库 评论于 [2021-05-06 14:40:38] 回复
按键精灵使用限制代码
资源分享 评论于 [2021-11-25 13:06:24] 回复
按键精灵倒计时代码