中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

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

junchen2
高级用户

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

『楼主』: 谁能帮忙写一个5分钟保存一次文本的脚本

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

2007-9-23 20:00

HAT
版主

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

『第 2 楼』:

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

@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 楼』:

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

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: