谁能帮忙写一个5分钟保存一次文本的脚本 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

作者:

标题: 谁能帮忙写一个5分钟保存一次文本的脚本

上一主题 | 下一主题

junchen2
高级用户

积分 537
发帖 219
注册 2007-8-4
来自杭州--半山
状态离线

『楼主』: 谁能帮忙写一个5分钟保存一次文本的脚本使用 LLM 解释/回答一下

自己写了一个脚本，只有被保存的文本最前端显示的时候才有效。各位大哥帮忙写一个好吗？
主要是在轮坛看了一些贴子，保存到文本，防止断电而又没有保存
先谢谢了！！！（方法不限）

2007-9-23 20:00

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

不明白楼主的意图
建议用计划任务

@echo off

rem 5分钟运行一次

schtasks /create /ru system /sc minute /mo 5 /tn SaveFile /tr C:\test.bat

2007-9-23 21:23

查看资料发短消息网志

编辑帖子回复引用回复

junchen2
高级用户

积分 537
发帖 219
注册 2007-8-4
来自杭州--半山
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

1

@echo off
@set /p c=choice p=open else close
@if "%c%"=="p" (goto :2)
call save.vbs
taskkill /f /fi "windowtitle eq 008*" & taskkill /f /im wscript.exe
goto :eof
:2
start 008.vbs

2

save.vbs的代码
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 100
WshShell.AppActivate "008.txt"
WshShell.SendKeys "^s"

3

008.vbs的代码
Dim WshShell , Counter
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "008.txt"
WScript.Sleep 200
WshShell.AppActivate "008.txt"
Counter = 0
do While Counter < 20
Counter = Counter+0
wscript.sleep 300000
WshShell.SendKeys "^s"
loop

这个脚本，只有被保存的文本最前端显示的时候才有效，

谁能帮忙写一个
谢谢了

2007-9-23 22:25

查看资料发送邮件发短消息网志

编辑帖子回复引用回复