按键精灵获取文件修改时间并输出文本

按键精灵自带函数实现不了的事可以借用VB代码实现，如下：

Set fso=CreateObject("ScriptingFileSystemObject")

getfso=fsoGetFile("d:\新建 文本文档txt")DateLastModified

//MessageBox Replace(getfso,":","-")//重命名不支持两点:，就把两点改为-

Call PluginFileReNameFile("d:\新建 文本文档txt","d:\"&Replace(getfso,":","-")&"txt")

时 = Hour(now) & "时" 分 = Minute(now) //获取到分钟后先对变量“分”进行加减 分 =分+40 //运算后再和字符串连接 输出即可 分 = 分 & "分" Delay 400 SayString 时 Delay 100 SayString 分 复制上面的代码到按键精灵里面即可，

Dim 当前时间

当前时间 = Now

//星期天→星期六 = 1-7

Select Case Weekday(当前时间)

Case 1, 7

    TracePrint "周末"

Case 3, 4, 5, 6

    TracePrint "周二到周四"

Case 2

    TracePrint "周一"

    If 23 >= Hour(当前时间) >= 10 Then 

        TracePrint "周一指定时段"

    Else 

        TracePrint "非指定时段"

    End If

End Select

//制作:法科按键

//时间:2017-10-08

这是按键精灵生成的脚本源文件在理解各条命令的基础上，您可以修改这个文件的内容您修改的结果将会在普通视图上有所反映UserVar ShuChuFangShi=2 获取到时间之后的输出方式。1是d对话框，适合平时看时间；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 //最后d出个窗口 显示当前的系统时间（变量SJ） MessageBox SJEndIf If ShuChuFangShi=2 //最后d出个窗口 显示当前的系统时间（变量SJ） VBSCall RunApp("notepad") SayString SJ Gosub 全选 Gosub 复制EndIf EndScript Sub 全选 KeyDown 17,1 KeyPress 65,1 KeyUp 17,1 Return Sub 复制 KeyDown 17,1 KeyPress 67,1 KeyUp 17,1 Return你试试看行不行吧

Dim 小时

Dim 网络时间

网络时间 = Lib网络获取网络时间()

TracePrint 网络时间

小时 = mid(网络时间, 12, 2)

TracePrint 小时

年月日分秒自己类推,mid函数自己查用法就知道了

以上就是关于按键精灵获取文件修改时间并输出文本全部的内容，包括:按键精灵获取文件修改时间并输出文本、求助，手机按键精灵怎么获取当前日期时间并输入代码、按键精灵获取当前时间段，如等于则开始脚本。 比如获取当前为星期一等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！