Question

如何设定在某个时间段运行按键精灵

Answer 1

rem ok
Dim Y,Mon,D,W,h,m,s,SJ
//先声明变量
Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
//利用VBS函数获得当前系统的年,月,日,星期 并各自保存到变量中
h=Hour(time):m=Minute(time):s=Second(time)
//利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中
SJ= h & m & s
//把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中
If sj = 75610 Then 
//这里是判断时间是否是7:56分10秒
MessageBox sj
//这里是如果条件达成执行的代码
Else
End If
goto ok