按键精灵 以时间命名文件夹 创建文件 写入文件 和截图
// ----------创建一个 时间命名的文件夹 系统时间=now 年=Year(系统时间) 月=Month(系统时间) 天=Day(系统时间) 时=hour(系统时间) 分=Minute(系统时间) 秒 = Second(系统时间) 夹名 = 年 & "-" & 月 & "-" & 天 文件名=年&"-"&月&"-"&天&"一"&时&"点"&分&"分钟"&秒&"秒" // ----------创建一个 时间命名的文件夹 Call Plugin.File.CreateFolder("D:\" & 夹名) // ----------创建一个 时间命名的文件夹----在里面放一个以时间为名的文本 //Set fso = CreateObject("Scripting.FileSystemObject") //Set a = fso.createtextfile("D:\" & 夹名 & "\" & 文件名 & ".txt", True) wen ="D:\" & 夹名 & "\" & 文件名 & ".txt" TracePrint wen fileLen=Plugin.File.GetFileLength(wen) handle = Plugin.File.OpenFile(wen) Call Plugin.Msg.Tips("文件长度是:" & fileLen) Delay 4000 Call Plugin.File.SeekFile(handle,fileLen) Call Plugin.File.WriteFile(handle,"我很好奇为什么创建好的就不能写入,不创建就行了,没有这个文件的时候自动创建") Call Plugin.File.WriteLine(handle,"abcdef") Call Plugin.File.CloseFile(handle) fileLena=Plugin.File.GetFileLength(wen) Call Plugin.Msg.Tips("现在文件长度是:" & fileLena) RunApp wen //屏幕截图,指定截图区域(左:0, 上:0, 右:1024, 下:768) Call Plugin.Pic.PrintScreen(0, 0, 1999, 1999, "D:\" & 夹名 & "\" & 文件名 & ".bmp") RunApp "D:\" & 夹名
博客园:冷色008
百度:冷色008
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步