• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.1
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:2.5
软件大小:181M
更新时间:05-20

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[分享源码] 时间限制脚本运行 [复制链接]

1#
最近有好几个朋友提到脚本运行怎么限制时间.难道现在百度找不到吗?我把自己以前用的发出来给大家,看看有没有需要
VBSBegin
' //获取原始时间
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "Get", "http://tools.2345.com/timebj/?xllx", False
XmlHttp.send
datetxt=XmlHttp.getResponseHeader("Date")
Set XmlHttp = Nothing
' //将获取到的原始时间进行格式化 2010年03月11日 03:09:52
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
'//将获取到的时间转换为北京时间+8小时
timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
GetNetTime = DateAdd("h",8, timeGMT)
VBSEnd
ShiJian = (Year(GetNetTime) & Right("0" & Month(GetNetTime),2) & Right("0" & Day(GetNetTime),2) & Right("0" & Hour(GetNetTime),2) & Right("0" & Minute(GetNetTime),2))
If ShiJian=201010101234
MessageBox "没有连接网络或者系统日期时间不正确!!"
EndScript
//以下数字就是脚本到期时间
ElseIf ShiJian<201612312359
//继续运行脚本

Else
MessageBox "使用时间已到!"
EndScript
End If

2#

膜拜

3#

看看以前的

4#

学习学习

5#

:时间限制脚本运行修

6#

看看 time 怎么处理

7#

学习学习

8#

看看看找好久

9#

學習~

10#

看看怎么写

11#

看看楼主隐藏了什么

12#

学习

13#

定时定时定时定时定时定时

14#

学习学习

15#

看看看找好久

16#

看一下是不是最优的方法

17#

学习看卡,烙铁没毛病

18#

谢谢分享

19#

看帖必回

20#

正在做时间限制的脚本,学习一下

发新话题 回复该主题