现在,按键精灵中,自带的意见获取系统时间功能是可以将 系统时间 在自动弹出一个对话框中显示,
可是我需要的是系统时间,在剪切版中,我复制到其他地方,该如何操作?
源文件如下:
UserVar ShuChuFangShi=2 获取到时间之后的输出方式。1是弹对话框,适合平时看时间;2是文本输出,适合网游里使用
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=Y&"年"&Mon&"月"&D&"号 "&"星期"&W&" "&h&"点"&m&"分"&s&"秒"
//把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中
If ShuChuFangShi=1
//最后弹出个窗口 显示当前的系统时间(变量SJ)
MessageBox SJ
EndIf
If ShuChuFangShi=2
//最后弹出个窗口 显示当前的系统时间(变量SJ)
MessageBox sj
EndIf